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Percom's DOUBLER II tolerates wide variations in media, drives 



GARLAND. TEXAS - May 22, 1981 
Harold Mauch, president >>t Percom Data 
Company, announced here today chat .in im- 
nion oi f ; nnovative 

LVL'BLLI a double*density plug'in 

module fbc TRS-80' Model I computers, is 
ivailable. 
Reflecting design refinements based on both 
theoretical inalyset ind field testing, the 
DOUBI ER II . k> named, permits even great* 
er tolerance in variations among medi 
l sign 

Like the original DOUBLER, the D< I 
BLLR II plugs into the drive controller IC 
Model 1 1 xpansion Inter- 
face and permits a user to run either sing 

double*density diskettes on a Model I. 

Wkh a IX m BLER II installed, over tour 
times more formatted data as much as 364 
Kbytes — can Ik stored on one ride of i five- 
inch diskette than can k ing a stan- 
dard I m.U Model I dm <■ •: Stem. 

More iver, i DOUBI ER lie | lei 1 

with the hardware required to run Model III 

diskettes. 

Bridging the 
80* software compatibilii 
this page.) 

The critical clock-data separation circuitry 
ot the DOUBLER II is a proprietary design 
called a ROM -programmed digital ph ise la k 
loop data separator. 

According to Mauch, this design IS more 

nr ol differences from diskette to diskette 
and drive to drive, an rides immunity 

to performanc< lused by circuit 

component aging. 




Percom mi:BTHU I 



Mauch said -A DOUBLER II will ope 

lust is reliably two years after it is installed as it 

will two days alter install..' 

The digital phase-lock loop also elimii 

the need lor trimmer adjustment^ typical ol 

analog phase-lock loop circuits. 

"You plug in a Percom t> H Bl ER II and 
then forget it," he said. 

The DOUBLER II also features a refined 
Write Precompensation circuit that more 
;vrk minimizes the phei I kt- 

eak shirting, a reliability-impairing char- 
acteristic oi magnetic data record 

The DOUBLER [1, which isfulh. soft 

compatible with the previous DOUBLI I 

supplied with !>RI DOS*, a TRSDt 
compatible disk operating system. 

rhe DOUBLER II sells foi v^)*^. incM- 

in« the DBLDOS ^'^-tte^ ^|^|S,^.V! 



Circuit misapplication causes diskette read, format problems. 

High resolution key to reliable data separation 



I LAND, TEXAS — The Percom 

SEPARATOR d es very well for the Radio 

k rRS 80* Model I computei what rhe 

T.ukK disk controller does poorly at best: rcli- 
M\ separates clock and data signals during 
disk-read operations. 
Unreliable data-c I I i 

mat \ failures and repeated lead 
retries. 

CRC ERROR -TRACK LOCKED OUT 
The problem is m its /en on high-number 

(high-density) inner file tracks. 

As reported earlier, the clock-dai 
tion problem was trued by Percom to misap* 
iti moi the internal separatot ol the 1771 
drive controller IC used in the Model I. 

The Percom Separator substitutes a high- 
resolution digital data sej ircuit, one 

which operates at 16 megahertz foi thi 

lit ol the Tandy 
ign. 

tor circuits that operate at lower 
ies — tor example, two- or tour- 



megahere -were found I Pei to provide 
only marginally improved performance over 
: . uir. 
I he Per© >m solutu in is a simple adapter that 

flugs into the drive co Ilei sum 

nterface (EI), 
Not a kit — some vend y an un 

kit oi resistors, IC & and othei 
paraphernalia that may he installed by i 
ifying thi puter — the Percom 

SEPARATOR Isarulb, assembled, lulh tested 
plug-in module. 

Installation involves merel) plugging the 
SEPARATOR into the M. lei I I I disk con- 
troller chip socket, and plugging the controller 
chip into a socket on rhe SEPARATOR. 

The SEPARATOR, which sells tor only 

$2°.^, may he purchased from authori ed P< i 

: ordered directly from tin 
tory. The factory roll-tree order numher is 

! 
Ed. note: Opening thi Expansion In- 

terlace ii'.. a void the Tandy limited 90 

W ananty Qrcle 508 on inquiry card 



Owners ol original DOUBLERs nun. pur- 
chase a DOUBLER II upgrade kit, without the 

disk controller IC, I P pur- 

chase oi ai DOUBLER is required. 

and each DOUBLER owner ma\ pun base only 
vine DOUBLER 11 at the | rice. 

The Percom DO! BLLR II is available from 
autlh m retailers, t m r. i 

direct from the factory Hie factory toll-tree 

order number , 

Opening the TR nln- 

I void the Tandy limited 90-day 

1,V Orcle 258 on inquiry card. 
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Artificial Intelligence- 
Technology and the Search 
For Self 103 

by Chris Brown 

In the early 1950s, Lucy and Ethel found 
themselves working on a bon-bon produc- 
tion line and Alan Turing published "Com- 
puting Machinery and Intelligence." The 
world hasn't been the same since. 



And Now Artificial 
Intelligence 
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by Harold Nelson 

There has always been someone to put 
humanity in its proper place, scientists like 
Copernicus, Darwin and Freud. Now we 
have roast mules, Animal, and SHRDLU. 
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Godel, Escher, Bach 

by Nancy Robertson 

While the debate rages over whether or not 
machines can really think, a young com- 
puter scientist suggests man has jumped 
from the golden bough to be left swinging 
from a golden braid. 



122 



Mastermind— An Intelligent Program 

by Duane R. Hope 

When this author got bored with solo play of this popular game, 
he decided to create a worthy opponent inside his computer. 

Simple Syllogisms 132 

by Rick Hoffman 

If you've ever fantasized about having an intelligent computer, 
here's a way to add some smarts to your little black box. 



141 Programs for the Handicapped A lot can be done with imagination and a little sweat. 

Stephen F. Nowak and Gary J. Muswick 
184 Hoops Throw your scorebook away. William Cornwell 

220 Worldly Goods Keep track of those with which you are endowed. John E. Fail 
272 Sunrise. . .Sunset Program your computer to time them. Harold K. Skramstad 
274 Fat City Keep tabs on your meat. David Busch 
298 Cadet— The Decision Maker Know all the alternatives before you act. 

Victor T. Albino 
316 Firestream Next to Sparky, a TRS-80 could be a firefighter's best friend. 

George L. Gille 
338 Loan Sharp How a user can avoid usurers. Walter J. Atkins 
374 Listprog For sticklers on neatness. Doug Riffel 
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196 Tap* Regenerator Avoiding the pain of bad loads. Cass R. Lewart 

Real World Interface— Part I The beginning of a beautiful friendship. Elliott K. Rand 

Hard and Soft Printware Zen helps you build an interface that won't cost you an om 

and a leg. /. R. Sinclair 

Auto-Key Input complex mathematical equations. Mike Ghan 

That Annoying Twitch Curing your tube and relieving aggravation. 

Marshall E. Smith 



202 
234 

242 
310 



258 All About Program File* Bettering the records in your data base. 
A. J. Barnard, Jr. and A. David Barnard 

I®ty)©AT0(Q)[K] 

180 Alternate Course— Part III Graphic POKEs. Michael A. Duff in 

mum 

302 Mlcro-Yahtzee Plug this popular game into your computer. Mark E. Johnson 
320 Hang Person It even comes with moans. Nathan Hilton 
334 Star Colony Explore and conquer. John Beringer 

118 Artificial Intelligence at M.I.T. Trying to make the indefinite more definite. 

G. Michael Vose 
136 The Realm of Science Fiction Hal and Mike are not ordinary guys. Nancy Robertson 
146 Voice Synthesizer Taking the tedium out of phonemes. Willard Hall 
228 A Macroprocessor for Basic— Part IV To compile or not to compile, that is the 

question. J. Alan Olmstead 
264 Adventures In Modemland Reach out and touch another microcomputer. 

Fred Blechman 
285 Soft Characters 32 lowercase characters for the price of 26. Stephen D. Moulton 
290 The Basic Difference Model I and Model III don't always talk the same language. 

Fred Blechman 
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249 
252 
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Profile Still the king of Radio Shack programs. Bill O'Brien 

Debug With GOTO How to save data when your program bombs. Roger L Rape 

DOSPLUS 3.3 The only serious double-density DOS. James LaSalle 

Multi-Statement Rounding off the edges once you master Basic. 

Dan Keen and Dave Dischert 

Formatted Screen Input Entering data with facility. F. Christian Byrnes 

Thoughts on For. . . Next Deep nesting can be for the birds. Richard Amyx 
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288 Crossdos CP/M text editing and transfer problem solver. Jack Means 

156 Emterm Make your TRS-80 an intelligent terminal. Jeffery A. Mills 

306 Building Bridges Combine your software for what must be done. Wayne L. Mueller 

312 Through-Boot Making it easier to start-up in TRSDOS. Alan D. Smith 

326 A Tale of Two Drivers Patches for TRSDOS and EDTASM. John T. Blair 

340 Full Error How to get more than half a message. Harry and Ken Keairns 

344 Modifying EDTASM/Plus Take the disadvantage out of this Microsoft program. 

Arne Rohde 

358 Datafix Tiptoeing across your keypad. A. J. Barnard, Jr. and A. David Barnard 

360 Weak Link Working on the NEWDOS chain command. Steven Denholtz 

364 Memory Window Look at any K byte of keyboard. Warren Merkey 

370 Copyit Shorthand data entry. Ron Balewski 
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SO REMARKS 

hv Wavnfi Green 



by Wayne Green 



'Before. . . computer artificial intelligence 

... we have to come to terms 

with what we mean by 'intelligence.' ' 



Artificial Intelligence, Eh? 

That gets the same sort of snickering 
laugh from me that I provide the robot- 
oriented folk. You know how to make a 
robot, don't you? Well, you start with a 
British midget. . . 

Before we can tackle computer artifi- 
cial intelligence we have to come to some 
terms with what we mean by "intelli- 
gence." Frankly, even with our largest 
computers we are still far away from any- 
thing remotely describable as intelli- 
gence. As measured by psychologists, in- 
telligence has to do with the ability to 
cope with a new situation: This is the op- 
posite of the normal computer approach. 
A computer can only cope with those 
things for which it has been designed to 
cope. 

In addition to our brains being several 
orders of magnitude more complex than 
even our best computers, there may be 
other more serious obstacles in the way of 
creative problem solving by computers. 
Take the simple matter of memory— have 
you any idea how your brain stores infor- 
mation? I hope you said no, because no 
one yet has even a hint as to how, or 
where, we store all the data we pick up. 

If you add up the amount of input to the 
brain — from the zillions of rods and cones 
in the eye, at so many frames per second; 
from the ears, nose, touch all over the 
body; temperature; kinesthesia; pressure; 
and so on— the amount of material put In- 
to storage is incredible. We seem to forget 
most of this input, but under hypnosis we 
are able to regress and get back full per- 
ception from any time. The information is 
recorded; it is only our ability to contact 
the recordings which is a problem. 

I remember when a chap first came out 
with the announcement that it was possi- 
ble to go back in memory to the prenatal 
period. Boy, did he get the hee-haw. Today 
it is commonly accepted, complete with 
the ability of anyone not only to recall 
events but to recall voices and things that 
were said near one during that period of 
life. I've personally regressed many peo- 
ple to the prenatal period and had them 
play back their recorded memories. Often 
these memories have a surprising impact 
on present day life. 



Prenatal memories are unlike later 
ones, in that they are mere recordings of 
perceptions and can only be recalled 
under hypnosis, bypassing the conscious 
mind entirely. The prenatal conciousness 
didn't know what the sounds meant, so 
they were not interpreted and filed under 
as complex a cross index system as are 
later memories. 

Getting back to memory, it appears we 
are able to store considerably more data 
than the brain can possibly hold. When we 
touch some parts of the brain certain 
memories are stimulated, but this may be 
because we have hit a switching circuit 
rather than a memory storage area. 
Removing large hunks of the brain does 
not always remove memory 

It may be that we are able to use a 
holographic type of storage system, 
somehow storing large numbers of memo- 
ries or a few molecules. But I'm skeptical 
about that; in view of our ability to recall 
things throughout our lifetime with amaz- 
ing clarity, in spite of our cells being con- 
stantly replaced, I wonder if we aren't us- 
ing some outside storage medium. 

If you've read much about dying and 
death, you are aware that we have an in- 
credible body of evidence that there is 
part of our being called the spiritual which 
seems to continue after death. This part of 
us seems to retain all those memories 
which were supposedly buried with the 
body. So. there might be some sort of 
limitless, timeless storage system we use. 
Physical problems with the brain— or pro- 
gramming problems — can interfere with 
our memory access. Hypnosis and other 
sneaky techniques known to psycholo- 
gists make it relatively simple to access 
even the most hidden (by programming) 
memories. 

If I'm right about this, our electronic 
computers are going to have a heck of a 
job matching us in memory capacity, even 
with laser disks. And then comes the com- 
plex system of indexing we use. Perhaps 
you have to have done psychological work 
to appreciate how perfect an instrument 
the brain is and how invariably it will res- 
pond to a request on the unconscious 
level. If I get you to relax and ask you to 
return to a time when you were eating a 
ham sandwich, your mind will— infalli- 



bly— do just that. If I ask you to return to 
an earlier ham sandwich, it will. And I can 
take you back to the first ham sandwich 
you ever ate. It's all there, when you know 
how to access it. All cross-indexed be- 
yond the wildest hopes of any computer 
imagined today. 

That brings us back to the concept of in- 
telligence—the ability to cope with a new 
situation on the basis of past information. 
The built-in indexing system we have can 
break down a new situation into extremely 
small parts, all on an unconscious level, 
and develop a scheme for meeting a com- 
pletely new event. The better able the 
brain is to do this integration, the higher 
the intelligence. People with a high IQ 
have a better working computer system. 

As one of the founders of Mensa, the 
high IQ society, I've met and talked with 
hundreds upon hundreds of people with 
high IQs. Yes, they have good computers, 
but that doesn't mean they appear very 
smart. Let's draw a parallel with one of our 
microcomputers. If we give our computer 
a very limited amount of data with which 
to work, and then we make sure that part 
of that data is not true, and then, just to 
really screw things up, we program the 
system with a crummy program, we can 
see that the computer itself is of less 
significance than we thought. 

People are programmed, beginning 
with that prenatal time. If they are taught 
values which are not true, given data 
which is not factual, it really doesn't make 
any difference how fantastic their com- 
puter is, they will still do dumb things and 
be failures. I hope I will not make any addi- 
tional enemies, but the truth is that the 
Mensa people are no more successful 
than anyone else. I have found no correla- 
tion between intelligence and success. 

The Mensa people do seem to have a 
better computing system, but then, no one 
ever claimed that everyone was equal in 
any way. Some make a big deal out of be- 
ing intelligent. But then, some people use 
their height in similar ways— or anything 
else they inherited which is deemed supe- 
rior in our society. 

I suppose that if we could build a com- 
puter system big enough to store as much 
as we can with our minds which had the 
ability to cross-index as well as we do, we 
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might then start talking in terms of ar- 
tificial intelligence. Until then, please 
don't bug me. 

If you want to take issue over the con- 
cepts of a spirit body, please do me the 
kindness to read the literature before 
discussing it. The same goes for reincar- 
nation, communications with the dead, 
and all that occult stuff. And don't forget 
to come to grips with parapsychology, 
mental communications, ghosts and 
other psychic phenomena. ■ 

Regaining Our Technology 

t should be no secret that Japan has 

passed us by in much of our electronic 
technology. I've written a good deal about 
that in the last few months, and the rea- 
son I think it became possible. Part has to 
do with the support the Japanese govern- 
ment gives their electronic industries, the 
tax benefits, the low cost loans, and the 
skilled training for. their workers. But part 
of the problem, I'm convinced, lies in a lit- 
tle-known event that occurred almost 
twenty years ago. 

In 1963 proposals were made to change 
the ham rules. With about 85 percent of 
the hams believing they would have to 
take the difficult FCC exams over to get 
back their frequencies, spirits dropped 
and amateur radio growth stopped dead— 
for over ten years! 

If ham growth had continued as it had 
from the end of WWII, we would today 
have over two million hams and over half 
of these would be engineers and techni- 
cians, working in our electronics and com- 
munications firms. Well, we lost out on 
about one million engineers and techni- 
cians and there is no way that the loss of 
that many technical people— particularly 
hams, who are the most rabid of the lot — 
hasn't hurt our technology. 

At the same time we stopped our ham 
growth, the Japanese set up a no Morse 
Code license and their ham population 
has far surpassed ours, even though they 
have only half our population. When I visit 
the computer labs in Japan I am greeted 
as W2NSD and known through 73 Maga- 
zine. I see hams all through their labs. 

Remember, if you will, that virtually 
every major communications break- 
through has been discovered and pio- 
neered by hams. FM was pioneered by 
hams, NBFM was too, as was sideband, 
RTTY, and so on. 

The new generation of computer hack- 
ers may, to some degree, help us through 
this technician famine, but we need to do 
something on a national level to get in- 
terest in electronics, computers and so on 
into our high schools and infect our 14 
and 15 year olds with the ham and com- 
puter virus. We are way behind now, so it 



is going to take a lot of work to catch up. I 
spoke recently to the chairman of the FCC 
about this and there Is a good possibility 
we may be able to get this to the White 
House for consideration. 

One college can't turn out a million 
technicians, but if we can get amateur 
radio going again— perhaps with a ver- 
sion of a no-code license — and we can get 
schools to push computers, we could 
catch up to the Japanese by 1990. We're 
not going to do it by accident, that's for 
sure.B 

Micro Mountain 

bout a year ago I got to talking with 
the presidents of two local colleges 
about my plans for introducing microcom- 
puter courses into their educational cur- 
riculum. Both liked the idea and we start- 
ed to lay the groundwork. 

Then I got a call from one of them say- 
ing he wanted to get out of the college 
business and wondered if Wayne Green 
Inc. was in any position to take on a col- 
lege. We weren't at that time, but I started 
thinking seriously about it and looking for 
someone with the background to tackle 
the job. You don't find someone with the 
ability to run a college quickly, so the col- 
lege was eventually sold to a Florida 
school. 

The college was a nice one, with 800 
acres and 15 major buildings, but it had 
drawbacks, too. It had been built in the 
days of cheap energy and was a bear to 
keep heated in the winter. The spread-out 
buildings meant extensive plowing after 
every snow storm — and so on. 

Just recently we lucked into a chap with 
the right background to get our school 
started. Since then I've been giving a lot of 
thought to the plans and they have been 
growing almost daily. A recent NBC White 
Paper on training workers fueled the fires 
of imagination. 

Since 80 percent of all new jobs come 
from small firms — particularly new 
firms— why not think in terms of an indus- 
trial area centered around the school? 
This would allow entrepreneurs to open 
small firms and make use of students as 
part of the teaching process, providing 
workers of outstanding intelligence and 
skills at a low cost. 

I had been thinking in terms of a school 
which would have an 18-24 month course, 
resulting in an Associate's Degree. Part of 
that time would be spent learning theory 
and the other part doing practical profes- 
sional work, either with Instant Software 
or with one of the other nearby commer- 
cial firms. Thus, each student would get 
the benefit of practical on-the-job training 
as well as theory and associated business 
courses. 



Could we build an eastern counterpart 
to Silicon Valley, calling it Micro Moun- 
tain? After talking with the people at Atari 
and Apple and smaller firms in the micro- 
computer business, there is no question 
in my mind about the need for skilled peo- 
ple: The industry needs them badly. In- 
deed, the lack of skilled workers has been 
seriously holding back growth of the field 
and the situation is only going to get 
worse. 

The courses I had in mind for the school 
would start with an understanding of 
microcomputers: how they work; how to 
fix them; how to interconnect accessories 
and get them to work. We'd explain the ar- 
chitecture of the popular chips and the 
reasons for support chips. I'll bet we could 
get some help with these courses from 
chip manufacturers— they need skilled 
people too. 

Then we would go on to printers, disk 
drives, and other accessories: how they 
work, how to fix them, and why they have 
been designed the way they were. 

Software would come next, with intro- 
ductions to all common languages and 
heavy emphasis on Basic and perhaps 
Pascal. We'd go into operating systems, 
machine and Assembly programming, 
utilities and how they simplify program- 
ming and service of systems. Then we 
would get into teaching about the many 
applications programs— how they work, 
what to look for, how to fix them. We'd 
work with as many different word pro- 
cessors as possible, accounting pack- 
ages, and industry-specific packages. 

Man does not live by computers alone, 
so we would also teach a variety of 
business programs such as business law, 
how to buy or rent buildings, personnel 
management, how to apply for and get a 
job, finance, accounting and bookkeep- 
ing, advertising, promotion, writing, 
editing, printing, marketing, packaging, 
Z-theory, photography, and so on. We 
want students to be able to go to work for 
a firm and be qualified to proceed to upper 
management. 

The idea seems like one whose time has 
come, so we'll be developing it and look- 
ing for support from the industry. ■ 

Computers and Hamming 

ith almost 30 percent of the active 
hams already Into computers it is a 
wonder so little has been done to marry 
the two interests. One of my other publica- 
tions, 73 Magazine (for radio amateurs), is 
going to take the big step and put the two 
together with an on-the-air ham bulletin 
board system. 
The idea is to have one channel where 

Continues on page 67 
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Expand your TRS-80® MODEL I with 



EHTEnT-BD 



FOR 



$99 



95 







DRIVES 4-7 
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CONNECT TO 
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INTERFACE 


DRIVES 0-3 
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CONNECT UP TO 

8 

DRIVES 





Metatronics (a subsidiary of Meta Technologies Corp., as of September 1 . 1 981) introduces a unique device allowing the connec- 
tion of as many as 8 disk drives to a TRS-80 MODEL I computer. Its integrated design is compatible with application software 
running under VTOS, LDOS, NEWDOS/80 (versions I & Jl), NEWDOS + and TRSDOS 2.3. Features include a U.L.-approved power 
supply, power-monitor LED, operating environment protection circuitry, high-impact metal case and gold-plated contacts. 
Complete with instructions and patch program diskette for configuring your favorite operating system. 

TRS-80 4 TRSDOSare trademarks of the Radio Shack division ol Tandy Corp. EXTENT-80 is a trademark of MlPi.-.nonics Corp. LDOSis a tradenameof Logical Systems Inc. 
NEWDOS is a tradename of Apparel Inc. 



\ r 



DISK DRIVE 

EXTENDER 
CABLE 



$9 



95 



for VISTA, MICROPOLIS, 

MTI, PERTEC,SHUGART, 

PERCOM & OTHERS 



\ f 



L 



EPSON 

MX-80, MX-80FT, MX-100 

PRINTERS 

CALL FOR PRICE 



10 FT. RIBBON 

CABLE 

$24 95 

CONNECTS EPSON PRINTER 
& TRS-80 MICROCOMPUTER 



(Metatronics 

^^^/ CORPORATION >** 

A Subsidiary of Meta Technologies Corporation 



TO ORDER 
CALL TOLL FREE 
1-800-321-9390 
IN OHIO, call 
[216) 289-1210 (COLLECT) 



MasterCard 



OFFICES 

26111 BRUSH AVENUE 

EUCLID. OHIO 44132 

(SEND MAIL ORDERS HERE) 



PRICES IN EFFECT 

October 1. 1981 THRU 

October 31. 1981. 

P'ices. Specifications. 

and Offerings subject lo clianqe 

without notice. 



• Add S3 00 foi shipyinq & ha'iOlny 

• S3. 00 EXTRA 'or C O.D 

• Ohio 'esiaents add 6'.°e sales 
ta« 



VISA 



C '-*' o. Velnttor cs Corp 



SO INPUT 



"Those of us who have been 

using Model Ills. . .know 

what frustration is all about." 



READY or Not... 



I am writing in response to Ron Balew- 
ski's article "Never Ready" (July 1981). He 
stated in the article that the message 
string that was to be displayed instead of 
READY would not appear after CLOAD 
because it uses a different address for re- 
entry to Basic. 

But, it is possible to make this patch in- 
to the RAM location that is called upon re- 
entry to Basic. So, I have written a very 
short routine to handle the flaw in the pro- 
gram. It only uses 5 bytes, thanks to a little 
ASCII character called the upward line- 
feed (27 decimal or 1B hex). I have never 
seen this character used in a program 
before although it seems to be a very han- 
dy character to use. This is the routine: 

LD A.1BH ;Up-ward Line-feed 
CALL 33H ;Display at cursor 

This requires the following changes in 
the Basic program: 

30 FOR K = 32683 TO 32703:READ DiPOKE K.U.NbX 1 K 

And add the following lines: 

35 DATA 62,27,205.51,0 

125 K = 16821:POKE K, 195:P0KE K+1,171:POKE 

K-f ,127 

Be sure to set the memory size to 32683 
instead of 32688 before running the pro- 
gram. 

Craig Riecke 
Lincoln, NE 

What About Level I 

I have just read the June 1981 issue of 
80 Microcomputing, the first subscription 
copy that I have received (the transatlan- 
tic postal service is not as efficient as it 
could be), and I must say that I was very 
impressed. It is fair to say that a single 
issue contains more information on the 
TRS-80 than the three leading UK micro- 
computer publications combined in an en- 
tire year. 

But. . . there wasn't a single item on or 
program in Level I Basic. Surely some of 
your readers have TRS-80s equipped with 
Level I? I know the general idea is that 
Level I is OK for starting with and Level II 
or Model III Basic is required for serious 
use, but it depends on what you mean by 



serious. My Level I system plays Chess, 
Star Trek, Adventure, runs the Editor/As- 
sembler and will shortly be doing some 
simple word processing, thanks to the 
Electric Pencil. In fact, it does everything I 
want a personal computer to do, so why 
bother upgrading to Level II? (I should add 
that I am fully familiar with the facilities of 
Level II and Disk Basic). 

About a year ago I helped form the UK 
Level I User Group, which is dedicated to 
TRS-80s equipped with Level I Basic, and 
to making them do more than people think 
they are capable of. The group's main ac- 
tivity is the production of a bi-monthly 
newsletter/magazine, and fellow 80 Micro- 
computing readers are invited to write to 
me for a sample copy (free, but please 
enclose $1 for postage). 

Nick Rush ton 

123 Roughwood Drive 

North wood, Kirkby 

Merseyside L33 9UG 

United Kingdom 

Pilot Praise 

The following is an open letter to Randy 
Hawkins, author of "Pilot— The Language 
of Computer Aided Instruction" (July 
1981). 

I've dealt with all kinds of people over 
the years, but never anyone who was as 
prompt and courteous as you. When you 
told me last Saturday you'd mail a fix for 
your Pilot program on Monday, I expected 
that would be the last I'd hear from you . . . 
at best it would be weeks. But this after- 
noon's mail brought your four-page Model 
III changes. 

Next, don't apologize for inconve- 
niences. Those of us who have been using 
Model Ills for some time know what frus- 
tration is all about. 

Now, for some items on how it's work- 
ing for me. After debugging it, I found the 
system tape wouldn't load. I sat here star- 
ing at the * * on the screen and watching it 
switch to D* at the very end of the pro- 
gram. I made extra copies. Normally, the 
D* message tells me I've got a problem 
with volume settings, although it's mighty 
rare on the Model III. If it persists, I clean 



the heads, then normally it boots up with- 
out any trouble. 

But your Pilot 80 sat there sticking its 
D* tongue out at me every time, no matter 
how I adjusted the volume. Finally, a little 
bell went "tinkle-tinkle" in my head. This 
month's Microcomputer News (from Tan- 
dy), mentioned that Haunted House will 
load in the Model III if you simply load it 
over itself on a checksum error. Next time 
around, I watched the ** change to D*, 
then a pause while it passed the blank por- 
tion between saves, then another series of 
blinking D*s, and danged if it didn't per- 
form like a charmer! 

I found when putting in the tutorial pro- 
gram that your suggestion to use "a" in- 
stead of " @ " or the shifted "@" was of lit- 
tle help. It worked fine everywhere except 
in line 325. 1 went over that damned line at 
least 20 times; I edited it, rewrote it, delet- 
ed it and rewrote it, and no matter how 
hard I tried, I couldn't get that "a" to ap- 
pear on the screen. It came out "A" every 
time. Well, you warned us that using two 
quotations in a line could lead to unpre- 
dictable results. Have you ever edited a 
line, hit L several times and saw it was let- 
ter perfect, then entered and listed it? 
Comes up "A". 

My final attempt was to delete lines 305 
to 330, name the program to the end, and 
then redo the missing lines, this time com- 
bining lines 320 and 325. Now I had three 
quotes in one line. But it worked perfectly. 

I can assure you Pilot will make some of 
my self-imposed tasks easier, and pro- 
duce neater programs when I want to 
create a tutorial. Even though my system 
is 48K and I can't make use of 16K of my 
RAM, I take my hat off to you for an ex- 
cellent program. I have also stuck your 
name in the master tape where it belongs 
to identify your work. 

Karl H. Meyer 
Corpus Christi, TX 

Bungled Broker 

Your article "The Software Broker" 
(June 1981) contained many serious mis- 
takes. The following are some that I have 
found. There may be more. 

Continued on page 14 
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1001 



333 pages 



META TECHNOLOGIES 

26111 Brush Avenue, Euclid Ohio 44132 
CALL TOLL FREE 1-800-321 -3552 TO ORDER 

IN OHIO, call (216) 289-7500 (COLLECT) 



THINGS TO 
DO WITH YOUR 
PERSONA! COMPUTER 

I. MARK SAWKCH 

$7.95 



333 pages, written in simple terms, of 
"what-to-do" and "how-to-do-it". Suitable 
not only for microcomputers, but for pro- 
grammable calculators as well. Includes 
program listings, formulas, a glossary of 
computer terms and more! Definitely a 
MUST BUY! 

A PARTIAL LIST OF APPLICATIONS 

Real Estate Evaluation Test Your Typing Speed 



Astrology 
Income Tax 
Speed Reading 
Personalty Test 
Statistical Analysis 
Logic Circuit Analysis 
Carpenter and Mechanic's Helper 
General Purpose CtocK Timer 



Finances & Investments 

Borythm 
Energy Efficiency 
Antenna Design 
Letter Writing 
Recipe Index/Calculator 



"OTHER MYSTERIES" 
VOLUME III 

by Dennis Kitsz 

CaH now and place your order for this new 
book, "THE CUSTOM TRS-80™ & OTHER 
MYSTERIES", from UG, Inc. More than 
300 pages, with over 60 photographs, of 
projects for the hardware hobbyist. In- 
cludes schematics, PC layouts, software 
driver code, etc. for such do-it-yourself 
undertakings as high resolution graphics, 
reverse video, real-time clock/calender, 
music synthesis, ROM/RAM additions and 
more! 

THE CUSTOM TRS-80™ $29.00 

CALL FOR AVAILABILITY 



MICROPARAPHERNALIA 

NEWDOS by APPARAT 

NtWDOS/80by Apparat $139.95 

NEWDOS UPGRADE CALL 

NEWDOS + with ALL UTILITIES 

35-track $69.95 

40 track $79 95 

BOOKS 

TRS-80™ DISK 

AND OTHER MYSTERIES . . $19.95 
MICROSOFT™ BASIC DECODED $29.95 






META NOTATIONS. . . 

MTC introduces Its FREE computer "bulletin 
board" service. Set up your terminal or ter- 
minal software for 300 baud, parity disabled, 
8-bit word length, and 1 stop bit. Dial (216) 
289-8689. After the connection is established, 
type LOGIN META. When asked for a valida- 
tion code, type META. Have fun! 

In a couple of months MTC will introduce the 
successor to AtOSIII/CALCS. It is called 
AIDS/P- and Is based on MTC's PRIMAL-* 
(Practical Relational Information Manage- 
ment Applications Library), a powerful 
system for PRIME minicomputers. AIDS/P 
features the best of the critically acclaimed 
AIDSIM/CALCS but is probably an order of 
magnitude beyond it in power. It will be first 
made available to AIDSIM/CALCS owners (for 
an upgrade charge), then to the general 
public. Price will be in the $200 $ 300 range. 

Effective September 1, 1981, Metatronics Cor 
poration became a subsidiary of MTC. 
Metatronics will carry the complete MTC 
product line in addition to its own. Order pro- 
cessing and fulfillment departments have 
been combined to improve service response 
levels. MTC's superior software and supplies 
marketing, ana Metatronics exceptional 

reripheral offerings should prove to be a 
omidable combination. (Sorry guys, if you 
can't beat us, Join us . . .) 

MTC now offers a more complete selection of 
diskette products (ad deadlines prevented in- 
clusion in anything but this column). New 
manufacturers are MAXELL and 3M. Definite- 
ly call for specific information. For example, 
MAXELL Brand 5% " diskettes in a PLASTIC 
LIBRARY CASE are only $34.95 for a box of 
10! SCOTCH Brand diskettes are comparably 
value-priced. MTC is also Introducing its own 
PARAGON** Brand media products. The in- 
tent is to offer a super-high quality product at 
a very competitive price. For example, a box 
of 10 single-sided, soft-sectored, double- 
density, 100% certified diskettes with HUB 
RINGS is only $24.95! A full line of products 
(including HEAD CLEANING KITS, etc.) will 
be offered. The PLAIN JANE* (almost 200,000 
units sold) diskette line will become part of 
the PARAGON ■ MAGNETICS operation (but 
don't quote us verbatim). 



Single Sided. Soft Sectored 5'/«-inch, 
(for TRS-80™) Mini-floppy 

DISKETTES 



$21 



95 



box of 10 



Let your TRS-80™ Test Itself With 

THE FLOPPY DOCTOR & 
MEMORY DIAGNOSTIC 

by David Stambaugh 

A complete checkup for your MODEL I or 
MODEL III. THE FLOPPY OOCTOR-Verslon 3 
completely checks every sector of single or 
double density 35-, 40-, 77-, or 80-track disk 
drives. Tests motor speed, head positioning, 
controller functions, status bits and provides 
complete error logging. THE MEMORY 
DIAGNOSTIC checks for proper write/read, 
refresh, executability and exclusivity of all ad- 
dress locations. Includes both diagnostics and 
complete instruction manual. 

SYSTEM DIAGNOSTICS $24.95 
For MODEL III $29.95 



PLAIN JANE™ 

These are factory fresh, absolutely first 
quality (no seconds!) mini-floppies. They are 
complete with envelopes, labels and write- 
protect tabs in a shrink-wrapped box. 

PLAIN JANETM Diskettes $21.95 

10 boxes of 10 (eachbox)$21.50 

PLAIN JANE™ ( SoM 

Introducing MTC's premium generic 
diskette. Single Sided, Soft- Sectored, 
DOUBLE-DENSITY, SVVinch diskettes with 
reinforcing HUB-RINGS. Individually 100% 
ERROR-FREE certified. Invest in GOLD! 

PLAIN JANE™ %,.M $25.95 

VERBATIMS PREMIUM DISKETTES 

DATALIFE" 

Seven data-shielding improvements mean 
greater durability and longer data life. 
These individually, 100% error-free cer- 
tified diskettes feature thicker oxide 
coating, longer-lasting lubricant, improved 
liner, superior polishing and more! Meets 
or exceeds IBM, Shugart, ANSI, ECMA 
and ISO standards. 
VERBATIM DATALIFEtm DISKETTES 
5'/4-inch (box of 10) 

MD525-01 $26.95 

10 boxes of 10 (each box)$25.95 

8-inch FLOPPIES 

Double-Density. FD 34 8000 . $43.95 

'RINGS' & 

THINGS 

HUB RING KIT for 5Vi" disks $10.95 

HUB RING KIT for 8" disks $1295 

REFILLS (50 Hub Rings) $ 5.95 

CLEANING KIT for 5W drives $24.95 

5»/i-inch diskette case $3.50 

8-inch diskette case $3.95 

5V« -Inch File Box for 
50diskettes $24.95 

8-inch File Box for 

50 diskettes $29.95 



TRS-80 is * trademark o» the 

Radio Shack Division o* Tandy 

Corporation DATALIFE is a 

trademark of VERBATIM. PLAIN 

JANE. AIDS I AIDS-HI, CALCS III. 

CALCSIV. MERGE III are 

trademarks ol MTC. 

, 19tl by Metatechnologtes 

Corporation. Inc 



MOST ORDERS 

SHIPPED WITHIN 

ONE BUSINESS DAY 

Products damaged in 
transit wil be exchanged. 



PRICES IN EFFECT 

October 1, 1981 THRU 

October 31. 1981, 

Prices, Specifications, 
and Offerings subject to 
change without notice. 

8110 



WE ACCEPT 

• VISA 

• MASTER CHARGE 

• CHECKS 

• MONEY ORDERS 

• COD 



•Add $3.00 (or shipping 

& handling 
•53.00 EXTRA for COD. 
•Ohio residents add -i"i% 

sates tax. 
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SDaid 



Break Solution 



In reference to TRSDOS POKE 
(June 1981), defeat the Break key 
under TRSDOS 2.1/2.2/2.3, NEWDOS 21 
or ULTRADOS, I use the following line: 
POKE PEEK (17171) + PEEK (17172) 
*256 +1, 0. To turn on: POKE PEEK 
(17171) + PEEK (17172) *25€ + 1. 1 

Please note this does not work with 
NEWDOS 80, DOSPLUS nor ULTRA-II. 
These new systems have the ability to 
defeat the Break key via a system or 
library command. 

Vernon B. Hester 

42403 Old Bridge Road 

Canton, Ml 48188 



Data Inputs Wanted 



Would it be possible to complement 
a wonderful program ("The Software 
Broker," June 1981, p. 268) with a short 
explanation of how to prepare the data 
disks (mainly the stock price data and 
the index values)? 

I don't understand how you can do it 
from lines 300-380 on Program Listing 
1. The variable D9A will accept only 
numerical data— what happens to the 
name of the stock, for example. 

In spite of the tremendous amount 
of space that you dedicated to this pro- 
gram I think it would have been very 
nice to have a sample of data inputs at 
the end of the program. 

Harold E. Lange 
P. O. Box 450182 
Miami, FL 33145 



Disappearing Act? 

About a year ago I purchased a 
machine language program on cas- 
sette for my TRS-80, which was similar 
to the arcade or "Space War" game for 
Apple. Since that time I have searched 
for another copy as the tape worked 
twice, then would not load. In trying to 
track down the original supplier (I think 
the name was "creative software" or 



"creative games" or something 
similar) there was no phone number 
and returning the tape for replacement 
only resulted in a reply of "addressee 
unknown." I therefore assumed the 
company had gone out of business. 

If anyone can supply information 
concerning the demise of this com- 
pany, or of a new supplier, it would be 
greatly appreciated. 

Douglas C. McMillan 

105 Burlington Beach 

Valparaiso, IN 46383 



OM Error Fix 



I'm writing in regard to my letter 
published in July 1981 concerning the 
OM error I received on loading KBEEP- 
FIX. The response was outstanding; I 
would like to thank all those who wrote 
to me. It appears the answer is to JP to 
06CCH, rather than to 1A19. At least 
this gets rid of the dreaded OM error. 

Now I have a new question. Is there 
anyone who knows of an add-on disk 
controller unit other than the expansion 
interface. (I am mainly interested in an 
already assembled, ready to plug in 
unit— not one that has to be assem- 
bled or searching for parts as in the 
LNW board). I would like to hear from 
any one who knows of a unit. 

Bernard F. Gaffney Jr. 

524 Riley St. 

Lansing, Ml 48910 



POKEing Along 



In reference to your column, 80 Aid, 
(June 1981), about the various POKEs 
required to disable the Break key, I 
have done a bit (pardon the pun) of 
research and created a list of POKEs 
for Level II and various DOSers, in- 
cluding TRSDOS versions 2.1 through 
2.3, Apparat's NEWDOS PLUS, and Ap- 
paratus NEWDOS 80. 

Robert Churchill 
2390 California St. 
Saginaw, Ml 48601 



IRV Solution 



This is in response to the letter of 
Rev. Richard W. Beebe (March 1981) re- 
garding problems getting IRV to work 
with TRSDOS 2.3. I had similar prob- 
lems with NEWDOS but found a way 
out. I tried this solution with TRSDOS 
2.1 and it works. (Sorry, but with all the 
well-known problems of 2.1, I never 
bothered to upgrade to 2.3, settling in- 
stead for NEWDOS.) I figure if any- 
thing, it will work with his TRSDOS 2.3. 

His best bet is to get IRV into RAM 
using TRSDOS command Load IRV, 
then invoking Debug and pressing the 
Break key to activate Debug; then get 
into IRV by entering the Debug com- 
mand GAAAA. AAAA equals the exe- 
cute process on page 5 of the IRV bro- 
chure (e.g., for his 48K system it would 
be GFD36). 

Incidently, when IRV is operational it 
does not work with Electric Pencil and 
will reboot the system when returning 
to DOS. It also disables the chain com- 
mand of NEWDOS 80. If anybody has 
figured patches for these problems I 
would welcome them very much. IRV is 
a very powerful utility and I bet it has 
still many undiscovered uses. 

And speaking of Electric Pencil and 
the NEWDOS-80 chain command, a 
DOS command file can be made by 
Pencil, saved on disk as filename/PCL 
then activated by chain filename/PCL. 

Alan H. Hyde Jaimovich, MD 

440 West Foothill Blvd. 

Glendora, CA 91740 



Printing a Disk Directory 

I am looking for information on how 
to get a disk directory printed on a 
printer. I have a TRS-80 Model I, and I 
am using TRSDOS 2.3. It would be very 
helpful in organizing my disks. I would 
appreciate any information. 

Michiel van de Panne 

Box 13, Site 16, SS1 

Calgary, Alberta T2M 4N3 

Canada 
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META TECHNOLOGIES 

26111 Brush Avenue, Euclid Ohio 44132 

CALL TOLL FREE 1-800-321-3552 TO ORDER 

IN OHIO, call (216) 289-7500 (COLLECT) 



MTCAIDS- 



MODEL I . . $69.95 



MODEL II . . .$99.95 



Introducing the atest addition to MTC's family of data management systems AlDS-ul NO 
PROGRAMMING, easy to use. COMPLETE PACKAGE including demonstration application 
documentat on and MAPS III (see below) 

• Up to ?0 USER DEFINED FIELDS of either numeric- or character-type. 

• CHARACTER-tvpe fields may oe any length (total up to 254 characters). 

• NUMERIC type fields feature automatic formatting, rounding, decimal alignment and 
validation 

• Full feature EDITING when adding or changing records. 

FMfcR F iLLD ican't type m more characters t^an specified) 
HACKSPACF ;aeete last character typed) RIGHT-JUSTIFY FIELD contents 

DLuETF F F.D contents. . SKP •" EL ,to next or previous field! 

RFS'ORL FlE.D contents . SKIP RECORD (to next or previous record). 

• SORTING of records is MACHINE CODE assisted. 

POO RECORDS (40 characters) in about b SECONDS 

ANY COMBINATION o< fields (including numerics) with each field in ascending or 
descending order 

• SELECTION of records for Loading, Updat.ne. Deleting, Ppn'ing and Saving is 
MACHINE CODE assisted. 

Speedy up to 4 CRITERIA, each „smg one of 6 RFL ATIONAL COMPARISONS 

LOAD or SAVE selected records usint> MULTIPLE FILES 

Example. Select records representing those people wno live in the state of Col- 
orado, but not in the city of Denver, whose last names begin with "F" 
and whose incomes exceed $9000 00 

Example Select records representing those sales made to XY2 COMPANY that 
exceed $25.00, between the dates 03 15 and 04/10. 

MAPS-IK (MTC AIDS PRINT SUBSYSTEM), included at no charge, has the following features 

• Full AIDS III SELECTION capabilities. 

• Prints user-specified fields DOWN THE PAGE 

• Prints user-specified fields in titled, columnar REPORT FORMAT, automatically 
generating column headings, paging and (optionally: indentation. 

• Can create a single report from MULTIPLE FILES. 

• Prints user-defined formats for CUSTOM LABELS, custom forms, etc 

BELOW ARE TESTIMONIALS from owners of AIDS systems. These are absolutely authentic 
statements and are typical of the comments we receive 

This program will do more for my business than all the other programs I 
have, combined." 

David Wareham Vice President (EDP). National Hospital and Health Care Services Inc 
"We have 32 different Data Base Management packages for the TRS-80. AIDS-HI is easily 
the best. It also makes it easier for us to step up to our Model II since the package is 
available for both computers." 

Jack Bilmski President. 80 Microcomputer Services 

Your AIDS program is far and away the finest information management system that I've 
ever seen. I am currently using it to maintain a clear picture of the demographic data on all 
the kids in our residential treatment program and it is working for me superbly." 

Frank Boehm. Director. Front Door Residential Treatment Program 



MTC AIDS CALCULATION SUBSYSTEM! 

MODEL I . . .$24.95 MODEL II . . .$39.95 



MTC's most popular AIDS subsystem. Use 
for report generation involving basic 
manipulation of numeric data. Features are: 

• User -specified page title 

• Columnar Headings 

• Optional Indentation 

• Use for accounting, inventory, financial 
and other numeric-based information 
systems. 



• Columnar subtotals generated when 
there is a change in a user-specified 
column. 

• User-specified Columnar Totals 

• Columnar values computed using con- 
stants and/or column values 

• Balance forward calculations (Ex: Gross 
sales equals previous gross sales + sale 
amount + sales tax). 



AIDS OWNERS! 

WE HAVE WHAT 

YOU'VE BEEN 

WAITING IV. . . 



MTC CALCS-IV™, that is. 

• More Computations 

• Save Report Formats on Disk 

• Faster, and more! 

MTC CALCS-IV™ $39.95 

For Model II $59.95 



MTC AIDS MERGE-IN™ 

j This subsystem will combine up to 14 AIDS- 
created data files into a single, large file. An op- 
tional purge capability removes duplicate entries 
while performing the merge operation (can even 
be used to eliminate duplicates in a single file). 
Machine-code assisted for highspeed perfor- 
mance, MERGE-IIITM properly handles files sorted 

1 by any combination of fields, including numerics, 
with each field in ascending or descending order. 

iMTC AIDS MERGE-III™ $19.95 

I For Model II $29.95 



THE COMPLETE 

MTCAIDS-llh 

PACKAGE 



Includes MTC AIDS-HI™ 
CALCS-III TV and MERGE-III™ 

A comprehensive system 
at a competitive price! 

MODELI&III $99.95 

MODEL II $149.95 

AddS25forCALCS-IVTM 



Compare AIDS-lll™/CALCS-lll"' with any other data management package under $100! 
CALCS-III M REQUIRES THE PURCHASE OF AIDS-III " 



MORE 

PRODUCTS 



TRS-80 is a trademark ol the 

Radio Shack Division ol Tandy 

Corporation. DATALIFE is a 

trademark ot VERBATIM PLAIN 

JANE. AIDS-I AIDS-III. CALCS-III. 

CALCS-IV. MERGE-III are 

trademarks ol MTC 
1981 by Metatechnologies 
Corporation. Inc 



MOST ORDERS 

SHIPPED WITHIN 

ONE BUSINESS DAY 

Products damaged in 
transit will be exchanged. 



Ik 



PRICES IN EFFECT 

October 1, 1981 THRU 

October 31, 1981. 

Prices. Specifications. 

and Offerings subject to 

change without notice. 

8110 



WE ACCEPT 

• VISA 

• MASTER CHARGE 

• CHECKS 

• MONEY ORDERS 

• C 00 



II 



•Add $3.00 for shipping 

& handling 

•S3.00 EXTRA for COD. 
• Ohio residents add 5' i°'° 

sales tax. 



£ft:NPUT 



One glaring incidence is in "UPDATE/ 
DTA", line 1420 which reads: For P39 = 1 
70 80. 

This error occurs several times. I am 
sure that something else was meant, but 
what? 

Another is in "STOCKyANA," lines 170 
to 180: 170 SP = ((P(A)-PZ)[2 + SP. It 
should probably be: SP = ((P(A) - PZ) 
[2 + SP). Ditto for line 190. 

In the program named "BREADTH/ 
MKT" there is a mistake in the establish- 
ment of the value of L. I think that the 
problem is in lines 360-380, but not know- 
ing what the author meant I'm not sure. 

Also trading volume as written pro- 
duces nothing but a series of #'s and + 's 
on the printer. 

I am sure that there are other mistakes 
but I have to get past these first. I sure do 
wish that these programs were tested 
before being published. It sure would save 
a lot of aggravation. 

Also in the program "Real Rule of 78s" 
the Stop statement should not be in the 
program if it is to continue. 

Richard Eidmann 
Philadelphia, PA 



Bad Listings 



With the renumbering utilities around, 
why can't you clean up the listings you 
publish? S. Hunter's "Sans Disks" (April 
1981, p. 186) is a case in point 

Robert McDaniel 
Clifton, NJ 

Your point is well taken. However, re 
numbering programs may involve re-wnt- 
ing a whole manuscript so that references 
to the program still make sense. It's really 
up to program authors to submit their pro- 
grams to the magazine in as tidy a form as 
possible.— the Editors. 

Computers for the Needy 

Santuary, Inc. is a non-profit, non- 
sectarian organization which aids young- 
sters who have special problems. They are 
placed in the home for guidance and 
counseling. The home is staffed by pro- 
fessionals dedicated to assisting young 
adults. The school is a public institution 
which is operated on what little federal 
funds are available and on private dona- 
tions. Neediess to say, the funds are not 
sufficient to sustain the children's needs. 

I am not affiliated with the school; how- 
ever, I know its director, Sister Albina Guil 
lory, M.S.C. She has told me of their lack 



of educations equipment, personnel and 
operating funds. She has worked actively 
just to keep the home open. Its over-ex- 
tended facilities are in need of annexa- 
tion. She says that the demands on the 
school far exceed its capabilities. 

I suggested to her that I would write a 
number of microcomputing magazines for 
assistance from its readers. You already 
know the capabilities of computers in ed- 
ucation. I know that you can see the add- 
ed advantages of CAI to special students 
who need that added patience and en- 
couragement that few teachers are able 
to devote to their students on an indivi- 
dual basis. 

If your readers would be able to help 
these youngsters in any way, I know that 
Sister Albina would be more than grateful 
to them. Please remind the readers that 
their donations are tax deductible and 
that the rewards of satisfaction from as- 
sisting these kids are well worth their ef- 
forts. 

For those of you who would wish to 
send contributions of hardware, software, 
firmware or other assistance, please mail 
it to: 

Santuary, Inc 
1i?0 Fair St 
Eunice, LA 70535 
1 318-546-0551 

Thank you for your consideration in this 
matter. 

Roger C. Bull 
Gretna, LA 



Say What? 



I have a few comments on "Regression 
and Correlation" by C. Brian Honess (July 
1981). 

When you fit a set of points (X,Y) to a 
polynomial model (i.e. Y 1 = Eb, - x, + a), it 
is normally called "polynomial regression" 
and is distinct from nonlinear regression. 
In the latter, the nonlinearity refers to the 
relationships among the fitting param- 
eters, not the linearity of the model itself. 
Thus, any function of the form Y 1 = Ef,(X)b; 
+ a is linear in the fitting parameters (a 
and b,). A nonlinear model that is nonli- 
near in the parameters is any function 
that cannot be formulated in this manner. 
For example, Y = be -xb2 is nonlinear in 
the parameters. Note, however, that this 
particular function can be made linear 
through the use of a logarithmic trans- 
formation, e.g.: log Y = log(b,e - * D 2) = 
log(b,)~b 2 log(x). 

Also, the method used to extract deter- 
minates is archaic. A much better method 
is to use Gauss-Jordan elimination to im- 
plement an upper triangular matrix trans- 



formation. This method is simpler, faster 
and easy to program. It also allows expan- 
sion to any size square matrix without 
rewriting the program, whereas the algor- 
ithm presented here is size dependent. 

I am glad to see that your fine publica- 
tion includes an occasional article tnat 
deals with mathematics. I hope this trend 
continues. 

Bruce Douglass 

Dept. of Physiology 

University of South Dakota 

Vermillion, SD 



Subscript Reconsidered 



Thank you very much for reviewing our 
Subedit/Subscript Word Processing soft- 
ware in the June issue. We appreciate the 
coverage and the encouragement you've 
given us, but regret that some of the inac- 
curacies and omissions in the article mis 
led many of your readers and cost us a 
number of sales We know this was mad 
vertant, and to mend some of the damage, 
we would like an opportunity to offer 
some clarification and updated informa- 
tion. 

You indicated that Subedit/Subscript is 
written in Basic. However, Basic com- 
prises less than 50 percent of that pack- 
age (and only about a third of its succes- 
sor, Newscript). The text formatting rou- 
tines and the keyboard interface (Mininit) 
are in machine language. As a result, the 
system can keep up with any typist (2500 
wpm, which is faster than the TRS-80 nor- 
mally runs), and drive a 100 CPS printer at 
full speed most of the time. We used Basic 
for file I/O, storage management and 
printer tailoring; and machine language 
for speed. The combination is ideal: it 
makes it easy for us to distribute correc- 
tions, and easy for our customers to taiior 
Subscript to unusual needs. Given these 
speeds, there is little reason to convert the 
rest of the package to machine language. 
Since we encourage our customers to 
make backups, we saw no need to use ma- 
chine language just to protect the code. 

Of course, the original claim to fame of 
Subscript is its support for the Line Printer 
IV (Centronics 737): Subscript automati- 
cally performs right-justification of pro- 
portional font, allows inter-mixing of dou- 
ble- and single-width characters, performs 
underlining and does sub-scripts and su- 
per-scripts. It was the first TRS-80 Word 
Processor to offer these features, but the 
review article unfortunately didn't men- 
tion any of this support. We do thank you 
for describing how thoroughly we support 

Continued on page 16 
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META TECHNOLOGIES 

26111 Brush Avenue, Euclid Ohio 44132 
CALL TOLL FREE 1 800-321 -3552 TO ORDER 

IN OHIO, call (216) 289-7500 (COLLECT) 



Let your TRS-80"' Teach You 

ASSEMBLY 
LANGUAGE 

iREMSOFT's unique package, "INTRODUCTION 

J TO TRS-80- ASSEMBLY PROGRAMMING" in 

eludes ten 45-minute lessons on audio cassettes, a 

display program for each lesson providing illustra- 

I tion & reinforcement, and a text book on TRS-80" 

I Assembly Language Programming. Includes use- 

| ful routines to access keyboard, video, printer and 

ROM. Requires 16K Level II. Model I. 

REMASSEM-1 $69.95 

FOR DISK SYSTEMS $74.95 



Let Your TRS-80 1 " Teach You 

(ASSEMBLY LANGUAGE 
DISK I/O TECHNIQUES 

IREMSOFT does it again! REMDISK-1 is a concise, 
Icapsulated supplement to REMASSEM-1. Package 
I consists of two 45-minute lessons on audio casset- 
tes and display programs providing illustration 
land reinforcement. Provides specific track and 
[sector I/O techniques, and sequential and random 
Ifile access methods and routines. 



N E WDOS/80 Version 2.0 



$139 



SPECIAL 
95 INTRODUCTORY 
PRICE 



Apparat's long-awaited successor to NEWDOS+ is here! This is not an enhanced ver- 
sion of NEWDOS, but a completely new product. Simplified DOS commands can be in- 
stantly executed from BASIC, even within a program, without disturbing the resident 
code. System options, such as password protection, number and type of disk drives, 
BREAK key enable/disable and lowercase modification recognition, can be quickly and 
easily changed. Five new random-access file types allow record lengths of up to 4096 
bytes, and no FIELDing! A powerful CHAIN facility allows keyboard INPUTs to be read 
from a disk file. An improved RENUMBER facility permits groups of statements to be 
relocated within program code. Diskettes may even be designated as RUN-ONLY! 
Features all NEWDOS + utilities (SUPERZAP 3 0. etc.) and much more! One MTC 
technical staff member said having NEWDOS 80 is better than sex" (you'll have to 
judge for yourself!). 

MODEL III VERSION 
Has all the features of the Model I version plus enhancements. Allows any mix of 
single- or dual-sided 40- or 80-track disk drives. Most BASIC and many machine 
code programs written for the Model I will run without modification. Includes a 
utility for converting Model I single density to Model III double density. 



REMDISK 1 



$29.95 || NEWDOS/80# SPECIAL #. 

CALL REGARDING OUR UPGRADE PRICING 



S139.95 



MICROPARAPHERNALIA 

DISKETTES (box of ten) 

5'V PLAIN JANE™ $21.95 

5' «" PLAIN JANETM //,./</ $25.95 

5V4" DATALIFE™ MD 525-01 . . $26.95 
8" DATALIFE™ FD34-8000 .... $43.95 

NEWDOS by APPARAT 

NEWDOS/80byApparat . ..,$139.95 

NEWDOSUPGRADE CALL 

NEWDOS + with ALL UTILITIES 

35-track $69.95 

40-track $79.95 

BOOKS 

TRS-80™ DISK 

AND OTHER MYSTERIES . . $19.95 
MICROSOFT™ BASIC DECODED $29.95 
1001 THINGS TO DO WITH YOUR 

PERSONAL COMPUTER .... $ 7.95 



Michael Shrayer's 

ELECTRIC PENCIL 
VERSION II 



Model 



for 

and Model III 



An expanded version of the critically ac 
claimed original word processing system! 
Includes all features of Version I plus many 
new extensions. Runs under most disk 
operating systems, has improved video 
text handling, loads any ASCII file for 
editing (including BASIC files), single sheet 
mode for printing on letterhead and more! 
Simple to use. features 2-key commands. 
An incredible package at an incredible 
price! 

SPECIFY MODEL I OR III 

Disk Version $79.95 

Tape Version $69.95 

CALL FOR AVAILABILITY 



Complete for Model I with all utilities 
Plus exclusive MTC QUE card! 

NEWDOS + 



$69 



95 



by Apparat 



Includes REF. RENUM, SUPERZAP, 
EDITOR ASSEM . DISASSEM., DIRCHECK, and 
more! This is the original NEWDOS with all of 
Apparat's utility programs. Includes exclusive 
MTC QUE (Quick User Education) card. 

40-Track Version $79.95 

MTC QUE Card only $ 1.50 



TRS 80 is a trademark of the 

Radio Shack Division ol Tandy 

Corporation OATAUFE is a 

trademark ol VERBATIM PLAIN 

JANF AIDS I AIDS III. CALCS III 

CALCS-IV MERGE III are 

trademarks ol MTC 
1981 uy Metateihno'uisies 
Corporation, Inc 



MOST ORDERS 

SHIPPED WITHIN 

ONE BUSINESS DAY 

Products damaged in 
transit will be exchanged 



PRICES IN EFFECT 

October 1, 1981 THRU 

October 31, 1981. 

Prices, Specifications, 

and Offerings subject to 

, change without notice 

81)0 



WE ACCEPT 

• VISA 

• MASTER CHARGE 

• CHECKS 

• MONEY ORDERS 
•COD 



• Add S3.00for shipping 

& handling 

•53 00 EXTRA for CO D. 
•Ohio residents add 6" 2 % 

sales tax 



$Q INPUT 



the MX-80, and wish to mention we also 
support the Diablo 1620, Selectric and oth- 
er similar printers. We also were the first 
company to otter and deliver disk-based 
word processing for the TRS-80 Model III. 

The review did identify a characteristic 
of Subedit that some people found annoy- 
ing: the need to hit Enter after every 255 
characters. I'm one of those people, and 
as the author, was in a position to do 
something about it! The result was New- 
script, with a full-screen editor modelled 
after IBM'S Edgar and SPF, and which 
takes advantage of the unique abilities of 
the TRS-80. By coincidence, our first ad 
for Newscript was run in the same issue 
as your review article. I'm not sure if the ad 
overcame the effects of the article or was 
discredited by it. . .I only wish you had 
looked at your own advertising before run- 
ning the article, or called us to verify its 
accuracy. 

Newscript has all 50 of the formatting 
features of Subscript, plus some new 
ones. However, most of its enhancements 
are in the text entry and revision areas 
(Editing). The Mininit keyboard interface is 
built-in. The Full-Screen editor (written in 
machine language) scrolls, has a Whoops 
command, opens windows, moves words 
to the next line of the screen, allows the 
cursor to be placed anyplace on the 
screen, and permits insertion, deletion 
and overlaying of data directly at the cur- 
sor position. With its standard typeahead 
feature, Newscript can accept over 750 
keystrokes per second (that's 7500 words 
per minute, which is probably fast enough 
for most of us) without ever losing a key 
stroke even at the end of a line. I mention 
all this mostly to lay to rest any notions 
some people may have about the slow- 
ness of Basic or the TRS-80: properly pro 
grammed, (as we have done), it's as fast 
as a small mainframe computer! 

Chuck Tesler 

Prosoft 

North Hollywood, CA 

Shell Sort Looped 



It is said that each type of sort has its 
advantages and disadvantages. The Bub- 
ble sort is the slowest, however it takes 
the least amount of programming effort 
and space. The Shell-Metzner sort is one 
of the fastest and most practical sorts to 
use, but it takes a lot of program space. 

I personally have found the Shell sort to 
be the best. I see no reason why it must 
take up so much space. In every book or 
magazine where I have seen a Shell sort 
listed, it is always in a longhand program 
style. I don't understand why no one has 



been creative enough to put the Shell- 
Metzner sort in For. . . Next loop form, but 
this routine took me a few short minutes 
to put together from the standard Shell 
sort flow chart. 

Steven Graham 
Forest Hills, NY 



Memory Lapse 



I have reached the point of pure sick- 
ness at Radio Shack. They try to get you to 
buy their software and hardware, but 
when you upgrade to disk and go to trans- 
fer the programs you have such as Pyra- 
mid, Invasion Force, and Eliza to disk they 
tell you you need the memory addresses, 
and even when you need to relocate them 
Radio Shack doesn't lift a finger to help 
you. 

We trusted Radio Shack with our hard- 
earned money for their computer, and 
they slapped us in the face with the used 
car salesman "Trust me" routine. It's time 
to remind Radio Shack that we are paying 
for their goods, and without us they'd 
crumble. 



Robert Rose 
Oakland Park, FL 



Just What He Needed 

Mr. Rose's complaint is a valid one; I'm 
sorry we haven't taken care of this one 
sooner. 
Here's a list of the necessary addresses: 



Micromovie— (MOVIE) 
Eliza— (ELIZA) 

Talking Eliza— (ELIZA) 
Mxruchess (CHESS) 



Micromerquee- (MARQ) 
Invasion Force— (INVADE) 
F.ying Saucer— (SAUCER) 
Editor Assembler— (EDTASM) 
TBUG L = lll — (TBUG) 
In-Memory 
Initialization 
L-ll — (INITLZ) 



Stan Eno Entry 

4300 4CFF 4300 
5000 7800 5000 
4600 7CO0 4600 
cannot load on 
disk, special load- 
ing format 
4A00 4FFF 4B00 
5000 7100 5000 
42EA 4FFA 42EA 
4300 5D40 468 A 
4380 4824 43A0 



4380 478C 4380 



Retrieval 

L-ll— (RETREV) 
Sort L-ll -(SORT) 
Checkers 80— (CKRS80) 
Program Conversion— (CONV) 
Data Conversion— (DCONV) 
Micromuslc — (MUSIC) 



4380 4B8C 4380 

4380 46DE 4380 

5000 7700 5000 

4AF6 4FD7 4AF6 

4300 4525 4300 

4300 4970 4300 



Renumbering Program-(RENUM) 7C4C 7FC6 7C4C 

Term-(TERM) 5000 50BF 5000 

Pyramid-(PYRMD) 4300 7FFE 4300 

Haunted House- (HAUNT) 42E9 4FFF 42E9 

Scnpsit Cassette -(SCRIPS) 4300 69C5 4300 
Upper & Lower Case Driver 

Basic-(ULCBAS) 6C00 7015 6CO0 

Disk— (ULCDVR) 7000 73FF 7000 

Bill Waiters 

Consumer Information Manager 

Tandy /Radio Shack 

Fort Worth, TX 



OP Code Change 

After reading Brian Cameron's article 
"Undocumented Instructions" (July 1981), 
I began looking through op code tables 
out of curiosity to verify some of the 
codes. They are indeed undocumented. 
After further researching, I found that Mr. 
Cameron's title of 'DUPINC for the in- 
struction to multiply by two and increment 
is actually SLL' (Shift Left, Logical). The 
other op codes he names appear correct. 

Just for the record, I'm 16 years old. 

P. Griffith 
Tampa, FL 

Reversing Graphics 

Regarding your article on graphics 
codes ("Unlocking the Graphics Code," 
June 1981), there is third application. 
Through a little math, a graphics pattern 
can be reversed— exchange black for 
white and vice versa. To see how this 
works (Model I and Model III), type in the 
following: 

10CLS: forX^128to191: PRINT® o,x;: POKE 15365, 
x 20 POKE 15370. 191 - (PEEK(15365) - 128): FORY = 1 
to 300. NEXTY.X. 

The contents of 15365 are reversed and 
POKEd to 15370. To reverse all graphics 
on the screen, use the subroutine: 10000 

Continued on page 20 



1000 SHELL-METZNER SORT SUBROUTINE 

A$( ) - -THE LIST TO BE SORTED 

NE- — THE NUMBER OF ELEMENTS IN THE LIST 
1010 M = NE 

1020 M = INT(M/2):IF M = THEN RETURN 

1030 FOR I = 1 TO M : FOR J = I TO NE - M;1 - M STEP M : FOR K = J + MTONE-M + 1 STEP M 
1040 IF A$(J)>A$(K) THEN T$ = A$(J):A$(J) = A$(K):A$(K) = T$ 
1050 NEXT K.J.LGOTO 1020 



Program Listing 
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DATA RESOURCES 



Dff 



QUALITY SOFTWARE FOR YOUR TRS-80® 
TO ORDER CALL TOLL FREE 800 



DISK SYSTEM 
525-7958 



BIONIC BASIC 

The BIONIC BASIC routines implement a numberof 
useful commands and functions that are not available 
in regular BASIC. BIONIC BASIC appends these 
routines to the BASIC/CMD file so that they load 
automatically every time Disk BASIC is entered. The 
BIONIC BASIC modules will not require reserved 
memory, they are resident in memory wheneverDisk 
BASIC is being used. 

RESTORE data statements for reuse indivdually 
MOVE a block of data in memory from place to place 
SHIFT a string to all upper or lower case 
FLASH will turn a flashing cursor ON or OFF 
REPEAT function of the keyboard ON or OFF. 
LOAD a BASIC program without losing variables. 
GOSUB statements execute at computed lines. 
SEARCH a program for occurrences of a string. 
LINES of a program can be moved to new locations. 
COMPRESS spaces, remarks from a program. 
SORT any array in ascending or descending order. 
REDIMension any array of list of arrays. 
LOOKUP occurrences within arrays of special data. 

STARTER PACKAGE $49.95 

COMPLETE BIONIC BASIC $74.95 



&* 



V 



UNITERM/80 



to. 



By Pete Roberts 
This is the state of the art in communications software. 
It configures itself for either Mode! I or Model III and 
can be used with any standard modem, both RS 232 
and Bus-Decoding. Especially designed to use the 
extended commands in NEWDOS/80, but fully com- 
patible with all major DOS systems. Features fully 
table driven configuration that can be easily custom- 
ized 'or any communications need. 

For Model I and III $89.00 

MODEL I DOUBLE DENSITY PACKAGE 
NEWDOS/80 Version 2.0 and the LNDOUBLER 

Everything you need to convert yourTRS-80 Model I 
to run double density. Complete with software, hard- 
ware, and instructions, - installs in minutes with NO 
SOLDERING, WIRING OR CUTTING ...$229.95 
LNDOUBLER Alone $149.95 

NEWDOS/80 version 2.0 alone $149.00 



MTC AIDS- III 

The best of Meta Technologies family of data man- 
agement systems. This easy to use system allows 
even a novice TRS-80 user to create data files 
custom configured for many applications, from lists 
for mailing and cataloging to financial reporting and 
time scheduling. Easy to customize without pro- 
gramming, it is complete with features for adding, 
deleting, sorting, updating and printing. The flexibil- 
ity will make it one of your most useful software 
purchases. Included FREE is the MTC Aids Print Sub- 
system (MAPS), a powerful report generator. 

MODEL I $69.95 

MODEL II $99.95 



MTC MERGE - III 

Combines up to 14 AIDS data files into a single file. 
Duplicates may optionally be purged, and sorted 
order of records is maintained. Machine code for 
speed makes this useful if large data files are to be 
created from smaller ones. 

Model I $19.95 

Model II $29.95 

MTCCALCS III 

Handles numeric calculation of data contained in 
AIDS files. Ideal for reports on financial applications. 
Data from more than one file may be analyzed. 

Model I $24.95 

Model II $39.95 



SEE THf REVIEW IN AUGUST 80 MICROCOMPUTING 

DATA RESOURCES SPECIAL - AIDS - III SUPER SYSTEM 

AIDS - III + CALCS - III + MERGE - III 
SAVE * * buy all three at one low price 



Model I $99.95 



Model II $149.95 



lave long Known :ho m 
I diagnostic software in 
;omputei hardware The 
id diagnostics ; j :< ,i must 
ab e date ' les re ma n 



Computet professionals 
portance ol regu at use 
verifying iht; nlegnty of 
TRS 80 is tic- exception g 

•■ any situation where valua 

lamed The MICRO CI iNiC offers two programs ■ >•• 

• lined to thorough y check out the two most troub •■ 
prone sections oi the rRS 80 the disk system (con 
Iro lor and drives) and the memory arrays 

FLOPPY DISK DIAGNOSTIC 

is the most complete diagnostic program 
availab.e for the TRS-80 disk system, and 
could be the most important porgram in your 
software; I brary 1 his program provides a pos 
itive means for thoroughly checking out the 
disk controller circuits and disk drives In 
•:: uded is a test of the accuracy of the drive 
moto' speed, allowing ad)ustment From ono 
to four drives can be tested .it the same time 
35. 40. and JO tracks, single or double 
dens.ty with the LNDOUBLER or PERCOM 
DOUBLER. 

MEMORY DIAGNOSTIC is 

broken down into two bas-c tests, the con 
ventional write/read test and the M ! Worm 
test. Tne WRITE/READ TEST portion of the 
diagnostic performs a comprehensive check 
on the ability of each memory location to store 
and retain data The M-1 WORM TEST is the 
most critical m regard to memory timing and 
worms" its way through memory 
BOTH PROGRAMS 

MODEL I $24.95 

MODEL III $29.95 



MICRO ACCOUNTING SYSTEM 

This is the finest accounting system avail- 
able for yourTRS-80. Ideal for small business, 
this Integrated General Ledger, Accounts 
Receiveable. Payable System includes a 
Checkbook manager. 

We offer something no other general 
business package can give you -a money 
back guarantee. If you are not totally 
satisfied return the package within 60 
days and receive a full refund. Write for 
sample reports and full descriptions. 
MAS/80 complete $489.00 



DISKETTES 

Soft-Sectored 5V*" 40 Track Double density 
Replacement GUARANTEED for 1 year 

We will replace at no charge ANY diskette returned to us 

VERBATIM DATA LIFE $26.95 

GENERIC in a plastic box of 10 $22.95 

GENERIC box of 100 $200.00 



FLIPSORT 

The DISKETTE FILE BOX 

that stores more than 50 diskettes 

dust free and protected 

5V4 $1 9.95 8 $24.95 

purchase a 5 1 A" FLIPSORT with 50 GENERIC disks 
SPECIAL DISCOUNT PRICE $119.95 



A& 



MASTERCARD « 
AND VISA JJJ 
WELCOME 
We also accept 
COD • CHECKS 
MONEY ORDERS 



Data Resources Corporation. 

Business & Professional Center 

8000 East Quincy Ave 

Denver. Colorado 80237 (303)773-6665 



ALL SOFTWARE SUPPLIED ON DISKETTE. 
ORDERS IN U.S.A. SHIPPED U.P.S. FREE. 
Colorado residents add 6'/2% sales tax, 

ATTN: DEALERS - We offer attractive pricing and terms to small 
computer retailers. Write for information on our dealer program and 
discounts in small quantities. 



Prices 
' CALCS II 



'981 DATA RESOURCES CORP 
TRS-80' IS A TRADEMARK OF TANDY CORP 
n effect Oct 1. 19S1 to Oct 30. '981 ana subiect to changes 
.' MERGE III,' ARE TRADEMARKS OF METATECHNOlOGlES 



■See List ol Advertisers on page 386 
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60 MICROCOMPUTING 
AKKOUNCES... 




. . . and saves you hours of typing and aggravation. 

LOAD-80 is a monthly dump of the major program listings in 80 Microcomputing on cassette. 
Publisher Wayne Green tells you more . . . 



"Frankly, after hundreds of hours of 
frustration, I seldom even try to keyboard a 
published program. Even if the magazine 
manages to get the program typeset correctly 
(which seems rare), I inevitably screw it up 
when I keyboard it. Who needs the aggrava- 
tion? 

"This is why I've started a new series of 
cassettes called Load 80. Each cassette will 
have program dumps of the listings in an 
issue of 80 Microcomputing. These listings 
are direct from the authors and tested by the 
80 staff. All but the very short program 
listings will be on these Load 80 cassettes. 
Thus you will be able to save hours of input- 
ting programs and even more of debugging 
your key boarding errors. 



"Though the authors of these programs 
will share the royalties from the sale of the 
cassettes, this will not preclude the better 
programs from being issued separately by In- 
stant Software (with royalties) with full 
documentation and associated hoopla. The 
documentation for the Load 80 programs 
will be entirely in 80 Microcomputing. 

"I originally was holding out for "Trash 
Dump" as a name for the cassettes, but cooler 
heads prevailed. If there turns out to be 
enough interest in Load 80, we'll set up a 
monthly subscription arrangement." 

Wayne Green, Publisher 



The Load-80 cassette is simply the program listings that appear in the articles in 80 Microcomputing. It was created to save 
you the time involved in typing in the listings yourself. Successful loading of the programs depends on reading the documen- 
tation in the articles. If you have your current magazine at hand when you load the cassette, you should have no difficulty. If 
you still have problems, please return the tape for a replacement. 



r 



Send in the attached card and you will 
receive the cassette for the major pro- 
grams in this issue. If the card is gone, 
photocopy the coupon. 

Add SI.0O per cassette for postage and handling. 

Please note (here is no warranty expressed or implied thai this progr a 
is going to do anything othet than base you typing. 



CD Yes- • send my LOAD 80 Cassette for only $9.95 

□ Check Enclosed Bill my □ AE □ MC □ VISA 

NAME 



ADDRESS 
CITY 



STATE, 



ZIP. 



CARD# 

SIGNATURE. 



_ EXPIRE DATE„ 



INTERBANK*. 



Please allow 4-6 weeks tor delivery 

80 Microcomputing Pine Street Peterborough NH 03458 

At1n : Debra L Boudrleau 
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Broker Botches 



I have found an error in one of the 
listings contained in my article "The 
Software Broker" which appeared in 
the June 1981 issue of 80 Microcom- 
puting. In the 'MOVING/AVE' program 
(Listing 4), line 200 now reads: 200 
A = Q + 1 . This should be changed to: 
200Q = Q + 1:AV = 0. 

I am sorry if this has created a prob- 
lem for any of your readers. 

John Harper 

Rte. #7 Box 252 

Lawrenceburg, IN 47025 



Hi- Res Help 



The April 1981 issue of 80 Microcom- 
puting had one error in the "High 
Resolution Video Interface" article. 
The headlines should have read 192 by 
96, not 192 by 26. Also, the schematic 
shows a 5257 or 4041 as the memory 
chips. The 4041 is getting difficult to 
find so use the TMS-4044, MM-5257 or 
INTEL 2147. 

Several recurrent questions have 
come up that I would like to take the 
opportunity to answer. The size of the 
HR-1 board is 3 by 7 and 7/8 inches. 
Second, the size of the smallest dot is 
equivalent to the size of the period on 
the TRS-80 CRT and 18,432 of them can 
be defined anywhere on the screen. 
The normal TRS-80 graphics can de- 
fine only 6144 individual dots. 

Third, is the complete (assembled) 
unit available? At this time, only the 
circuit board is available. However, 
there is a company in Augusta, GA, 
Cardin and Associates, that is consid- 
ering supplying kits and fully assem- 
bled boards. Judicious buying should 
allow you to gather all the parts (in- 
cluding circuit board) for $75 to $80. 
The six memory chips are the most ex- 
pensive items. Some distributors want 
up to $16 each for these ICs, but they 
are available for less than $5 each from 

Continued on page 22 



Dirprog Update 



In the August 1981 issue of 80 Microcomputing, we published an article 
called Dirprog by Jack Egbert. Unfortunately, we ran an older version of the 
program. The program listing here is the updated (better) version of Dir- 
prog. We hope this eliminates any confusion publishing the older version 
may have caused: 



20 ' A PROGRAM TO MAINTAIN A DISK DIRECTOR* INDEX FILE 
30 : 

48 ' VERIFY CSF4B/OBJ IS IN MEMORY, INITIALIZE IT 
50 IF PEEK(SHFE80| O205 Oh PEEKUHFFA0) <>26 CLS : PRINT3192 , 
" ** GSF4B/OBJ NOT LOADED ** 



:WF=0 ' WRITE FLAOWF 



LOAD GSF48/OBJ AND THEN DIRPROG" : PRINT390 ,: END 

60 DEPUSR-SHFE80 : CLEAR: POKE -1,0 

70 AS = "" :DN5 = " " sE$""" :SWS="" : TI $="" :TP$=" 

80 CLEAR 16000:DIM HNS ( 9 52) , DNS ( 952) 

90 DEFINT J,X :XX = 

1 MENU": PRINT 

READ FILE FROM DISK" 
WRITE INDEX FILE TO DISK" 

■ ADD TO FILE" 

■ DELETE" 
SORT AND OPTIONALLY PRINT-OUT FILE" 

• FIND A PROGRAM" 

■ LIST BY DISK IDENTIFIER" 

■ VIEW A DISK'S DIRECTORY" 
- EXIT THE PROGRAM SAVING INDEX" 

200 PRINT: PRINT" INPUT YOUR SELECTION . . . .":GOSUB 166 

210 IF A$="R" GOSUB 930:GUTO 100 

220 IF AS="W" GOSUB 830:GOTO 100 

230 IF AS="A" GOSUB 350:GOTO 100 

240 IF AS="D" GOSUR 580:GOTO 100 

250 IF AS-="S" GOSUB 105B:COTO 100 

260 IF A$="F" GOSUB 67fl:GOTO 100 



30 CI,S:PRINTgl56,' 

110 PRINT, "< R > — 

120 PRINT, "< W > -- 

130 PRINT, "< A > -- 

140 PRINT, "< D "> -- 

150 PRINT,"-: S > — 

160 PRINT, "< F > — 

170 PRINT, "< L > — 

180 PRINT, "< V > -- 
PRINT,' 



270 


IF AS="L" GOSUB 1320:GOTO JdB 




280 


'.F AS="V" GOSUB 1400:GOTO 100 




290 


IF A$="E" GOSUB 850:CLS:END 




300 


GOTO 200 




310 


'*** SUBROUTINES *** 




320 


1 




330 


'** SUB ** ADD DISK TO 


'ILK 









330 CLS: PRINT: PRINT, "INSERT DISK ": PRINT: XX=XX+1 

360 PRINT"ENTER DISK NO. - HIT (TAB) - THEN ENTER TITLE OF DISK" 

370 PRINT:LINEINPUT DNS(XX! :WF=1 

380 CMD"DIR :1" ' ** USE - CMD"DIR :0" - FOR ONLY ONE DRIVE 

390 DN$-LEFTS(DNS(XX) , 4 ) : PNS ( XX) =" I " 

400 SP*15488 :Z = :PN$="" 

410 XX=XX-» 1 :DN$ (XX! =BNS:GOSUB 500 

420 IF PEEK(15488)=32 THEN PNS(XX)="« "+MIDS (DNS (XX-1) , 9 , 11) :GOTO460 

430 IF Z=-l THEN XX=XX-l:GOT0 460 

440 IF Z/3 = INT(Z/3) THEN SP=SP+24 ELSE SP=SP+20 

450 GOTO 410 

460 PRINT :PR1NT"T0 ENTER ANOTHER DISK — HIT < A >" 

470 GOSUB 1450 

480 IF AS="A" GOTO 350 

490 IF AS=CHRS(13) THEN RETURN ELSE GOTO 460 

500 IF CHRSIPEEK(SP) ) -" " THEN Z--1: RETURN 

510 LO=PEEK(16598) : H I = PEEK ( 16599 ) 

520 FOR X = 0TO11:PN$ = PNS+CHRS(PEEK(SP + X) ) :IF CHRS ( PEEK ( SP+X) ) =" " THEN X=ll 

530 NEXT X:POKE 16598 ,LO : POKE 16599, HI 

5 40 PNS (XX) =PN$:PNS="" : Z=Z+1: RETURN 

550 : 

560 ' ** SUB ** DELETE A DISK FROM INDEX 

580 CLS:PRINT 

590 INPUT"WHAT IS THE NO. OF THE DISK YOU WANT TO DELETE ";DNS 

600 WF=1 :C[.S:PRINT?340, "WORKING . . . ." 

610 FOR J=l TO XX 

620 IF LEFTS(DNSIJ) ,4)=LEFTS(DNS,4) THEN DNS ( J ) ■=" Z Z " : PUS ( J) ="ZZ" 

630 NEXT J 

640 CLS:PRINT0330,"DISK NO. — ";DNSi" — IS DELETED" 

650 GOTO 1450 

660 : 

670 ' ** SUB ** TO FIND A PROGRAM 



590 CLS :PRINT§192, "ENTER T*TLE OF PROGRAM TO SEARCH FOR 
!00 PRINT:LINE1NPUT TIS 



Continued on page 20 
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SO INPUT 



FOR X= 15360 to 16383: POKE X, 
191 - (PEEK (X) - 128): NEXT : RETURN. If 
the screen contains some alphanumeric 
characters, add "IF PEEK (XK128 THEN 
NEXT ELSE" before the word "POKE". 
When graphics are stored in strings (in 
A$), reversal would be: 

1000 Bfc"": F"ORX= (o LEN (AS): BJ-BS + CHRS 
(191 -(ASQMID$(A,X,1|) 128)): NEXT. 

Also similar routines could be used to 
exchange characters for graphics and 
vice versa, exchange uppercase for lower- 
case and vice versa, or to use INKEYS to 
print graphics. 

Marc Brumlik 

Computer Marketing 

Radio Shack 

Groveport, OH 43125 



On Time Fix 



In reference to the article "Soft Tach" 
(June 1981), I would like to point out that 
the program may hang up if the disk motor 
on time is less than the time required for 
12 revolutions. The motor on time is nomi- 
nally 2.6 seconds and the time required for 
12 revolutions is 2.4 seconds at 300 rpm. 

However, due to component tolerances, 
the on time may be shorter, and also the 
first revolution of the disk will be slower 
than 300 rpm. 

An easy fix is to reduce the total num- 
ber of revolutions. For seven revolutions 
change the 24 in line 90 to 14, and change 
the following lines: 

230 FOR N = 1 TO 5 
390 AV = RT/5 

This will give an average of five disk 
revolutions. 

David Cheney 

Lachine, Quebec 

Canada 



An A for Alpha 



I recently received excellent service 
from the Alpha Product Company. 

I placed a telephone order and had the 
merchandise in a few days. It wasn't quite 
the right thing, unfortunately, so I re- 
turned the item. With equal speed, checks 
arrived for the refund and shipping costs. I 
was pleased by the service, speed and 
honesty. I will certainly look to Alpha for 
my future needs, and I II recommend them 
to others without hesitation. 



Robert A. Martin 
Albuquerque, NM 
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Program continued 

710 CLS:PRINT0335, "SEARCHING FOR : " ;TIS: PRINT : PRINT 

720 PRINTTABI5) "TITLE" ; TAB ( 28) "DISK *: PRINTSTR1NCS( 34 , "-") 

738 FOR ,l»: TO XX 

748 Q-INSTR(PN$(J) ,TIS) :IP 0-0 THEN 763 

759 IF TIS-MIDS(PNS(J) ,Q,LEN(TI$) ) THEN PHINTTABI 5) PNS ( J) s TAB ( 20) LEFT 

•I.,' NEXT J:PRINT:PRINT 



778 IF XX-8 TBEN PRINT"** 

788 PRINT"TKAT IS ALL 111 
798 GOS0B 16EE: RETURN 



DISK INDEX FILE NOT LOADED !! 

— - HIT •JENTER? FOR MENU . , 



DM J (J) 
PRINT099B, lEHD 



.-.IT. 



WI..T-- .•.:■<:■: -us. v> "i; .:- 



818 

8.10 ' - -1MMMMMW 

830 CLS: PRINT: PP.TST'MAKE PREPARATIONS FOR OUTPUT TO DISK . . 

840 PRI NT 1 PRINT, •WHEN READY — HIT <BNTER> . . . ":GOSUB 160S 

858 IF WP-B RETURN ELSE OPEH'O" , 1 , "Dl SKINDX" 

86B CLS:PRINTg340, "WRITING FILE TO DISK . . ." 

870 PRINT»l,XX:FORX-l TO XX : PPI NT» 1 , DNS ( X );","; PNS (XI : NEXT X 

888 CLOSEtCLSsPRINT§335, "TRANSFER TO DISK COMPLETED" 

893 HF=B:GOT0 145E 

9EB : 

918 ' ** SUB •« READ INDEX FILE FROM DISK 

926 ' .==========.«=«,...,.......«.«.«====..».». 

93B CLS:PRINTgl28,"MAKE PREPARATIONS TO READ FILE FROM DISK" 

948 PRINT:PP.TNT"WHEM READY — HIT '-.ENTER- . . ."tGOSUB lf/BE 

958 CLS:PRINTe34B, "INPUTTING FILE FROM DISK . . . ." 

968 OPEN"!" ,i,"disk:ndx" 

97B INPUTI1,XX:F0R X = l TO XX : INPUT41 ,DN$(X) ,PNS(X) 

988 IF VAL(PNSIX)) > 99 PN$(X)«" "+PNS(X! 

99B NEXT X: CLOSE: WF'0 

1088 CLS:PRINT0335, "INPUT OF FILE FROM DISK COMPLETED." 

:;■.,: ■•,(>:■:, i-n; 

1828 : 

1838 ' •* SUB ** SORT BY PROGRAM OR DISK NO. 

1058 CLS:PRINT0192,"SORT THE INDEX FILE BY — i 



":GOSl)B 16EB 



' 1 .- — DISK NO. 
< 2 > — PROGRAM TITLE" 
1060 PRINT: PP.INT"PLEASE MAKE YOUR SELECTION . 

1878 MS-VAl.lAS) : IF HS<10RMS>2 TBEN GOTO 1050 

1BBE IF MS=1 GOSUB 149B ELSE GOSDB 1518 
1098 CLS:PRINTP192,,"< R > — RETURN TO MENU 

< L > — LIST THE COMPLETE FILE 

PLEASE MAKE YOUR SELECTION . . . ." 

1168 GOSUB 1680: IF AS-"R" THEN RETURN 

1110 IF ASO"L" GOTO 1890 

1120 : 

1130 ' •* SUB ** OPTIONAL PRINT-OUT 

1148 ' =«««».= ..; = = «. = ,= „ = , =.„=:=,...—.•.. 

I1S0 CLS:PRINTt?192, "OUTPUT TO PRINTER ( Y OR N ) ?" 

116E GOSUB 160B:N=0:IF AS«"Y" THEN LP-1 ELSE LP-0 

1170 FOR X«l TO XX 

11 BB LS-LEFT$(PN$(X) ,1) :L5$=LEFTS(PNS(X*54) ,1) :IF MS=1 GOTO 128B 

1190 IF LS»"1" GOTO 1280 

120B IF LS="l"OR LS-"" PRINT" "; ELSEPRINT PNS (X) ; TAB ( 1 3 ) STRINGS ( 6 

,"-");" ";LEFTS(DNS(X) ,5) ; 

1210 IF L5S-"I" OR L5S-"" OR X + 54 : XX PRINT"" ELSE PRINTTAB(36! 

PNS(X-»54) ;TAB(49>STRINGS(6,"-"l ; " "; LEFTS (DNS <X«-54 ), S) ELSE PRI 

NT"" 

1220 IF LP=1 AND PEEK< 14312) <>63 THEN CLS: PRINTP33B , "PRINTER NOT 

READY !":GOTO 1450 
1230 IF LP*6 THEN GOTO 1270 

1240 IF L$="i" OR LS-"" LPRINT" ";ELSE LPRINT PNS(X) ; TAB ( 1 3) STR1 
NGS(6,"-"i ;" ";LEFTS(DNS(X) ,5) ; 
1250 IF L5S-"" OR L5$-"!" LPRINT" *:GOTO 1270 

1260 IF X+54 -< XX LPRINTTAB(45)PN$(X*54) ; TAB! 58! STRINGS ( 6 ,"-" 1 ; 
* "jLEFTS(DNS(X*54) ,5) ELSE LPRINT" " 
1270 N-N+1:IF N->54 THEN N-0 :X«X+54 : IF LP-1 LPRINTSTRINGSl 12,13) 

1280 NEXT X:GOT0 1450 

1290 : 

1386 ' *• SUB * 

1310 ' .«*= = „= 

1320 CLS:FOR X-=l TO XX 

1330 IF PNS(X)-"!" THEN PRINT DNS(X) ELSE 1350 

1340 IF PEEK(14312)=63 LPRINT DNS(X) 

1356 NEXT X:PPINT 

1360 PRINT, "END OF FILE -- TO RETURN TO MENU, HIT • ENTER >": GOSUB 

1600 jRE TURN 
1370 : 

1380 ' •* SUB •* VIEW A DISK'S DIRECTORY 

1390 ' »..,,..=.=•==========.=««.=««==.=..«.. 

1408 CLS-.PR1NT0320,""; :INPUT"ENTER DISK NO. YOU WISH TO REVIEW " 
;DRS 



LIST DISK ID'S IN INDEX PILE 



Program continues 
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HftNNON 
MHGNCTICS. 



To Order: 

Toll Free 1-800-525-7958 

1650 South Laredo Court • Aurora, Colorado 80017 



MICRO COMPUTER DISKETTES 



>oubie Densif , Single iided Mini Disks Shnnt wrapped boxes 



REGULAR 

RETAIL 

PRICE 



SPECIAL 
FALL 
SALE 

$22.95 



WE ARF NATIONALLY INTRODUCING OUR HIGH QUALITY MINI DISKS 
DIRECT TO THE FND USER AT A SPECIAL PRICE FOR A LIMITED TIME. 



THESE DISKLTESARL FULLY GUARANTEED FOR ONE YEAR AGAINST DEFECTS 
RETURN ANY DISKETTE GOOD, BAD OR OTHERWISE AND WE Will 
REPLACF IT FREE WITH NO QUESTIONS ASKED. YES - WE MEAN IT! 



VF 




The Newest NEWDOS/80 Version 2.0 
For Model I And Model III 



THE HOTTEST DISK OPERATING SYSTEM FOR THE 
TRS-80" COMPUTER IS NOW READY FOR THE MODEL 
III AND VERSION 2.0 IS READY FOR THE MODEL I. 
MANY ENHANCEMENTS AND ADDED FEATURES 
SUCH AS NEW COMMANDS MAKE YOUR COMPUTER 
MORE POWERFUL' 




$149.00 



SHIPPING FREE 
(303) 773-6665 



Data Resources Corp. 



IUA5TLH CHAHCI- 
AND VISA 

WELCOME 



DOUBLE DENSITY ON MODEL I 
SINGLE DENSITY ON MODEL III 
EXPANDED DIRECTORIES 
DYNAMICALLY MERGE IN BASIC 
SELECTIVE VARIABLE CLEARING 
PAGE SCROLLING IN BASIC 
REPEAT FUNCTIONS 
ROUTING FOR DEVICE HANDLING 
DISASSEMBLER OUTPUT TO DISK 
CHAINING ENHANCEMENTS 
SUPERZAP 



ii no you' ii I .■- ■ ei ii : 
•«pii i' il : in .■. " , ..' • Ii i 



Business & Protessiona Center 
8000 East Quincy Ave 
Denver Colorado 80237 



MTC s a Registe* ed Trademar K ot Meta Te ••• logy 
m 5 - • a Reg stered H idem iri- II indy Coro 
mm Data Res in •■■ rp> irat or 

' ' ■ : , i : ilisir !.,..•, : ■ , . r., Hh .■ -• i 



^See List ol Advertisers an page 38b 
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companies advertising in the major 
computer magazines — keep looking! 
The May 1981 80 Microcomputing does 
not state on the parts list that all TTL 
devices must be of the low power 
Schottky type (74LSXX series). If you 
do not use low power devices the 
TRS-80 power supply may not be able 
to cope. 

Next, whether your system has 48K 
of memory or not, disregard the sec- 
tion pertaining to the memory disable 
option. Instead use the technique 
shown in Fig. 1 . 

Paul C. Fowler, Jr. 

Enable Electronics 

2103 Charlton Lane 

Radford. V A 24141 



High Addresses 

An apology is due readers with 16K 
systems who tried the demo program 
in my article "Program Chaining and 
Local Variable Definitions in Basic" 
(June 1981 p. 255). Despite consider- 
able thought given the selection of ad- 
dresses for the start of variable 
storage, I failed to heed the advice in 
my own article and set one of them too 
high. Consequently when run in a 16K 
system the stack overwrites part of 
that variable storage area and the pro- 
gram bombed. It runs OK in systems 
with more memory. 

A quick fix is to change the number 
32500 to 30500 the four places it ap- 
pears in the listing (Lines 120. 170, 230 
and 1010). The program will then run on 
any size system. 

Hal Brown 
643 W- Valley Forge Road 
King of Prussia, PA 19406 

Everyman's Debug 



I typed in "Everyman's Mod II Word 
Processor (July 1981) on my Model III. 
Everything works well with the follow- 
ing exceptions: To fix faulty video 
display during edit insert mode, 
change the end of line 1080 to 
read:-:PRINT @ C+1, B$;A$ + R$ 



I- -r "(..A":-. 




- '.'„* PlN ' HEfll ON '~<t rRS 80 CPU BOARD 
AND SOLDER "C ICI2 P.N 6 ON h'-RFS BOARD' 

V. 



!___ 



ADO (-OUR 
4 7 K , /<; W 
|PUU UP 

;*grs 



-> OUT 

-V* w ■ 



'PIN C'.i ON .":•- MUST 8'. : JT 
AND 8! \ ' . p A AAv FROM Th£ 
TRS-80 CPU BOARD THIS IS 
NECESSAR* AS "-L OR dNA. 
TRACE CONTINUES UNDER Z2« 
TO PIN 15 



<7 



Fig. 1 



Program continued 

1 410 CI.S:PRINTei28, "DIRECTORY FOR DISK NO. *;DRStPRINT 

14 2E! FOR J = l TO XX 

14J8 IF LEFTS (DNSUl ,4)=DRS AND PN$(J) <>" 1" THENPRINT PNS(J), 

1443 NEXT . : PRINT: PRINT 

14 50 PRINT: PRINT, "TO RETURN TO MENU -- HIT <.ENTER>" : GOSUB 1600:R 

ETURN 



GSF SORT ROUTINE 



1470 ' ** SUB * 

HS0 ' »»» = - = = = = == = = .: = .««» = »»»«™»b«-c 

1490 SPS' "f-DNS, t-PNS" 

1500 GOTO 1520 

1510 SP$»"+PNS, .DNS" 

1320 CI.S:PR1NTP330, "SORTING ONE MOMENT PLEASE" 

1V30 IF XX = THEN PR1N79450, ""* DISK INDEX FILE NOT ENTERED !1 

**":GO.S-JR 14 50:GOTO 108 
1540 :-i:SR',1T) OR :JSR( VARPTR(SPS) ) OR USR(0) OR USR(XX) 
1550 IF 1 < ■• THEN PRINT"SORT ERROR" :GOTO 1550 
1560 FOR X<-1 TO XX 

1570 IF DNS(X;="ZZ" THEN XX=X- i : RETURN 
1SB0 NEXT X: RETURN 
1590 : 
1600 A$=1NKEY$:IF ftS="" THEN 1600 ELSE RETURN 



Program Listing 



Since Model III doesn't have tab or 
backspace keys, and does not recog- 
nize the up arrow, change line 180 to 
read: 



180 ^ A = 6? THEN 430 ELSE IF A -91 THEN 330 
ELSE IE A-60T«EN 31C 



This lets you use "<" for the left ar- 
row, ">" for the right arrow "Clear" for 
the down arrow, and the up arrow as in 
the text. If moving the line to the right 



chops off the last character, delete the 
+ from line 1200. 

If you use an Epson MX80 line print- 
er, lines 1661 and 1662 will have to be 
changed to accommodate its char/ 
inch and lines/inch format. 

1661 IF G = 5 THEN W= 14 ELSE IF G = 10 THEN 
W = 18 ELSE IF G = 16.5 THEN W^ 15 
1662 IF H=6 THEN T = 50 ELSE IF H = 8 THEN 
T = 48 ELSE IF H = 10THENT = 49 

Howard Potvin 

2527 S. Los Padres Drive 

Rowland Heights, CA 91745 



22 • 80 Microcomputing, October 1981 




What! Another correction? In 
August's 80 Input, I commented that 
Frank DiNunzio's joysticks might 
cause bus contention if used during a 
CLOAD. That was true, but between my 
drawing errors compounded by draft- 
ing errors the fix that was described 
would end up being worse than no fix 
at all. Fig. 1 and Fig. 2 are the real 
thing. 

Dennis Kitsz 

Technical Contributing Editor 

Roxbury, VT 



Joysticks Damage 
Hardware 



As Technical Contributing Editor for 80 
Microcomputing, I am often called on to 
review hardware manuscripts before their 
publication. Frank DiNunzio's article on 
joysticks (June 1981) was such a case. I 
contacted Mr. DiNunzio before the article 
was published pointing out my concerns, 
to which I received a response similar to 
the one printed in September's Input. I re- 
viewed the article again, and came to the 
same conclusions. Since he did not wish 
to incorporate a protective port-decoding 
circuit in the joystick design and since I 
believed this would be a very popular pro- 
ject, I prepared a postscript to the article. 

For a time, the Keystone Kops syn- 
drome set in. Due to magazine madness, 
the postscript disappeared and the article 
was published without it. I sketched 
out a hasty replacement; unfortunately, I 
made a mistake in the drawing, later com- 
pounded by a drafting error, which com- 
pletely garbled the so-called improvement 
(please see this month's Debug). Mr. 
DiNunzio's rather harsh response to my 
suggestions then appeared. 

If this were a minor theoretical dis- 
agreement, I would shelve any response in 
order to avoid an unseemly and typically 
mundane war of letters to the editor. But 
the user's investment in a computer is 
considerable, so I want to answer Mr. 
DiNunzio's letter point by point. 
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First, I understood that the joysticks 
were meant to be used only with "a suit- 
able program to draw or play games." 
However, it is unwise and chancy to plug 
something in when the computer is on, 
and user manuals for all computer periph- 
erals—including Radio Shack's own- 
warn you to turn your equipment off be- 
fore connecting them. Since it is import- 
ant that any peripheral be plugged in 
when the power is off, Frank's joysticks 
would be in and on when CLOADing such 
a suitable program. 

That brings up a related comment I 
probably should also have made earlier. 
Using the TRS-80 bus connector— pins 37 
and 29— to complete the circuit that pow- 
ers the joysticks puts the computer in 
jeopardy. Plugging the board in on an 
angle can run a hazardous 6 volts through 



other components of the system. So put a 
switch on the joysticks, too. 

Second point: Frank says "INP(1) will 
not open the cassette port; INP(225) does 
that." Absolutely right. But the converse 
is not the case, since opening the cas- 
sette port will also open the joysticks. So 
will input from 240,241,242,243,244.245, 
246 and 247 (Exatron Stringy Floppy), in- 
put from 232, 233, 234 and 235 (RS-232 In- 
terface), input from 208 and 209 (Micro- 
connection), input from 127 (Micromouth), 
and so on. I save the chain programs of 
ESF, and it cannot be plugged or disabled 
without wiping out a loaded program or 
program sequence. And removing the 
RS-232 unit means disconnecting the ex- 
pansion interface (killing a disk system) or 
opening the cover and removing the 
RS-232 board before proceeding. 
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SO INPUT 



Mr. DiNunzio's statement does bring up 
an interesting question: Why would 
INP(255) cause the joysticks to open while 
on the other hand INP(1) does not cause 
the cassette port to open? That is be- 
cause INP(1) is a hardware illusion cre- 
ated by software; as I stated in my first 
comment, any INP statement from INP(O) 
to INP(255) will trigger these joysticks. Mr. 
DiNunzio uses INP(1) simply because 
specifying that port number will avoid si- 
multaneously triggering the cassette in- 
put circuitry. 

Third point: "Hex inverters . . . pull some 
of the data lines down to ground potential; 
this is also done by the keyboard and all 
other input devices, and is not harmful to 
the computer." That's true, but all the de- 
vices he mentions pull data lines down on- 
ly when specifically asked to do so by port 
or address number. Frank's joysticks pull 
data lines to ground even when not asked 
to by proper port - number, and that is 
harmful to the computer. Why is it harm- 
ful? Because digital electronic devices 
can have three states: on, off, and a third 
state of electronic invisibility. To avoid 
electronic chaos, only one device may be 
permitted to respond to a central process- 
ing unit's request for information. In 
cases where bus conflict happens acci- 
dentally (which will never occur in a prop- 
erly designed circuit), the low (ground, or 
"zero") signal takes precdence. But while 
it is low, it is also causing additional cur- 
rent to flow through any circuits which 
may be in a high (5 volts, or "one") state. 
That's what the third state was designed 
to avoid, which should have been used 
here. The unorthodox method used by Mr. 
DiNunzio to turn on the 74LS368's is a par- 
tial attempt to provide this invisibility, 
though 74LS366's (with two enable lines) 
would have been a better choice in some 
ways. Though unusual, his method can 
extend battery life. 

To provide signals only when needed, 
then, every device connected to the com- 
puter should be decoded; that is, it should 
have a specific address or port integrated 
with it. In that way, only one device is "visi- 
ble" to the CPU, and no peripherals or 
memory compete with each other. These 
joysticks do in fact compete for attention, 
may respond unexpectedly, and (I repeat) 
may eventually damage the computer. 

Fourth point: When I was reprimanded 
that "241 is the lowest data number the 
circuit develops," I checked the original 
article once again. Actually, the lowest 
data number produced is 240, as Frank 
points out in his abstract numbers; rather, 
they work in digital signals whose actions 
can be made to simulate decimal num- 



bers. Thus, though 240 is not a decimal 
zero, that is irrelevant; it is binary 
1 1 1 10000— which means four of the eight 
independent data lines are pulled to zero, 
and can conflict with active computer 
data during other input. Readers can take 
a lesson here in the dangers of thinking in 
decimal numbers when binary concepts 
are being implemented; merely because 
240 is not zero, it does not follow that the 
binary condition it represents has no com- 
ponents which are zero. The possible con- 
figurations of Frank's joysticks include 
several zeros in the lower four lines: 0000, 
0001, 0010, 0011, 0100, 0110, 1000, 1001, 
1100, and 1111. Nine of the ten combina- 
tions present bus contention problems. 

Fifth point: Frank states that an AA cell 
"in theory. . .is 1.5 volts, but in reality it 
provides somewhat less voltage." In real- 
ity, depending on how new it is, an AA cell 
can provide more than 1 .5 volts (as well as 
less), even under the minimal load de- 
manded by the joysticks. However, I will 
grant his point that most of the time the 
voltage will be less than 6 volts. Neverthe- 
less, fairly new alkaline cells will still pro- 
vide more than 5.25 volts, the maximum 
operating supply voltage. Here are ex- 
cerpts from the manufacturer's data 
sheet on the same integrated circuits 
specified by Mr. DiNunzio for this project: 

"Operating Conditions. Supply Voltage: (min) 4.75 
(nominal) 5.00 (max) 5.25. Absolute Maximum Ratings. 
Supply Voltage: 5.00. Note: Stresses above those 
listed under Absolute Maximum Ratings may cause 
permanent damage to the device. This is a stress 
rating only and functional operation of the device at 
these or at any other condition above those in- 
dicated. . .is not implied." 

For greatest reliability, I would recom- 
mend readers use the simple regulator cir- 
cuit I suggested (80 Input, August 1981, 
page 18) with five AA cells rather than 
four; this will prevent the regulated volt- 
age from dropping below 5 volts too soon, 
giving the appearance that the batteries 
have gone dead early. 

To Mr. DiNunzio's final provocations, I 
decline to respond. I will say that even if 
readers do decide to follow his design as 
printed, at least this exchange of corres- 
pondence and commentary should illum- 
inate how different designers approach a 
task, and how hardware reliability can be 
increased. As I stated in my original letter, 
I did not intend to be hard on Mr. DiNunzio; 
I'm sorry he was offended, but I hope 
readers know that they are my first con- 
cern. It is they who have to face the conse- 
quences of what they build. 

Dennis Bathory Kitsz 

Technical Contributing Editor 

Roxbury, VT 



Know-it-AII' Gooff 



The program "Know-it-AII" (May 1981 , p. 
288) is a very useful program but is not 
complete in every detail. First, there is an 
error in line 65035. The items between the 
brackets should read (65536-U). 

Second, if there are any alpha data lines 
these will be decoded as a register and to 
eliminate this, insert OR T = 136 after T = 
in line 65055. 

Third, in program statements such as 
ON X GOTO 100,200,300, line referencing 
program only picks up the first line 100 
and not lines 200 and 300. To overcome 
this, type in place of line 65150: 

65150 NEXT:RE = 0:CS = '-"GOSUB650:IFT = 

OTHEN65045 

65152 I FT = 320RT = 44THEN65130ELSEGOTO65050 

With these additions the program be- 
comes very useful in debugging lengthy 
programs. 

Brian Heywood, chief engineer 

Taranki Electric-Power Board 

Eltham, Taranaki 

New Zealand 



Retrieving Block Cursor 

I read the article on "Block that Cursor" 
by Ron Balewski in the April 1981 issue 
and noticed that if I tried to relocate the 
program to a location high enough to use 
my 48K of RAM I would get an "OV" error 
from BASIC. Evidently the problem is in 
the integer arithmetic that is used by the 
PEEK and POKE statements. While the 
Z-80 can handle addresses greater than 
32767, the TRS-80 integer arithmetic can- 
not. 

Fortunately, there is a way out. You can 
use the block cursor and your additional 
memory. It turns out that if you subtract 
32768 from the 16K POKE locations the 
TRS-80 two's complement arithmetic will 
come up with the appropriate addresses 
for the POKEing. This is done on line 30 in 
the program below. Of course, the new 
memory size will be 65402, and you must 
change the location that will be refer- 
enced by Basic, which is done as follows: 

5 BLOCK CURSOR PROGRAM FOR 48K RAM SET 

MEMORY SIZE TO 65402 
10 FOR K = 32635 TO 32654 
20 READ X 
30 POKE K - 32768.X 
40 NEXT K 
50 DATA 245,197,205,88,4.237,75,32,64,10,254,95,32,3, 

62.143,2,193,241,201 
60 POKE 16414,123 
70 POKE 16415,255 
80 END 

William R. Patterson 
Somerdale, NJ 
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(213) 883-8594. 

Our Epson prices 
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EPSON MX-80 SCALL EPSON INTERFACES & OPTIONS 

80 cps/9x9 matrix/ Lower case with irssovodfi ihcabu 
true descenders/Bi-directional & r Rs-8ovoon i Keyboard ti«er«ace 
Log.c seeking/Adjustable tracio- ESJ*^ ffcAB i 
Expanded printing/Block g r aphics/ , : E ,, 88 NT{ p: - ACE 
Forms control/Compressed printing/ seriai interface 
Double -strike printing/Correspon- 
dence quality/Emphasized print. ng 
mode/Standard parallel interface 

EPSON MX-80 F/T SCALL 

Same features as the MX-80 plus Fric- 
tion Feed Adjustable removable trac- 
to r is standard for ease of handling 
forms and single sheets. 

EPSON MX-100 F/T SCALL 

Same features as the MX-80 & MX-80 
F/T but on l5Va inch carriage for print- 
ing 132 columns with standard 10 cpi 
font or 232 columns in the com- 
pressed character font The MX-1 00 is 
complete with Dot Resolution 
Graphics 31245 LA BAYA DRIVE, WESTLAKE VILLAGE, CALIFORNIA 91362 




We built a reputation on our 
prices and your satisfaction. 

We guarantee everything we sell !ot 30 days II anything 
s wrong, |ust return the item and we II rr.ake it right 
And. o' course we'll pay the shipping charges 

We accept Visa and Masier Card on all orders COO 
arcepied up to $300 00 We also accept school pur- 
. hase orders 

Please ado $? 00 tor standa'O UPS shipp.ng and 
handling on orders undef 50 pounds delivered in the 
continental U S Call us lor shipping charges on items 
that weigh Tore than 50 pojnds Foreign FP0 and AP0 
o'ders please aod 15% '0' shipping California res- 
idents add 6% sales tax 



• See List ol Advertisers on page 386 
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edited by Michael Nadeau 



"Mr. Baker has some 

unique ideas compared 

to others involved in software oroduction " 



Trakcess 

Roxton Baker 

The Alternate Source 

Lansing, Ml 

$24.95 

by Ronald Bobo 



After successfully making backup 
copies of Acorn's "Pinball" and Mi- 
crosoft's "Adventure" (both of which are 
on copy-protected diskettes), I next turned 
my attention to those annoying security 
diskettes that accompany programs from 
The Bottom Shelf. 

Mr. Baker has some unique ideas com- 
pared to others involved in software pro- 
duction. To quote from the Trakcess man- 
ual, "Congratulations! You have just pur- 
chased the most powerful TRS-80 disk ac- 
cess utility yet written. Perhaps you were 
able to share the cost with a few friends, 
but even if not I hope you will find Trak- 
cess worth the price." 

Baker credits William Barden's Disk In- 
terfacing Guide for the TRS-80 as inspira- 
tion for this program and recommends it 
to help you use Trakcess efficiently. The 
non-expert should also have a copy of the 
data sheet on the 1771 floppy disk control- 
ler chip. A copy can be found in the Expan- 
sion Interface service manual or may be 
obtained from Western Digital. National 
Semiconductor, a second source for the 
chip, also has a sheet available. 

Trakcess requires a 48K TRS-80 Model I. 
The (C)opy and (D)uplicate commands re- 
quire two disk drives. 

The program is in two parts on the disk 
—Trakcess, a Basic program, and Trak- 
cess/CMD a machine-language routine. 
Typing 'Trakcess' and pushing Enter will 
load the machine-language section, and 
from there on prompts are given. 

Printer output is available, but a printer 
is not necessary. 

Trakcess contains all its own disk I/O 
routines. If the program stops on an error, 
however, a DOS disk should be inserted in 
drive before continuing, to prevent pos- 
sible system hangup. 

Everything is menu-driven. Disk-related 
commands will not work until a drive is se- 



lected and activated. Upon selection, you 
will be asked for the head position of the 
drive. Press Enter; the default value is ze- 
ro, and the head will be positioned at that 
track. 

Typing I steps the head of the selected 
drive in one track (toward the center of the 
disk) and O steps it out. These two keys re- 
peat if held down. Trakcess is program- 
med for thirty-five tracks, but instructions 
are furnished for changing this if nec- 
essary. 




software 



G followed by a decimal number allows 
quick positioning of the head at any de- 
sired track. 

R and W allow reading into a specified 
block of memory, or writing from it. It is 
feasible to modify the data before writing 
back to disk, making the reconstruction of 
a damaged sector possible. All sector 
writes are verified by rereading, so data 
transfers are reliable. 

T and P (Take and Put) allow the taking 
from or putting to disk of a whole track 
(about 3120 bytes) in one operation. A 
track may be read in, then scanned with 
Trakcess' editor to reveal everything on 
the track. 

B (Build) is a very powerful command. It 
allows you to tailor a track to your own 
specifications, with no restrictions other 
than overall length. As many as eighty dif- 
ferent sectors per track may be specified, 
of different lengths and types, with any 



names. Once the track has been created it 
may be edited in memory before writing it 
to disk, with the P command. For example, 
you might zero out the DAM (Data Address 
Mark) for a short sector, thereby generat- 
ing a false sector ID. Or you may remove 
the ID CRC to get a false ID pack or the 
sector CRC for an always-bad sector. 
Make your own protected disks, anyone? 

Typing S causes the current track to be 
scanned for useable sectors. All the im- 
portant information (track number, sector 
number, sector length, whether or not a 
sector is IBM format, and the data ad- 
dress mark) will be determined and dis- 
played on the screen or printer. This pro- 
cess is not fast; thirty seconds may be re- 
quired to scan a track. If the track has any 
false sectors, this will be noted. L (Locate) 
scans the full disk, tells you which tracks 
have sectors, then offers you the option of 
a full report. 

C will search the current track, build a 
matching format track in memory, then 
write it out to a target disk. Subsequently, 
it will transfer (and verify) all the sectors. If 
any sectors are damaged or of undeter- 
minable length, you will have to specify 
one. Unless you know what it should be, 
do a track read and look at the sector in 
memory. Try the next larger multiple of 
sixteen bytes than the sector's apparent 
length. For this and the D command, you 
must have two drives— you cannot copy 
to the active drive. 

D is essentially the C command re- 
peated for each track. Most disks, wheth- 
er protected or not, can be duplicated in 
about thirteen minutes. The disk you're 
copying need not be formatted, but it's a 
good idea to format it to make sure there 
are no bad tracks. It may then be bulk- 
erased before copying. 

E is a scrolling editor utility. Memory 
may be edited, or memory between speci- 
fied addresses may be filled with a speci- 
fied byte. The arrow keys move the cursor, 
and scrolling is accomplished with shift- 
ed up and down arrows. Memory may be 
displayed in either hex or ASCII. In either 
mode, whatever you type will be put into 
memory at the cursor location. 

F calculates the two CRC bytes for any 
block of code in memory, or for any bytes 
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THE ALPHA 
I/O SYSTEM 

a complete failure? 

THE INSIDE STORY 



if happened 3 rears ago when our President made a decision Ai the lime we specialized 
m custom analog and digital a re ml design The decision was 10 attempt lo develop a line ol 
siandard interlace hardware tor the emerging microcomputers At the lime (1977) we had to 
decide which ol lh* new machines could Become the industry standard ol the low cosi 
micros 

Despite a lew aggravating out minor oelioencies the TRS 80 seemed tohave me most 
cnance ol success and n had the besi pnee/pertormance ratio Also. *n» some imagination, 
their large sales organization could become the largest service network mi the world , a reassur 
mg throughl tor the many novices in this new lield 

II Decame dear that the TRS-80 could De used twilh our then hypothetical system) to solve 
proBlems in many heids where computers were not yel used . mostly because ot their high cost . 

The IDEA was simple 1 ALPHA PRODUCT would supply the missing link between the TRS- 
80 and me ouiside world imore about this outside world later i 

Early Survival 

DANGER 1 II Radio Shack entered the same market we probably would not navt survived Out 
the expectation was that they would be too busy developing their basic line (drives primers, 
modem etc ) Thanks to our more specialized products we would not be competing with them 
•AD START! We began with a failure Our first ptodect was supposed to be a simple low cost, 
general purpose device it would allow the TRS-80 to accept inputs other man the keyboard 
Many kinds ol e>iernai devices me outside world mentioned before) like photocells, 
sensors thermostats, switches contacts . etc could be connected easily in addition mere 
were two relays to control (on or oil) external loads such as motors lamps appliances 
heaters, etc etc in other words, it would allow the computer to interact or interface with 
external devices We called it the INTERFACER 2 What a mistake' it sounded too much like 
expansion interlace Many enthusiastic TRS-80 users called thinking thai our ' INTER- 
FACER 2 was a low cosl Expansion interlace i at (85 lhat would have been a real bargain') 
We wanted to change the contusing name Thai meant reprinting the manual changing the ad 
scrapping the Myers discarding the silk screened cases Well INTERFACER 2 it would 
slay 

TROUiLE' We also lound thai the majority of TRS 80 users were AFRAID of me hardware may 
could be very comiorlabie with tancy programming but thought you had 10 be a computer 
specialist or technically inclined 10 put me INTERFACER 2 to work in truth, some IMAGINA 
TiON and a SCREWDRIVER is ail you reany need Anyone able to w-re a switch could use mis 
device 

WORSE! There was also the lear of plugging a foreign device into the precious computer 
This notion has all but disappeared as there are now so many quality products designed lor me 
TRS 80 thai plugging m a non Radio Shack device has become common 

Our ad in Creative Computing (80 Microcomputing did not yel exist) hardly paid lor itsetl 



TIMEDATE 80 
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Neat. Compact Design 
3 Years Battery Life 



Slips Inside El 
(Y Option Shown) 



Real Time Without 
Expansion Interface 



•Complete, sell contained true real time clock /calendar. TtMEDATE 80 continues to keep 

accurate lime and dale when the computet is turned oil or experiences a power failure 

•TIMEDATE 80 only needs to be set once and it s two replaceable AAA batteries (not 

included) keep TIMEDATE 80 running in excess ol 3 years Cosily Ni-Cad batteries and 

charging circuits are eliminated 

• The instant power is applied to me TRS-80 HMEOATE 80 provides MO/DATE/YR. DAY 

of WEEK HR MiN SEC and AM/PM information with quartz accuracy 

•TIMEDATE 80 replaces me computer s internal dock Extremely uselul lor automatic 

operation ol remote systems with no operator m attendance It the power tails and ihen is 




We had a decision lo make Were we wrong or |ust loo early' Our lust INTERFACER 2 was sad 
10 someone who wanted lo and succeeded in controlling his fancy model railroad with his 
TRS-80 interesting but what made us stick with me concept was mat some ol our INTER- 
FACERS began imdmg use in applications with fascinating possibilities Space is lacking lo 
describe mem out the most exciting was me successiui use ol me system m assisting a handi- 
capped young boy We were pleased to hear of such a meaningful application 



Today 



Three years later as you can see in our ads The INTERFACER 2 is alive and well The 
pnee went up a Bit and despite me introduction ol me more powertui INTERFACER 80 me 
sales have been steady 

Then came me least understood product 1 me analog 80 This Si 39 nicety designed 
module is an Analog to Digital convener with 8 mpui channels Used with your IRS -80 it 
provides a powerful data acquisition system This iargon simply means (hat you can 
monitor measure and record 8 mdependant varying ventages Very tew people realized its real 
power Such a system would have cosl over ten thousand dollars |usl a lew years ago 

The possibilities m scientific and engineering environments are endless This system 
could repiace cnart recorders, digital data recorders programmable calculators daia analyzers 
and many other specialized and expensive pieces ol equipment Furthermore up lo 8 ANALOG 
80 s could be used simultaneously lor a total ol 64 channels ol analog input 1 They simply plug 
mlolhe TRS-80 using our X series of Bus extenders (EXPANDABUSi 



The idea was simple. We would supply the 
missing link between the TRS-80 and the 
"outside world" 



Our next product was to be a second generation input 'Output interlace, with more 
tiexibillly than the INTERFACER 2 Carelui design and relinemeni yielded the INTERFACER 80 
the most powertui real world interlace on the market today it has 8 inputs, each optically 
isolated and 8 outputs, each with a relay contact The INTERFACER 80 is fully compatible with 
our ANALOG 80 allowing these to be used together M order lo create systems that control 
external devices based on sensed input under control ol the TRS-80 
A FAILURE) m spile of our extensive advertising, very lew are aware ol the existence ol the 
powertui ALPHA I/O SYSTEM 

The Facts Are: 

The AlPHA SYSTEM/TRS 80 combination irjnns an incredibly versatile and powertui tool lor 

acquisition/processing/contiol 

in spile ol its moder ale cost me system is sophisticated and reliable 

The entire system can be easily programmed M BASIC using INP( x ) and OUT X Y commands 

The modular approach and ou' EXPANDABUS allow for instant expansion as requirements 

demand 

The following pages contain more information about the devices mentioned here We invite 
you lo call or write to discuss your particular application 

Device descriptions; NEXT PAGE 



WHY LOSE PRECIOUS TIME ? 

restored only TiMEDATE 80 will update me system with current TIME and DATE inlormation. 

an impossibility with the computer s internal clock 

•TIMEDATE 80 is quartz crystal based with INTELLIGENT CALENDAR including provisions 

lor leap year' TIME display may be by 1? hour AM/PM or by 24 hour military and Eruopean 

lor mat 

•TIMEDATE M plugs directly into the rear ot the TRS-80 keyboard and gives the TiMES 

lunclion even without an Expansion Interlace For those with a disk system it plugs into the 

left side panel ot the Expansion interface An optional Y connector can provide lor further 

expansion 

•TIMEDATE 80s small size keeps the computer table uncluttered » you have an Expansion 

interlace. TIMEDATE 80 literally DISAPPEARS by supping into me empty space in me 

bottom ol the interlace 

•Two sets ol software on cassette come wilh TIMEDATE 80- TiMESET and TIMES 

TIMESET ' is a step by step set ol simple instructions lor selling TIMEDATE 80 TIMES' 
is a set ol poke routines which paten DOS and Level n TIMES to read TiMEDATE 80 and is 
easily incorporated info any user software TIMES will always print the lime and date 
when LISTING a program— great lor keeping track ol revisions' 

•Other valuable uses tor TIMEDATE 80 are accurale date and time nitormalion lor business 
reports like payroll records, financial reports ele or lo various I/O devices requiring 24 
hour clock input such as laboratory mslrumenlalion. and lo communication systems 
needing Log in/ log Out data ibuDeim Boards) 

•TIMEDATE 80. lully assembled and tested 90 day warranty complete wilh instructions 
and software on cassette J9b 00 Y option add S) 2 00 



NEW: Computer to Computer ordering :(21 2) 441-3755 (24 hr. data line) 



CALL 



(212) 296-5916 




ALPHA Products « 



FOR FAST 
SERVICE 



85-71 79th Street. Woodhaven. NY 11421 
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typed in. Useful when examining dam- 
aged or tricky sectors, the CRC may be re- 
garded as a two-byte checksum. The disk 
controller starts calculating a CRC when- 
ever an address mark of any kind is en- 
countered during a track write, and when- 
ever a sector is being written or read. On a 
write, these go to the disk and on a read 
they are compared to the CRC bytes on 
the disk, then reported back to the CPU 
along with an indication of their correct- 
ness. 

H gives a choice of hex or ASCII dump 
to the printer starting at any memory ad- 
dress. 

According to the manual, possible fu- 



ture additons to Trakcess are a disk com- 
pare and a disk search facility. Improve- 
ments are promised to keep up with the 
state of the art in protected disks. An up- 
grade to the latest version may be had at 
no charge by sending a diskette with a 
postpaid mailer to The Alternate Source. 
Presumably, you would also have to fur- 
nish proof of purchase. 

Mr. Baker says he doesn't like protect- 
ed software because it makes modifying 
or moving the code difficult, and it is usu- 
ally a pain to back up and use. Baker main- 
tains that, with 300,000 or more TRS-80's 
in the field, and the fact that relatively few 
owners are in close contact with large 



numbers of other users, and that most 
owners are willing to spend some money 
on software, there will be plenty of sales 
potential even after all the swapping. 

Whether or not you agree with Mr. 
Baker's philosophy, it should be pointed 
out that reproducing copyrighted soft- 
ware for other than your own use is illegal. 

Trakcess is a good program, it works 
and, though not a replacement for Super- 
zap or similar programs, it can be used for 
purposes other than copying. Besides 
that, it will give you a mini-education on 
the working of the disk controller and the 
various disk formats possible. ■ 



Hellfire Warrior 
Automated Simulations 
Mountain View, CA 
$39.95 disk, 32K TRSDOS 
$39.95 cassette, Level II, 16K 

by Debra Marshall 

80 Microcomputing staff 

ellfire Warrior is the second in the 

Dunjonquest series of full-length 

fantasy role-playing games produced by 

Automated Simulations (the first is the 

Temple of Apshai). 

The game is structured much like Date- 
stones of Ryn, the minigame introduction 
to the Dunjonquest series. Like Date- 
stones, commands are issued by pushing 
various single keys. Graphics on the '80 
consist of a single-dimensional top-view 
representation of corridors and rooms 
found in the cave you venture into in your 
hero's role. The character appears on the 
screen as a triangle created from graphics 
pixels, treasures are rectangles, and crit- 
ters and nasties apppear as squares of 
different sizes, which disintegrate into 
shooting rays when they are defeated. 

Hellfire Warrior consists of four levels 
of dungeon. Each level proves increasing- 
ly harder to stay alive in. However, ex- 
perience points are gained with each nas- 
tie killed, and your character becomes 
stronger, more resilient and harder to de- 
feat with each battle. 

This game is perhaps unique in the fan- 
tasy game field because you have the op- 
tion of creating your own character or 
bringing a favorite character from any oth- 
er role-playing game, computer-based or 
otherwise, with you to Hellfire to be your 
hero. The Gamemaster will randomly se- 
lect a hero's attributes for you if you do 
not choose to create your own character. 
Either way, you must name your own char- 
acter, and I quickly discovered the name 



must have a hero's ring to it, or the pro- 
gram has some distinctively reprimanding 
thoughts to share on the subject. 

You may increase your character's 
native attributes (and chances to stay 
alive) by visiting and spending your money 
at the Armory, the Apothecary Shop and 
the Magic Shop. Each shopkeeper has 
many things of various import for sale, 
and you should choose carefully, because 
the weapons, armor and magic you pro- 
vide your hero will greatly affect his 
chances of remaining alive in the dun- 
geon. Each shopkeeper sets a price for his 
goods and is open to haggling, within rea- 
son. If you haggle too much or offer too 
low a price, you may find the shopkeeper 
raising his prices. Weapons may be en- 
chanted, indeed, should be enchanted; 
elixers, nectars, bloods and salves are 
available in plenty, but without any ex- 
planation or guarantees as to their desira- 
bility; magic amulets and talismans are 
also available to the wealthy (read: suc- 
cessful) adventurer. 

The object of the game is simple: Wan- 
der through the maze, collect all treasure 
on all levels, buy advanced magical aids, 
proceed to higher levels, and eventually 
rescue the warrior maid Brunhilde held en- 
thralled deep in the dungeon. Exit the 
maze with Brunhilde, treasure and body 
intact, and you win. Oh yes— pay the cler- 
ic and try not to get yourself killed. While 
resurrection is possible (and even likely), 
you always seem to lose a lot in the pro- 
cess. Provisions are made for saving a 
game or character. 

Frankly, one of the most enjoyable 
things about this game is the Book of 
Lore. It is nicely illustrated, slickly pre- 
sented and makes for enjoyable reading, 
which is saying a lot for something that is 
software documentation. The directions 
and explanations are thorough and ex- 
plicit; you will be well-advised to read the 



book completely before attempting to 
play the game. There are room and trea- 
sure descriptions, and some secret mes- 
sages that come in handy. In addition, 
there is a short scene-setting story that 
proved to me the people who wrote the 
documentation are game players and fan- 
tasy lovers. 

The game proceeds in much the same 
way as Datestones: You manuever down 
halls and into rooms searching for trea- 
sure and secret doors. At any moment, 
you may be attacked by a nastie or beast- 
ie and have to defend yourself. There are 
pits and traps, and any treasure box may 
be boobytrapped. 

The game is written in Basic and unfor- 
tunately, this makes for slow graphics 
drawing and reaction time; you may con- 
tinue fighting a battle after you have 
demolished your opponent because of the 
slowness of program execution. It is also 
difficult at times to determine exactly who 
is coming out ahead in a battle. Unlike the 
Datestones game, however, critters in this 
contest do not self-destruct without any 
effort on your part. In addition, the game is 
the real time, so don't let your attention 
wander; you may discover you have been 
killed while you ran out to the kitchen to 
get a snack. 

The game is not easy to win. The beast- 
ies change types on each level, different 
magic is required, and there is enough go- 
ing on when the graphics aren't being 
drawn to keep your interest up. Some of 
the graphics sections were poorly concep- 
tualized; when it takes many seconds to 
draw a dungeon section, I don't want to 
have to watch it being done every three or 
four steps I take, which occasionally hap- 
pens. On the whole, however, any true 
game fanatic will find this game intriguing 
and entertaining. It is also a welcome 
change from adventure games without 
graphics. ■ 
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NOW MODEL I AMD MODEL III ! 



Now Model III users can take advantage of the ALPHA I/O system too. Our new 
MOD III/I BUS CONVERTER allows most port based Model I accessories (such as 
our ANALOG-80, INTERFACER 2 and INTERFACER-80) to connect to the Model III 
bus. MOD III/I BUS CONVERTER, complete with all connectors, only $39.95. 




TWICE THE FUN TRS-80 

STICK-*) MAKES KEYBOARD OBSOLETE 

Fealures the tamous atari Joystick 8 ejections + lire 
control Simple instructions 10 make joystick versions ot 
most action games Plugs into keyboard or expansion int 
Price includes ATARI |oystlck with ALPHA Interlace and 
instructions FREE MAGIC ARTIST program 1)19 9S 

buuei Re.i' I" >e A<.lmn . 
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MUSIC 80 MUSIC 80 MUSIC 80 MUSIC-80 MUSIC-80 

Jse exist ng sottwa'e 
or write your ow" eVdh this ow cost i Ot (kg 
analog converter you can synthesize up to b music voices 
Built-in volume control handy when stereo not near TRS-80 
Simply plug the MUSiC-80' into me keyboard or the E'l 
screen prime' pet and connect tne output (RCA iac* | to in« 
ampii'e- *he Raoo Shack St? speaker/ amplifier works 
line 
Fully assempieo and tested *} day warranty 
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4F 

s xa xs y? 

YOU ASKED FOR IT EXPANDABUS XI X? X3 AND X4 

CONNECT ALL YOUR TRS-80 DEVICES SIMULTANEOUSLY 
on the 40 pm TRS 80 Dus Any device mat normally D'ugs 
into tne keyboard edge connector win also plug into the 
EXPAN0ABUS The X4 'is shown with projective 
covers lincludedl The TRS 80 keyboard contains Ihe Pus 
■ :■ to ?0 devices more than you win 
ever need Using the E.'i it plugs either between KB and E/l 
oi in the Screen Printer port Professional Quality goto 
plated contacts '.ompuler grade 40 conductor ribbon caOM 
X? S29 «J S44 X4 S59 «5 J/4 

Custom configurations are aiso avanapie ca<i us 




ANALOG 80 A WORLD OF NEW APPLICATIONS POSSIBLE 
8 DtGl'Al MUlTiMFTERS PLUGGED INTl' rUU" 'PS 80"' 
Measure Temperature Voltage Current Light Pressure etc 
Ve'y easy to use lor example let <. read input channel (4 10 
OUT 4 Selects input »4 and also starts the conversion ?0 
A i NPiOi Puts the result m variable A voita' 
Specihcations Input range iV to 0-SOOV Each channel 
can be set to a ditterenl scale 

Resolution 20mV (on 5V 'angel Accuracy 8 bits I 5%l Pod 
Address lumper selectable Plugs into keyboard bus or E" 
Iscreen printer port I Assembled and tested 90 day warranty 
Complete with power supply connector manual 1 139 



only 
13" 



LIT THE CHAIN BREAKER FREE YOUR MINI-DRIVES 

End 'he daisy-chain mess once and lor all Fits i 

drives Percom Aerocomp Snugan Micropoiis MTl Vista 

Pertec Siemens BASF Easy to install |ust ■emove me 

drive cove' plug m the CHAIN BREAKER and replace tne 

covet Voita'" 

Now you can change and move your drives around without 

disassembly Keep the cover on and keep the dust out High 

reiiabU'ty gold piated contacts computer grade 34 

conductor cable Tested and guaranteed 

Get one lor each onve only S t J 95 



INTERFACER 2 LOW COST INPUT 'OUTPUT MOCUlf 

Stin tne best .aiue m •.< evnces m it lot 

energy contra burglar aar" darkroom, seiectnc drive, 
•nod* trains robots S«mn»r Box 

-8 lalchedTTl outputs 2 relays SPDT 2A 125V contacts 
L -MOS inputs input and I are optically isolated 
— Neat and compact design very easy to use 
10 A = iNPlOi Reads the 8 inputs (it A = all inputs are 
low) 20 OUT OX Controls tne outputs and the relays 
Assembled & tested 90 day warranty Price includes power 
supply, cable to KB or fc'i superb user's manual tree 
pnone dialer program $95 Manual only $5. 
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INTERFACER 80 !•* mo 

• 8 industna' grade relays single pole double trrow isolated 
contacts 2 Ar-.p ,u 1 25 Volts TTc latchec outputs are also 
accessible 10 di yttxtotnal isiid stale relays 

■ 8 convenient LEDs constant', display the t ay stales 
Simple OUT commands tin basic i control the 8 relays 

.8 ophcaNy-isotated inputs lor easy direct interfacing to 
external switches photocells keypads senses etc 
Simple INP' commands read the status ol ire 8 inputs 
Selectarjie port address Ciean compact enclosed des.gn 
Assembled tested 90 days warranty Pnce includes power 
supply cable, connector supe'b user s "ianua! S159 



GREEN SCREEN 

WARNING 

IBManca't-e biggies are using green screen monitors 

its advantages are now wide'y advertised: We teei thai every 

"RV80 user should enjoy the benetits it provides But 

WARNING alt Green Screens are not created equal Here is 

what we tound 

•Several are iust a tlat piece ol standard cowed Luute The 

green tint was not made lot this purpose and is |uoged by 

many to be too dark increasing the brightness conuoi win 

result in a tuz/y display 

•Some are simply a piece ot then plastic Mm taped onto a 

cardooard dame The color is satisfactory but the wobbly turn 

gives it a poor appearance 

•One optical tiller is in tact plain acrylic sheeting 

•False claim A tew pretend to reduce glare in tact their 

Hal and stimy surfaces tooth titm and i ucite type) ADO men 

own reflections to the screen 

•A tew laughs One ad claims to ieduce screen contrast 

Sorry gentleman but it s just tne opposite One ot the Green 

Screen s maior benetits s to increase the contrast between 

the text and the background 

•Drawbacks Most are using adhesive strips to tasten BMW 

screen to the monitor This method makes it awkward to 

remove tor necessary periodical cleaning An (except ou'Sl 

are Hat Light pens will not work reliably because ot me big 

gap between the screen and the tube 

Many companies have been manufacturing video lifters tor 

years We are not the lust (some think they arei but we have 

done our homework and we think we manufacture the best 

Green Screen Here is why 

•it ins right onto me picture tube "ke a skm because n is me 

only CURVED sc-een MOLDED exactly 10 the picture tube 

curvature n is Cut precisely to cover the exposed area ot ihe 

picture tube The tit is sucn that the static electricity is 

sufficient to keep it in place 1 We also include some invisible 

reusable tape lor a more secure fastening 

•The titter material that we use is iust right not too datk nor 

too light I he result is a realty eye pleasing display 

We are so sure that you will never take your Green scteen oft 

that we oiler an unconditional money-back guaraniy try our 

Green Screen tor 14 days tt toi any reason you are not 

delighted with it return it lor a prompt retund 

A last word We think mat companies like ours who are 

selling mainly by mail should «lisl their slreet address«have a 

phone number Hor Questions and ordershaccepl COOs nol 

every one likes to send checks to a PO Mxaotfer me 

convenience o' charging their purchase to ma|or credit cards 

How come we are the only green screen people doing it 7 

Order your ALPHA GREEN SCREEN today Si ? 50 



ALPHA Product Co. 



85-71 79 St.WOODHAVEN NY. 11421 S Into and order: (212)296-5916 



ADO S? 50 PFR ORDFR FOR SHIPPING AND HANDLING 

ALL ORDERS SHIPPED FIRST CLASS MAIL 

WE ACCEPT VISA MASIER CHARGE CHECKS MO 

COO A0DS2 00 EXTRA 

QUANTITY OlSCOUNTS AVAILABLE 

NY RESIDENTS A00 SALES TAX 
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Lisp Interpreter 
Supersoft Associates 
Champaign, IL 
$75 cassette 
$100 disk 

by Gary McGath 

An unusual entry in the language 
field is Supersoft's Lisp interpreter. 
Lisp is not as well known to microcomput- 
er users as it might be. although it is the 
most heavily used language in artificial in- 
telligence research. Its simple (though un- 
usual) syntax and powerful data manipu- 
lation capabilities make it an excellent 
choice for dealing with the complicated 
data structures required by artificial intel- 
ligence programs used for natural lan- 
guage processing and pattern recognition. 

Other areas where Lisp is effective are 
symbolic mathematics and adventure- 
type games. The Supersoft interpreter 
runs on both the Model I (Level II) and the 
Model III with 16K of memory: the disk ver- 
sion runs under TRSDOS. All these ver- 
sions offer TRS-80 owners the opportunity 
to experiment with artificial intelligence- 
type programs on their microcomputers. 

Lisp stands for List Processing. The on- 
ly data structure Lisp uses is the list, 
which is a series of linked data cells. The 
elements of lists may be other list; this 
permits the representation of any tree 
data structure. Programs are lists and 
may create other lists; memory space for 
lists is allocated by the interpreter as 
needed. As a result, it is possible for one 
Lisp program to create or modify anoth- 
er one. 

Supersoft's implementation of the 
language is fairly complete. Floating- 
point numbers are used, and a variety of 
mathematical functions are provided. 
Variable names (atoms) may be of any 
length. Property lists, allowing the pro- 
gram to associate attributes with atoms, 
are supported, as are two different kinds 
of user-defined functions. Functions that 
are part of standard Lisp, but can be com- 
posed easily from other functions, have 
been omitted to save space. The user's 
manual gives Lisp definitions for these 
functions which can be typed in. The set 
and reset functions permit screen 
graphics. 

Input/output operations on cassette 
and disk consist of saving and loading all 
data are not formally distinguishable.) On 
the Model III, either 500 or 1.500 baud 
may be selected for cassette input/output 
but the rate cannot be changed once it 
has been set. This limits the Model III user 
to 500 baud if he or she wants to use the 



Edit and Trace programs Supersoft pro- 
vides of tape. 

The interpreter is quite fast and nearly 
bug-free. Garbage collection — the 
reclaiming of released storage— is the 
most difficult problem in implementing 
Lisp; but in this case, the hesitation caus- 
ed by the garbage collector is barely 
noticeable, even on a 48K machine. 

I have found only two bugs so far in the 
cassette version. One is typing an atom at 
the interpreter will not produce a response 
unless the atom is followed by a space or 
a right arrow. The other is if an atom is 
given a property of NIL, that property can 
never be changed except by directly modi- 
fying the property list. 

There are, however, a couple of disap- 
pointments in store for the buyer of Super- 
soft's Lisp. The manual is a thin docu- 
ment, typewritten and cheaply bound. It 
will be an insufficient guide for anyone, 
even a professional programmer who is 



less than fluent in Lisp. It does, however, 
tell the experienced Lisp programmer 
everything he needs to know. 

The major deficiency in the software 
itself is the lack of any printer output. The 
only way a printout can be obtained is to 
save a program on cassette, return to 
Basic to redirect screen output to the 
printer, reload the program, and obtain the 
listing. If Supersoft had provided a POKE 
function like Basic's, this redirection 
could have been performed without leav- 
ing Lisp. 

These problems, however, will not 
stand in the way of anyone who believes 
Lisp is the right language for his or her 
projects. I hope Supersoft will add some 
improvements in the future, but their pro- 
duct is already an exciting alternative to 
programming in Basic. ■ 

Ed. note: The Al references are our com- 
ments, not the author's. 



Spooler 

Mumford Micro Systems 

Summerland, CA 

$16.95 

by William C. Huffman 



pooler by Mumford Micro System is a 
print formatting system for parallel or 
serial printers. Spooler allows you to 
specify the number of lines per page, the 
number of characters per line and a 
pause, if needed, between pages of out- 
put. The pause allows insertion of another 
sheet of paper if your printer prints only 
one page at a time. Spooler also allows 
you to send the contents of the video 
screen to the printer. This last feature is 
similar to the JKL function of NEWDOS 
and others. 

Works Without Disk 

Spooler is a machine-language program 
which works on any Model I, Level II, 16K 
or larger and Model III 16K or larger 
TRS-80. Spooler will work without disk. Let 
me repeat that, Spooler works without 
disk. It is supplied on a cassette con- 
taining six copies of the program. Includ- 
ed on the tape are two copies each of the 
16K, 32K, and 48K versions of the pro- 
gram. Directions for placing the program 
on disk are included in the easily read and 
well documented instruction booklet. 

Spooler works by setting aside a user- 
defined chunk of high memory. All output 
intended for the printer is intercepted and 



sent to this area. Whenever Spooler is ac- 
tive and LLIST or LPRINT commands are 
encountered, the cursor disappears from 
the video monitor for a brief period. The 
printed output is rerouted to the reserved 
high-memory area. When the cursor re- 
turns to the screen, you are able to contin- 
ue execution of your program. You may 
even load and execute another program 
while the printer goes merrily on its way 
producing printouts. The printer contin- 
ues to run while you continue with your 
program. 

Spooler also works while in DOS. Now 
you can get a printout of your disk direc- 
tories if you do not have Newdos or one of 
the other operating systems with a JKL 
feature. 

I like the indent function of Spooler. I 
tend to program using very long or multi- 
ple statement lines. It is difficult to follow 
a listing of a program which contains long 
lines because the line numbers do not 
stand out. I use Spooler to indent my list- 
ings and they become much easier to 
read. 

My Centronics 779 line printer is slow 
and my Texas Instruments 810 printer will 
not indent listings. With Spooler, my wait- 
ing on a printer is over. In short, I like 
Spooler. I like Mumford Micro. They sent 
me an improved version of Spooler several 
months after I received the original ver- 
sion. The improved version was sent with- 
out charge and without my requesting it. I 
can only give my highest recommenda- 
tion of Spooler and of Mumford Micro 
Systems.fi 
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WHY 

TALKING 

ROBOT 

ATTACK 




ALL GAMES •' 

16K Level 2. Mod 1 * Mod 3 Cassette $15 95 
32k Level 2, Mod 1 * Mod 3 Diskette $19 95 
10% discount tor 2 games 15% for 3 or more 
Games may Be played with or without joystick 




SCARFMAN 



IS THE ALPHA JOYSTICK 
SUCH A SUCCESS ? 



A. Sofware support like this: 




TALKING 
ROBOT ATTACK 

INCREDIBLE! This amazing game actually TALKS 
without a speech synthesizer, through the cassette 
AUXplug. 

You are armed with just a hand held laser. In a 
remote section ol the space station you encounter 
armed robots, some march towards you. some wait 
around corners Watch out the walls are electrified 
Zap as many robots as you dare before escaping 
into a new section where more robots await you. 
The struggle continues. With Joystick action and 
VOICE OUTPUT, this game will amaze you 
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SCARFMAN 

THE LATEST ARCADE CRAZE now runs on your 

TRS-80. 

It s eat or be eaten. You control Scartman around 

the maze, gobbing up everything in your path You 

attempt to eat it all before the monsters devour you 

Difficulty increases as game progresses Excellent 

high speed machine language action game From 

The Cornsoft Group With sound. 

CAUTION: Played with the Alpha Joystick Scarlman 

may become addictive. 




SUPER NOVA 

Aste'Oids 'loal ominously around me 
screen you must destroy lie asteroids 
before iney destioy you 1 (Big asteroids 
break into utile ones ) Your ship win 
respond to thrust rotate hyperspace 
ano tire Watcn out 'or mat saucer with 
Ine laser 1 As reviewed m May 198' Byte 
Mtgu •■• 
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GALAXY INVASION 

The sound C IM Manor is calling you' 
invaders nave been spotted warping 
toward Eann You shilt right and left as 
you lire your lasers A tew preak form- 
ation and 'ly straight at you 1 You place 
your finger on the lire outlon knowing 
mat this shot must conned' With sound 
seeds' 





~ — 






a a a a o ■ a 
■ ■••■■■* 






■ •■»... 

> - « 

« 





ATTACK FORCE 



As you' ship appears on the bottom ot 
me maze eight alien ships appear on ire 
top all t'aveiing directly at you' You 
move toward IMffl and tire missiles But 
•re more aliens you des'roY " 
me remaining ones become if you get 
too good you must enrjure the Flag- 
ship ' With sound eiiecis 1 



THE ALPHA JOYSTICK: 
REAL ARCADE ACTION 




COSMIC FIGHTER 



Your ship comes oui :' lyae'space 
L"de- a convoy ot aliens yol destroy 
*M Bu' another set appears 
Tnese seem more intelligent You 
eliminate them, loo Your luel supply is 
diminishing Vou must destroy two more 
sets before you can dock The space 
Statior is now on your scanner With 
sound' 



METEOR MISSION If 



As you ioo« down or ,ou r view 
astronauts cry oul lor rescue You must 
maneuver through me asteroids & 
meteors i Can you gel back to the space 
station'') fire lasers to destroy the 
asiero*ds but watch out there could be 
an alien FLAGSHIP lurking includes 
sound effects' 




■ Features the famous ATARI JOYSTICK 
flWorks with any Level II or disk system Model i 
■Plugs directly into KB or E/l (next to printer port) 
■Compatible with any other TRS-80 accessories 
■Saves your keyboard 

■Fun to experiment in BASIC Simply use A = INP(O) 
to read the joystick 
■Fully assembled, ready to plug in and use 

Price includes Atari joystick + Alpha interface + 
instructions + demo program The Alpha Joystick 
is backed by an unconditional money back 
guarantee if you are not delighted with it. return it 
within 14 days tor a prompt and courteous refund. 




Toll Free 
Order Line 

(800) 
221-0916 



ADD tl.SOPF.fl ORDER FOR SHIPPING AND HANDLING 

All ORDERS SHIPPED FIRST CLASS MAIL 

WE ACCEPT VISA MASTER CHARGE CHECKS MO 

COD ADOS? 00 EXTRA 

QUANTITY OlSCOUNTS AVAILABLE •^SJ" ' 
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ALPHA Products 



• 210 



85-71 79th Street Woodhaven. NY 11421 



(212) 296 5916 
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EDTASM-Plus 

Mark Chamberlin and Bill Yates 

Microsoft 

Bellevue, WA 

$29.95 

by Chris Gundlach 

Since the introduction of the TRS-80, 
those of us wishing to try our hand at 
Assembly-language programming have 
had the excellent Radio Shack Editor/As- 
sembler which is well known as a good 
value because of its "big assembler'" fea- 
tures. Unfortunately, using the original 
EDTASM meant writing programs with the 
Editor/Assembler, saving the source code 
on cassette (for later work), saving the ob- 
ject program on cassette, and finally load- 
ing the object program and T-Bug (two 
more cassette operations that cause loss 
of EDTASM in memory). For me, all the 
cassette flipping (and the usual hassles 
with wrong volume settings) took away a 
lot of creative gusto needed to work with a 
machine- level program. 

Microsoft's new EDTASM-Plus isoneof 
those miracle programs that cures just 
about every hassle you might think of. If 
you are just starting to get into Assembly 
language and the inner workings of a 
TRS-80, EDTASM-Plus is just what you 
want. 

EDTASM-Plus is written by Mark Cham- 
berlin and Bill Yates; Chamberlin de- 
signed the original Editor/Assembler. 
These people know the TRS-80 inside out, 
and have been in touch with thiscomputer 
since it first came out. The knowledge 
shows, since EDTASM-Plus is an incredi- 
bly complete Assembly-language develop- 
ment system oriented to the cassette 
TRS-80 user, and takes into account the 
overall design of the TRS-80, the way it 
uses memory, and so on. 

EDTASM-Plus has three important 
parts and we'll review features of each for 
you. We'll try to explain things in a way 
that new Assembly-language program- 
mers can picture. The three parts, all con- 
tained within EDTASM-Plus and loaded 
with one cassette load using System, are: 
the editor, the assembler, and Z-Bug (a de- 
bugging monitor similar in function to 
Radio Shack's T-Bug). 

The Editor 

The editor is very much like the same 
feature in the original Editor/Assembler. 
Using numbered program lines, it allows 
you to type in Assembly-language pro- 
grams in Z80 mnenomics, or code words, 
such as the command LD A, (HL) which 
loads the computer's A-register with the 
contents of a memory location pointed to 




JL 



iDf^- 



software 



by the H and L register pair. The editor 
stores these lines for later conversion, 
or assembly, into the actual numeric 
machine-level commands which the Z80 
chip in the TRS-80 was designed to work 
from. 

Editing features in EDTASM-Plus have 
been greatly expanded over those in the 
original Editor/Assembler. Using a line- 
editing feature like the Edit function of 
Level II, you can change program lines. 
However, EDTASM-Plus also allows you 
to move any part of your Assembly-lan- 
guage program to another set of program 
lines. This saves you the headache of re- 
typing one or several lines of assembler 
code after discovering you had them in a 
bad place in your program. 

EDTASM-Plus' Editor also allows you to 
edit a given series of program lines with- 
out having to reenter the Edit function for 
every line. You just give the Editor the line- 
number series and it stays in the Edit 
mode for each of the lines. Rather than 
giving the exact range of line numbers, 
EDTASM-Plus also lets you give a starting 
line number and a number of lines to 
edit— a handy feature to use after you've 
inserted new lines that might be num- 
bered oddly. 

Using a variation of this feature, you 
can also go through your program to add 
comments to each line. Called the extend 
function, it lets you move to each line, po- 
sitions the cursor at the end of each line, 
ready to input your comment for the line. 
After you Enter the comment, the Editor 
moves to the end of the next line— you 
don't have to retype the Edit command 
and the X subcommand for each line. 

EDTASM-Plus has the other program 
editing features of the original Editor/ 
Assembler. For example, insert lines start- 
ing at a certain number with a certain in- 
crement, replace a line, renumber all the 
lines or a part of them, delete lines, find a 
string within the assembly code, and so 
on. Together with the new line, block copy- 
ing and moving features of EDTASM-Plus, 
the new Editor is a powerful and versatile 
working tool for entering Z80 mnenomic 
code. 

EDTASM-Plus also adds a couple of im- 
portant features not found in the original 
Editor/Assembler, and which may be new 
to those familiar with original version. 



It will accept macro definitions. A mac- 
ro is something akin to a DEF FN state- 
ment in Disk Basic, by which you define a 
function that contains a number of actual 
program statements. When you call the 
function by name, the computer performs 
the steps of that function just as if you 
had written them out. Similarly, a macro is 
a block of Assembly-language statements 
that you might wish to use over and over 
again, but with different parameters or 
values within the routine. You define, or 
describe, a macro by writing out the steps 
using dummy values. The Editor remem- 
bers the steps in the macro, and whenever 
you call it by name and provide the val- 
ues—a step involving a single program 
pseudo-op line — it generates the steps of 
the macro in your Assembly-language pro- 
gram when it's assembled. 

EDTASM-Plus also allows conditional 
assembly. You may establish conditions 
that must be met for a given part of the 
program to become part of your assem- 
bled machine-language program, and if 
the condition is not true, the assembly 
just skips that part of the program as if it 
were not there. The example given in the 
EDTASM-Plus manual is a good one: You 
have a program you wish to assemble to 
fit a 4K TRS-80 and an extended version of 
the program to fit a 16K machine. Condi- 
tional assembly lets you pluck out the 
parts you do not want to include in the 
smaller program, so that you can create 
both versions using your master program 
instead of typing in and assembling two 
versions yourself. 



"EDTASM-Plus is 
one of those 
miracle programs. . 



EDTASM-Plus also recognizes new op- 
erators within you source mnenomics. Be- 
sides using expressions such as VIDEO 
+ 40H, you can use multiplication, divi- 
sion, modulo division, and logical oper- 
ators within your source code, so that the 
Assembler will calculate and assemble 
your program correctly without your hav- 
ing to work out the expressions by hand 
beforehand. You can also use parenthe- 
ses in expressions, something that was 
not allowed in the original Editor/As- 
sembler. 

The Assembler 

The assembler portion of EDTASM- 
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Plus isthe part which reads your mnemon- 
ics and converts them to actual digital in- 
struction for Z80. EDTASM-Plus provides 
a variety of error messages and warnings 
when your program is assembled, like the 
original Editor/Assembler. 

But the original E/A left you with just a 
couple of options upon assembly — record 
the program onto a cassette to reload and 
run it, or continue working in the Editor. 
EDTASM-Plus will assemble your program 
directly into the TRS-80's memory, using a 
location you choose or one provided auto- 
matically by EDTASM-Plus, so that you 
don't have to record it on cassette to run 
and debug the program. Using Z-Bug (de- 
scribed next, and part of EDTASM-Plus), 
you can immediately run your assembly- 
language program. EDTASM-Plus gives 
you plenty of the interactive features that 
are inherent with a Basic interpreter, and 
eliminates a tiresome and often discour- 
aging series of cassette loads and reloads 
just to test a program and get it right. This 
Microsoft package assembles into memo- 
ry without destroying the Editor/Assem- 
bler itself, so you can go back to your 
source program in the Editor to make cor- 
rections and reassemble it to try again. 
Then, after the program is the way you 
want, EDTASM-Plus will assemble the 
program for loading into any memory lo- 
cation you specify, so that you can make 
your machine-language cassette and use 
the program without EDTASM-Plus. 

The symbol table is alphabetized and 
error-codes are appended to listings in the 
symbol table for things such as undefined 
or redefined labels. Labels used to iden- 
tify macros rather than actual source-pro- 
gram steps are also identified. 

EDTASM-Plus supports lineprinter out- 
put, as does the original E/A, so that you 
can lineprint your source code with or 
without line numbers, the symbol table, 
the assembled listing, and so on. Switch- 
es (in-line commands given when you as- 
semble the program) allow you to suspend 
or allow printouts of macros and other 
parts of the program. 

Z-Bug 

Z-Bug, the third part of EDTASM-Plus, is 
like a T-Bug whose IQ was beefed up by 
some miracle drug! Z-Bug is a monitor, a 
program that allows you to look into the 
TRS-80's memory location and change 
them if needed. You use Z-Bug to run your 
assembled machine language program, 
see what it does, make corrections and try 
again, set breakpoints, and jump back to 
EDTASM-Plus and the source program. 

Z-Bug goes beyond T-Bug in that it will 
display program steps as mnemonics 
rather than simple byte-by-byte hex num- 
bers. It's like a line-by-line disassembler 



and because Z-Bug stays resident with 
your source program and EDTASM, you 
can reference locations to be examined 
with Z-Bug using your own symbols rather 
than specific hex memory locations. 

Z-Bug also has a calculator mode so 
you can perform hex-to-decimal conver- 
sion on-line (without disturbing your pro- 
grams or entering special conversion sub- 
routines) and even calculate expressions. 
You can ask Z-Bug, for example, to tell you 
where VIDEO + CURPOS + 40H is by just 
typing it like that, followed by =. Z-Bug 
will output numbers in hex, octal, or deci- 
mal, and will input numbers from the key- 
board in any base from 2 to 16. You can 
therefore use Z-Bug to type in a memory 
location bit-by-bit (10011101, for example) 
and then see what that binary number is in 
hex. decimal, or octal. 

A Byte mode lets you look at individual 
memory bytes (like T-Bug), and a Word 
mode lets you see pairs of bytes— proper- 
ly decoded from the Z80's reversed stor- 
age format which has the low-order byte 
first. Z-Bug allows you to display memory 
locations as ASCII (character) output, too. 

Z-Bug allows eight breakpoints in your 
program and you do not have to fix a 
breakpoint after it's reached, as you do 
with T-Bug. Z-Bug also allows you to step 
through your program by single steps 
which is a lot easier than trying to test a 
program on the fly at microsecond 
speeds. 



Microsoft has included a stand-alone 
version of Z-Bug on the back side of the 
EDTASM-Plus cassette, so you can use 
Z-Bug alone. Symbolic references, of 
course, work only with a source program, 
resident with EDTASM-Plus. so the stand- 
alone version of Z-Bug can't reference 
symbols. 

Z-Bug is great just for looking at the 
TRS-80's ROM subroutines and the pro- 
gram routines in the reserved RAM areas, 
so you can learn something of how Basic 
does what it does. 

The EDTASM-Plus Handbook 

The instruction handbook is as excel- 
lent as the software itself. It's written by 
William Barden, the author of Radio 
Shack's book on TRS-80 Assembly-lan- 
guage programming, thereby making 
EDTASM-Plus a fine companion to your 
first explorations in machine language. 
Some assumption of Z80 programming 
and the original E/A are assumed in Micro- 
soft's manual, but all of EDTASM-Plus' 
new features are explained thoroughly 
and well. Microsoft even included a notice 
of a couple of obscure bugs that would 
arise in tricky assemblies, and tells you 
how to use Z-Bug to make the correc- 
tions to EDTASM-Plus and punch your- 
self a corrected tape. Needless to say, 
EDTASM-Plus obviously represents a 
huge amount of work by its programmers 
and Microsoft. ■ 



The Southeastern Textan 
Southeastern Software 
Birmingham, AL 
$40, cassette Model I 



by Dennis Thurlow 



ind a need and fill it! Yep, those six 
words are the secret to success al- 
right, and Southeastern Software has got 
a winner here! From the well written, in- 
dexed(!), easy-to-follow manual to the 
flawless execution of each and every com- 
mand, this has got to be one of the best 
thought out packages I've seen. 

The program locates itself to the top of 
available memory, then asks if you want 
to type in, or CLOAD, a program. Either 
way, when you're ready, you have an in- 
credibly powerful editor at your disposal. 

Using the shift key and down arrow as a 
control key, there are 24 cursor control 
commands that allow you to insert or de- 
lete characters, words, or lines of Basic, 



search for any character, replace any 
character with any other, or load another 
program. The control X command puts 
you in an extended mode that allows eight 
more commands including string search 
and replace, block delete, insert lines with 
automatic numbering, and displaying the 
amount of free memory. 

In addition to the text handling features 
there is an abbreviated keyboard. Pres- 
sing shift and any letter types a complete 
Basic command or statement. 

The repeat key feature works for any in- 
put not related to editor commands, the 
break key will abort a bad load, and the 
non-destructive cursor can be moved to 
any point on the screen using the four ar- 
row keys. Complete error messages are 
displayed on screen and thoroughly ex- 
plained in the previously praised manual, 
and programs can be merged in the buffer. 
When you exit the editor, all text is fed to a 
compiler that returns it to Basic compres- 
sion codes. 

This is a dream utility for the Basic pro- 
grammer. ■ 
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Planet Miners 

Avaion Hill 

Baltimore MD 

16K, Level II, Mode's I & III 

$14.95 

by Darren DeVigili 

lanet Miners is Avaion Hill's first ef- 
fort at a microcomputer game outside 
the strategic war genre, and is an excel- 
lent example of thorough programming. 
While Avaion Hill is a well established 
game company, I was a little leery of their 
excursion into the world of microcomput- 
er game design. 



planets); display mining status; display 
ships in orbit; display ship status (yours); 
set ship destination; protest a claim; at- 
tempt to claim jump; attempt sabotage; 
finished with commands for today (not ex- 
actly my idea of an option, more like death 
and taxes). When attempting sabotage or 
toclaim jump, keep in mindthattheSpace 
Patrol may arrest you if you are caught in 
the act. If there are no Patrol ships around 
and your opponent catches you, your ship 
crew will be detained and tortured by your 
would-be victim. The scars still show, and 
I've become a wary miner indeed. (I told 
you it was realistic). 

If you play with fewer than four players, 



"While Avaion Hill is 

a well-established game company, 

I was a little leery of their 

excursion into the world of 

microcomputer game design." 



The game's scenario is a futuristic Gold 
Rush. You have five ships, three oppo- 
nents, and a limited amount of mining 
claims to try for. To add realism to the 
game, the playing options include claim 
jumping, protesting claims, and (my per- 
sonal favorite) sabotage. 

The game is for zero to four players; 
zero being the computer versus itself. (The 
computer always plays in the capacity of 
the Space Patrol regardless of the number 
of human or non-human players). All the 
play options are interactive, for example, 
jumping a claim on Pluto causes the com- 
puter to evaluate the location of your 
ships, the Patrol's ships, and the claim 
holder's ships. It also evaluates the 
finesse of these ships, each player's polit- 
ical pull, and current popular opinion con- 
cerning your family. (Each player's ships 
are considered to be part of a corporate 
family.) Those factors concern not only 
claim jumping, but just about every as- 
pect of the game, and its outcome. 

I have noticed two detachments from 
reality in the game. One is that there are 
10 planets in the solar system (the addi- 
tion being Ceres), and two, once you set a 
ship's destination, you can't alter it (after 
take off), until the ship arrives. This adds a 
degree of spice in some situations. 

There are 10 play options available: 
Large solar system (map); small solar 
system; display travel times (between 



the computer automatically assigns 
names to the other players, which are 
simulated by the computer. This may not 
seem like much, but I still hate the 
Lysanders — they win too much. 

One game rule worth special mention is 
that just because someone types their 
name in first doesn't mean they will play 




first— the sequence of turns is randomly 
chosen every round. This is the only pro- 
gram I've seen with this feature. Planet 
Miners is an exceptional buy.B 




Quality Percom products are available 
from the following authorized Percom 
retailers. If a retailer is not listed for your 
area, call Percom toll free at 1-800-527- 
1592 for the address of a nearby retailer, 
or to order directly from Percom. 
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Disk Storage: It's No Place to Compromise. 



A dependable disk system 
means everything to the high- 
performance operation of your 
computer. At Percom, we know 
this. And we do something 
about it. 

For example, the connectors 
on our TFD drive systems are 
gold plated. 

Why? Because solder-plated 
contacts oxidize, forming an in- 
sidious insulation that can 
cause erratic operation. And 
then total failure. 

Gold-plated connectors are 
just one way we make better 
drive systems than the competi- 
tion. 

Now #1 for the Model III 

Quality Percom TFD drives provide more 
features, cost less. Add-on drives start at 
only $439 00. Complete First-Drive Sys 
tems start at only $749.95. Features: 
"Flippy" Capability - Record your 



To order products, or for the name of your 
authorized Percom retailer, call toll free 



1-800 527 1592. 




PERCOM DATA COMPANY. INC 

211 N KIRBY GARLAND. TEXAS 75042 
(214) 272-3421 



"trademark ul Cerium Data Company l r ' 

'trademark of Tandy Radio Shack Corporation which h.is no 



tion. And our double -density version of 
OS-80'" costs just $49 95. 

Of course you don't have to upgrade 
your Model I for double-density opera 
tion to use Percom disk drives. But it's 
nice to know you can. 

Percom TFD drives for the TRS-80* 
Model I are available in 40-, 77- and 80 
track versions, in 1-. 2- and 3-drive con- 
figurations Prices start at $399.00. 

System requirements: Model III TFD drives work 
with a 16 Kbyte system (mtn) and Model III BASIC 
The initial dnve must be a first -drive system. An op 
tional interconnecting cable is available for expand 
ing with external drives #3 and #4 Model I TFD 
dnves work with a 16 Kbyte system (min) equipped 
with an Expansion Interface. Level II BASIC and 
DOS software, and an interconnecting cable Two 
and four drive interconnecting cables are available 
from Percom 



programs and data on either side of a dis- 
kette Greater Storage Capacity — 

Store 180 Kbytes — formatted - on one 
side of a 40 -track TFD drive. Store over 
twice as much on a TFD 80-track drive. 
Think Megabytes - Your TFD drive 
controller will handle up to four drives. 
You can access almost 15 million bytes 
of on-line program and data files. Either 
Add-in or Add-On Your TFD First 
Drive System can be either internal 
(add-in) or external (add-on). In either 
case, you get a complete system in 
eluding the disk controller, drive, power 
supplies and disk operating software 
BASIC Language DOS Included on 
diskette with each First Drive System is 
Percom's OS 80/111 ". This easy-to-use 
disk-operating system loads into 7 Kbytes 
of RAM and then frees the drive for other 
use. With OS-80" programs, you can 
have full, read-write interchangeability 
between Model I and Model 111 diskettes. 
Or Model III TRSDOS* TFD 40 
track drives work with Tandy's Model HI 
TRSDOS. without modification. For 80- 
track operation, TRSDOS can be easily 
modified with diskette patches supplied. 

Still #1 for the Model I 

Besides greater storage capacities, more 
quality control measures and lower pri 
ces, all Percom Model I drives are rated 
for double density operation. 

Plug a DOUBLER " in your Expansion 
Interface and enjoy the same double 
density disk storge capacity as Model III 
owners. Included with each DOUBLER is 
a TRSDOS compatible double-density 
disk-operating system. DOUBLEZAP 
programs are available for upgrading oth 
er popular DOSs for DOUBLER opera 

rebttondllp to P«c«T. Dm Comp.ny PRICES AND SPECIFICATIONS SUBJECT TO CHANGE WITHOUT NOTICE 



Yes ... I'd like to know more about 
the best for my TRS-80 computer 
Send me free literature about quality 
Percom products 
[ | Model I □ Model 111 






Send to 

PERCOM DATA COMPANY. Inc . Dept 

211 N Kirby Si Garland TX 7. r >0<i2 



street 








phone number 



MAIL TODAY! 
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TRS-80 Assembly Language 
Herbert S. Howe, Jr. 
Prentice-Hall, Inc. 
Englewood Cliffs, NJ 
$15.95 Hardcover, 186 pp. 
$6.95 Softcover 



by Edward D. Young III 

Learning how to write TRS-80 Assembly- 
language programs can be a very dif- 
ficult task. Unlike Basic, in which the in- 
structions bear a logical relationship to 
the operation intended, Assembly-lan- 
guage instructions usually resemble the 
names of exercises rather than computer 
operations. For example, you can Push or 
Pop a byte, Rotate or Shift a bit, etc. 
Hubert Howe, Jr., a columnist for the 
TRS-80 Monthly News Magazine, offers 
his book as a guide to understanding this 
complex, yet elegant, language. Except 
for the few reservations noted below, this 
book is a good reference for both begin- 
ning and experienced Assembly-language 
programmers. 

Howe divides his book into two sec- 
tions. Part I introduces and explains the 
basic concepts of Assembly-language 
programming. In addition to describing 
the operation of the Z80, the heart of the 
TRS-80, it explains the organization of the 
TRS-80's memory and how to use the vari- 
ous permanent subroutines which reside 
in it. 

The discussion of how certain in- 
put/output devices, such as the keyboard 
and video display, are linked to special 
memory locations is particularly infor- 
mative. Other chapters in Part I introduce 
the Z80 instruction set, the Z80 stack, and 
Radio Shack's Editor/Assembler program. 

Howe assumes that the reader has ac- 
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cess to a 16K Level II and has Radio 
Shack's Editor/Assembler or an equiva- 
lent assembler (such as the Apparat 
EDTASM which comes with NEWDOS + ). 

An assembler allows you to assemble 
and execute programs. If you do not have 
one you may still be able to load and ex- 
ecute the programs in this book by using 
POKE or by using a machine language 
monitor program such as T-Bug. In any 
event, the book will be clearer if you can 
assemble the sample programs and ex- 
ecute them on your own computer. This 
fact notwithstanding, the chapters in this 
section are clear, instructive, and a joy to 
read. 

Illustrating Practical Tasks 

Part II of the book illustrates the prac- 
tical tasks that can be performed using 
Assembly-language programs. There are 
chapters on how to input and output data 
efficiently, read a cassette tape written in 
any format, move large blocks of data, 
and perform floating-point and integer 
arithmetic. Three chapters, however, are 
particularly outstanding. Chapter 15 de- 
scribes, in great detail, how to use Assem- 
bly-language subroutines in conjunction 
with Basic programs. This chapter culmi- 
nates in the presentation of a subroutine 
which allows the user to sort 100 alphanu- 
meric strings in less than two seconds! 

Chapters 16 and 17 discuss disk in- 
put/output and disk files. Chapter 16 con- 
tains a concise explanation, in simple 
terms, of how a disk is formatted and ac- 



cessed. It also points out errors in the 
documentation of TRSDOS. Chapter 17 re- 
veals how to store and retrieve informa- 
tion from seven different types of disk 
files. This chapter alone is worth the price 
of the book. Using the information con- 
tained in this chapter you can read virtual- 
ly any disk, even one protected by a pass- 
word. 

On the negative side, a glossary and in- 
dex are notably absent from the book. 
Both of these items are important in an in- 
troductory guide, since beginners cannot 
be expected to retain everything they read 
the first time through. A reader trying to 
find the definition of "two's complement", 
for example, must thumb through the 
book before discovering that the defini- 
tion is on page 85. Also, there are a 
number of typographical errors in the 
book— a minor distraction. Finally, this 
book is not typeset in the usual manner. 
Rather than using the easy-to-read type- 
face found in most books, the author 
proudly announces that this book was 
composed and printed using a Diablo Hy- 
Type I printer with a Model I. The author 
probably thought that it was a good il- 
lustrative example to use a computer to 
write a book about computers; I found the 
print hard to read. 

Nevertheless, I think this book wil 
prove valuable to TRS-80 owners. It is writ 
ten specifically for the TRS-80; it takes ad 
vantage of the short-cuts and features de 
signed into the '80; and it provides helpfu 
hints of practical importance to program 
mers.B 



The Nature of Computation: 

An Introduction to Computer Science 

Ira Pohl and Alan Shaws 

Computer Science Press 

Rockville, MD 

Hardcover, 386 pp. 

$16.95 

by Joel Benjamin 

he Nature of Computation: An Intro- 
duction to Computer Science is a rig- 
orous introductory textbook to computer 
science and is for anyone just beginning 
in the field. 

The authors have used preliminary 
drafts of this book as the text in college 
classes over the past ten years. They state 
their objective is to provide the following: 

1. A survey of the field; 

2. Initial literacy of the language and 



methods found in computer science, 
and; 

3. A historical, philosophical, and so- 
cial perspective. 

The authors have succeeded admirably in 
achieving these goals. 

Algollc 

The book has been organized logically 
and coherently. First, we are presented 
with a taste of what programming is like 
with the use of a machine-independent, 
high-level language known as Algolic. It is 
similar to Pascal and is particularly suited 
to expressing and executing algorithms. A 
number of well-known algorithms are ex- 
amined, and we are shown how to express 
them in Algolic. 

An Account of Techniques 

We are then treated to an interesting 
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account of the development of computa- 
tional techniques from the abacus to the 
intricacies of the structure of a modern 
computer. Along the way, number bases, 
floating point numbers, strings, arrays, 
Boolean algebra, hardware components 
and circuits, digital logic, and computer 
architecture are all presented and ex- 
plained in a remarkably lucid fashion. 

Programming languages and operating 
systems are then explored. In this section 
we get an insight into the relationship be- 
tween high-level, Assembly, and machine 
languages; the use of compilers, inter- 
preters and assemblers, and the various 



examples of different languages suited to 
particular programming needs. 

Next, the authors introduce us to the 
theory of Turing Machines, computability 
and algorithms. 




The book ends very appropriately with a 
discussion of the social and ethical ques- 
tions raised by the various ways in which 
computers are used in our society. 

There is a set of comprehensive excer- 
cises and questions at the end of each 
chapter as well as suggestions for addi- 
tional readings. These aids, along with the 
comprehensive nature of the text, make 
The Nature of Computation ideal as a text- 
book in an introductory college course. 
But it can also be used by an individual 
who wants a painless and clear introduc- 
tion to computer science, which can be 
read on his or her own.l 



DIP-81 
DIP, Inc. 
Boston, MA 
$499 

by David Tinis 

Aside from the computer itself, the sin- 
gle largest purchase a hobbyist 
makes is a printer. Just one year ago a us- 
able impact printer retailed for at least 
$1,000. But that is changing. By flipping 
through the ads in any of the magazines 
it's evident that a printer price war is rag- 
ing. With that in mind, I went out to find a 
low-cost, reliable, well built printer. I final- 
ly settled on the DIP-81. It seemed to offer 
the best value for the price. 



The DIP-81 is an impact printer capable 
of printing 100 characters per second bi- 
directionally on an 80-character line. It 
can use rolls, fanfold or single sheets up 
to 8.5 inches wide. Paper feed is by friction 
roller only. The normal print mode is a 7 by 
7-dot matrix but can be expanded under 
software control to a 14 by 7 matrix. 

The DIP-81 is not a marvel of advanced 
technology. It uses proven parts to ac- 
complish a simple task— print. The unit is 
built on a steel chassis to which all 
subassemblies attach. Covering it is a 
single-piece shell of durable plastic. The 
funny bulge on the right covers a cooling 
fan that directs air over the electronics 
and the print head. The print mechanism 
is manufactured by the Two Day Corpora- 



tion and uses a single ac synchronous 
motor to drive both the print head and 
paper feed mechanism. The print head 
itself is a seven-wire design that has a 
rated life of 100 million characters. I was 
already familiar with this print head when 
I started looking at the DIP-81. The rest of 
the mechanism is rated for 10 million lines 
of printing. 
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Electronically the DIP-81 is just as sim- 
ple. All components except the power 
transformer, bridge rectifier and cooling 
fan are mounted on a single P.C. board. 
Overseeing operation is an 8035 micropro- 
cessor with the control program in a pair 
of 2708 EPROMs. An 8155 RAMI/0 con- 
troller round out the large scale ICs. Toss 
in a half dozen TTL parts, some voltage 
regulators and the TIP122 hammer drivers 
and you have a simple but efficient de- 
sign. A quick note about theTIP122s: They 
were chosen because of their ability to 
drive inductive loads without the need for 
clamping diodes to suppress the induc- 
tive kickback of the print hammers, a sign 
of good design practice. 

A parallel Centronics interface is stan- 
dard with the unit though a serial RS-232 
interface is available on the P.C. board as 
an option. Interestingly enough, simple 
conversion instructions are included in 
the operation and maintenance manual, 
but conversion by a non-authorized per- 
son voids the 90-day warranty. 

There are three operator controls and 
two indicators on the front panel plus the 
on/off switch on the back panel. From left 
to right the controls are TOF (top of form), 
SEL/DESEL (select/deselect) and Line 
Feed. Since the DIP-81 doesn't have a sep- 



arate paper feed motor, pressing TOF ini- 
tiates a series of line feeds. At power-on, 
the printer assumes the paper is already 
at top of form. It then counts lines and if a 
TOF command is encountered, it ad- 
vances to the next logical top of form and 
resets the line count. Line Feed initiates a 
single print cycle during which nothing is 
printed, although the print head travels 
across the paper. Again this is a result of 
using a single motor for all mechanical 
functions. It also explains why the DIP-81 
is a bi-directional printer. You never know 
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on which side of the printer the print head 
will start or stop. Having a synchronous 
motor instead of a more position-precise 
stepper motor also causes a slight col- 
umn misalignment during printing. SEU 
DESEL determines if the printer is ready or 
not, if it is, the red select indicator directly 
above the SEUDESEL switch will be on. In 
the deselected mode you can use the 
DIP-81 's self-test feature. Pressing Line 
Feed and TOF simultaneously causes the 
printer to display the 96 ASCII characters 
it is capable of printing. The final indicator 
is power-on located directly above Line 
Feed. 

I ordered my DIP-81 with the parallel in- 
terface and connecting it to my LNW Ex- 
pansion Interface was no problem. I did 
cut line 33, printer chassis ground, to 
avoid its being connected to signal 
ground in the expansion interface. The 
unit powered up and operated properly 
the first time I tried it. The DIP-81 lists for 
$499 but, like all current printers, is being 
discounted. I got mine for $395 and have 
seen it advertised since at $379. In 
retrospect I am quite satisfied with my 
DIP-81. While I wouldn't recommend it for 
highest quality business applications, I 
do feel it makes an excellent printer for 
the personal computer owner. ■ 



Home Computer Work Table 
Computer Roomers, Inc. 
Dallas, TX 
$179.95 

by Dan Keen and Dave Dischert 



When microcomputing was "just a 
hobby", we were content to stick 
the computer in a back room of the house. 
But then we became computer-holies, 
never leaving the machine except to eat, 
and go to work. So, we centrally located 
our TRS-80 in the living room. 

Now we needed to solve the problem of 
what to set it on. We have a Daisy Wheel II 
which develops a lot of torque and re- 
quires a table of steady support, prefer- 
ably one made out of cast iron or con- 
crete. Daisy is also very wide, which 
makes placement difficult in some areas 
of the room. 

Since the unit was to be placed in a very 
visible part of the house, it needed to be 
decorative. 

So the criteria for our table was that it 
had to be firm, well built, be able to pro- 
vide a home for peripherals, and provide a 
work space. It had to look nice and most 



of all, since we are cheapskates, it had to 
be reasonably priced. 

This describes a new computer table 
from Computer Roomers, Inc. which has a 
nice walnut wood grain look with black 
trim. 

The unit came in a box and though it 
was only about three inches deep, it was 
wide and heavy! (Plan on inviting a friend 
over the day you expect delivery.) It was 
packed extremely well, using big pieces of 
custom cut styrofoam. 

We found that the shelf which is at the 
rear of the table and runs along its entire 
width is the exact depth of our Shack disk 
drive as well as a friend's Apple drive, and 
we would assume most 5-inch disk drives. 
This shelf (called a video shelf) is a real 
plus since it gives you more room on 
which to place items and yet doesn't take 
up any more space in the room. The video 
monitor fits well on the shelf also, along 



"We. . .enjoy 
our new table.' 



with four drives and cassette recorder 
(your monitor can't sit on that interface 
any longer). Personally, we found this 
preferable to desks which have a shelf un- 
derneath to house only the drives. Fre- 
quently we have more than one person sit- 
ting at the console, and this table has 
plenty of leg room. 

An open space along the rear allows for 
cables and wires to be routed neatly out 
the back. 

It's so easy to put together "even a child 
can do it" . . . well almost. It took about 20 
minutes to assemble. They say "no tools 
needed," but we did need a hammer to tap 
a few sectors into their locked position. A 
wide blade screwdriver is required for 
disassembly. 

While the instruction manual pictures 
the desk with two "wing" extension 
shelves, it is apparent that only one at a 
time can be used. We assembled two 
tables, and both were missing the neces- 
sary "shoulder screws" that mount the 
second side. So, although a left and right 
wing come with the unit, plan on only us- 
ing one or the other. 

We thoroughly enjoy our new table, but 
some computerists may find its lack of 
drawers a slight disadvantage. ■ 
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UCSD Pascal Compiler 
FMG Corporation 
Fort Worth, TX 
$250 

by Dennis Thurlow 

First, will all of you who program 370's 
for a living, and are only reading this 
to find out about "little" computers, 
please wait on the other side of the room? 

Now, I did that because those guys 
would laugh if I called Basic a language 
because, in fact, it isn't! Basic is a code 
that must be interpreted by a large ma- 
chine-language program called (appropri- 
ately enough) an interpreter. Usually an 
editor of some kind is included to help you 
build the code, make changes if neces- 
sary, and save the code to a storage med- 
ium. 

A real language, on the other hand, is 
used by a compiler to generate machine 
code that is directly saved to disk or tape, 
or automatically executed. Since the sys- 
tem was never meant to be interactive, no 
editor is included and the program is 
usually punched onto cards and fed into 
the computer. 

Let me also point out that there are ex- 
ceptions to the rule. There are Basics that 
compile, and versions of languages, such 
as Cobol, that run on interpreters. And 
then there is Pascal. 
The Language 

Pascal incorporates all the standard 
programming features found in most lan- 
guages, but the syntax is much easier to 
learn. Example 1 presents a typical Pascal 
program and Example 2 is the same pro- 
gram in a non-structured format. Both run 
identically, compile to the same number 
of bytes, and follow the same syntax 
rules, as laid out in the syntax tables in Ex- 
amples 3-5. 

Example 3 indicates that a program 
must start with the word Program. Any 
time a word or character appears in a bal- 
loon (rounded corners) it must be entered 
literally. You can see that the word Pro- 



PROGRAM TEST (OUTPUT); 
BEGIN 
VAR 

X:INTEGER; 
REPEAT 

WRITE(X,'SQUARED = \SQR(X)); 
WRITELN(THE SQUARE ROOT OF".X,',SQRT(X)); 
UNTIL X>100; 
WRITELNCDONE - ) 
END 

Example 1. 



gram is in both Examples 1 and 2. 

Next an identifier is required. The 
square corners indicate that options are 
available and that there is probably 
another syntax table to define those op- 
tions. In this case Example 3a is the syn- 
tax table for identifiers. In Example 1 the 
identifier is the word Test. 

The identifier in parentheses usually 
defines whether I/O is going to be used. 
Note that all statements in Pascal end 
with a semicolon. The program itself ends 
with a period. 

Example 4 is the syntax table for a 
block. It provides for variable definitions 
and the procedures used in Examples 1 
and 2. To define a statement you must use 
the syntax table in Example 5. You can 




software 



also define procedures and functions that 
will be used repeatedly. 

Structuring is important when you de- 
velop large programs that someone else 
may have to maintain, or that take so long 
to write you forget what was going on in 
the different sections. Professional pro- 
grammers, in particular, tend to favor 
structured programming, particularly 



PROGRAM TEST (OUTPUT);BEGIN VAR X: INTEGER;REPEAT WRITE(X, 
SQUARED = '.SQRIXIXWRITELNCTHE SQUARE ROOT OF'.X/IS', 
SQRT(X));UNTILX>100;WRITELN('DONE')END. 

Example 2. 
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when it is this easy! 

The FMG package is on three disks. The 
modules are arranged to allow for maxi- 
mum free space on the disk, which is 
usually about 30K. Interaction with the 
user is achieved with a command prompt 
line upon boot up. From this the user can 
call up: 
1. L(ink): The linker grafts routines from 
the System Library to the program that 
is to be compiled. You may also link to 
machine-language routines that you 
have written yourself! The advantage of 
this is that only those routines that are 
necessary to run the program are 
linked. This results in a tremendous 
saving of space and time. 
2 C(omp): The compiler saves the com- 
piled program to disk. 

3. X(ecute): Execute a program that is al- 
ready linked and compiled. 

4. R(un): Compiles a program that has 
been linked, and runs it instead of sav- 
ing it. 

5. F(ile): The filer handles all the disk I/O 
that a DOS would take care of in othe 
interactive systems. This is one of th 
two routines added by UCSD to make 
Pascal interactive. 

6. E(dit): This editor is specifically for 
constructing Pascal code. By inserting 
adifferent disk you could call the editor 
for the assembler, also supplied. The 
keyboard is debounced, but is a little 
slow. 

All the modules work very well, and gen- 
erate nice, compact code, compared to 
Microsoft's Basic compiler, for instance. 
The program in Example 1 takes 1407 
bytes of code when compiled and linked. 
This may appear to be quite a bit when 
compared to the 198 bytes of Pascal code, 
but remember that most the overhead is 
constant, and as your programs get 
longer, the overhead gets less significant. 
And it's still quite a savings over the 14K 
the same program takes compiled with 
Microsoft's Basic compiler. 

The Documentation 

The sore point of the package is the 
documentation. The manual is a 284-page 
looseleaf folder. It was written to supple- 
ment a teacher's instruction, and does not 
teach you Pascal. You must know Pascal 
or be learning it from another text (or 
teacher) to use this compiler. 

Another problem is that the manual is 
the same one used with the PDP-11 and 
CP/M versions of the package. Most of the 
examples and tables are useless unless 
you keep flipping back to the additions in 
the front of the book. And, lest you get 
your hopes up, let me say that there are 
only seven of those pages. ■ 
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THE ASSEMBLY LINE 



by William Barden, Jr. 



"Look on these next two columns 

as a sort of "Cliff Notes" about 

the book — a supplement to those six pages. 



n 



'm currently reading Going Ahead With 

Extended Color Basic. I was even 
amused by the drawings of the Color 
Computer with legs, the result of in- 
breeding in the Radio Shack computer 
line. Everything was fine until I got to 
page 144. Even though It was an exciting 
plot, the next six pages took several days 
to get through. Look upon these next two 
columns, then, as a sort of "Cliff Notes" 
about the book — one that you can read to 
supplement those six pages. 

These columns are meant to give Color 
Computer assembly language users 
some hope. Model I and ill users may 
wish to read them to see how the 6809 
compares to the Z80. 

First let me say that the Extended Col- 



or Basic book is very well written— 
Jonathan Ericson at Radio Shack de- 
serves credit. The book is geared to the 
first time user, and it's very difficult to 
present detailed machine language 
information in six pages. 

We'll start from the ground up, so the 
first-time Basic programmer may be able 
to get into machine language program- 
ming with a minimum of grief. Experi- 
enced programmers, bear with me for a 
while. 

6809 Machine Language 

The Color Computer uses the 6809 
microprocessor which is an upgrade of 
the popular 6800. Both microprocessors 
are manufactured by Motorola. The 6809 
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Machine vs. Assembly-Language 





instructions include the 6800 instruc- 
tions as a subset on an assembly 
language level. 

This means that both instruction sets 
would have similar instruction 
mnemonics, such as CLRA, for Clear A, 
but that the binary value for instructions 
might be different between the two. One 
important implication of this is that you 
can't pick up the machine code for a 6800 
program and run it on the Color Com- 
puter—it probably won't work. You might 
be able to pick up the assembly-lan- 
guage code for a 6800 program, however, 
feed it into the Color Computer 
assembler, and get resulting object code 
that works. 

A sample of 6809 machine language is 
shown in Fig. 1. This happens to be a 
short segment of code that will divide the 
contents of a 16-bit value by two. The 
code is in hexadecimal, which is a short- 
hand way of representing binary data. 
One hexadecimal digit represents four 
binary digits, or bits. Two hexadecimal 
digits represents two groups of four 
binary digits. 

The basic number of bits in the Color 
Computer and 6809 is eight, constituting 
one byte. All memory and CPU opera- 
tions generally transfer data and perform 
operations on eight bits or one byte of 
data. Eight bits can hold binary values of 
00000000 through 11111111, the decimal 
value of through 255, or the hex- 
adecimal value of $00 through $FF. The 
prefix $ is used in the 6809 and other 
microprocessors to indicate that the 
following data is in hexadecimal. Basic 
uses &H in lieu of the $. 

If you're hazy about binary and hex- 
adecimal, you'll have a tough time follow- 
ing anything from this point. Proceed as 
follows: Go to a chapter on binary and 
hexadecimal in any basic computer text 
and practice some conversions between 
binary, decimal, and hexadecimal. You 
don't have to spend hours in practice, but 
get a nodding familiarity. 

Back to the machine language ... A 
machine language instruction consists 
of one, two, three, or four bytes of data 
that the6809 will recognize as an instruc- 
tion. The instructions will range from 
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such simple operations as putting a zero 
into a CPU register, on up to a multiply. 
The instructions from Fig. 1 are shown in 
Fig. 2 with the operations they represent. 

Assembly Language for the 6809 

Fig. 2 shows the machine-language 
codes on the left, and the equivalent 
assembly on the right. The mnemonics 
are just what they sound like (from 
Mnemosyne, the Greek goddess of com- 
puter writers) — abbreviations for 6809 in- 
structions. For example, it's much easier 
to write LDX instead of Load the X 
Register. 

The mnemonics for the instructions 
are called op codes, short for operation 
codes and are in the second column of 
the assembly language. The third col- 
umn figure is the operand column. Cer- 
tain instructions require no operands, 
while others require several operands. To 
transfer data from a memory location to 
the X register, for example, an LDX $2000 
would have the mnemonic LDX and an 
operand of $2000. 

The first column of the assembly 
language represents a label field. The 
location of an instruction might be la- 
beled with a label such as LOOP and 
subsequent instructions could refer to 
the location by the label, rather than an 
absolute address, such as BEQ LOOP, 
which would be a "Branch on Equal to 
location LOOP." 

The last column holds applicable com- 
ments. 

The portion of the figure representing 
the labels, op codes, operands, and com- 
ments field in Fig. 2 is the assembly 
language. The portion on the left with the 
hexadecimal values is the machine 
language. The assembly language code, 
called the source code is translated into 
the proper machine language by an 
assembler program for the Color Com- 
puter. (By the time you read this, the 
Radio Shack Color Computer assembler 
should be out.) The assembler decodes 
the symbols into the proper machine 
language instructions. 

Not only is it possible to translate from 
assembly language into machine lan- 
guage, but it's possible to go the other 
way, from machine language into assem- 
bly language. A disassembler program 
will examine a machine language pro- 
gram and produce the mnemonics and 
operands. There are several disassem- 
blers available currently for the Color 
Computer. 

Hand Assembling 

In the remainder of this discussion 
we'll be using examples of machine 



language rather than assembly language. 
It is possible to bypass an assembly pro- 
cess by doing hand conversion of what 
looks like assembly language code. An ex- 
ample is shown in Fig. 3. The instructions 
are first written down with their op codes 
and operands. Next, each instruction is 
"roughed out" as far as the number of 
bytes in the instruction. Next, the op code 
values are filled in, followed by the values 
for the operands. 

This process is not a simple one. It re- 
quires a good book on the 6809 instruc- 
tion set, and some study about the CPU 
registers, instructions, and addressing 
modes. The bible for this instruction is not 
Barden, or Leventhal, or Warren, but 
Motorola. Motorola's MC6809 Preliminary 
Programming Manual is available from 
Motorola Semiconductor Products Inc., 
3501 Ed Bluestein Blvd., Austin, TX 78721. 

Next let's make certain we know some- 
thing about the internal architecture of 
the 6809. The 6809 chip has a number of 
registers. A register is nothing more than 
an eight or 16-bit memory location that is 
located in the CPU, rather than in RAM 
memory. 

The registers are assigned names that 
are related to their function. Fig. 4 shows 
the 6809 registers that are accessible to 
the programmer. There are other registers, 
of course, but we'll leave an excruciating- 
ly detailed account of the internal opera- 
tion of the memory fetch cycle and the 
associated registers to Adam Osbourne. 



6809 Registers 

The A and B registers are eight-bit 
registers that hold the results of 
arithmetical, logical, and other types of 
operations. They are called ac- 
cumulators, and are used to process 
data by adds, subtracts, shifts, exclusive 
ORs, and so forth. A and B can be lumped 
together to form one 16-bit register 
called the D register to allow operations 
on 16 bits at a time. 

The PC is the Program Counter 
register. It points to the next instruction 
byte. For a machine language instruction 
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Fig. 4. 6809 Programming Registers 
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If you're looking for 

the best prices 
in the U.S. A. on 



THE ASSEMBLY LINE 




MICROCOMPUTERS 

We have consistently ottered the TRS 80 line 
at savings up to 20%. You can save up to 
$1500 by buying trom Computer Discount of 
America. 

Model II 

26-4002 64K, 1 disc $3385.00 

Model III 

26-1051 4K, Level I $ 610.00 

26-1062 16K, Level III $ 845.00 

26-1066 48K, Level II 2-drive/RS 232 $2115.00 



Color Computer 

26-3001 4K 

26-3002 16K w/Ext. Basic 


$ 325.00 

$ 489.00 


EPSON 

MX70 
MX80 
MX80FT 


Printer 
Printer 
Printer 


$ 375.00 
$ 485.00 
$ 585.00 



ATARI 

MICROCOMPUTERS 




We have the full line of ATARI personal 
computers and systems. 

Our savings are as big on expansion inter- 
faces, printers, diskettes, Apple Computers, 
0KIDATA Microline, C-ITOH Starwriter, 
Lexicon Modems — everything for your 
computer. 

We have the largest inventory in the North- 
east, and most models are in stock, for 
immediate delivery. Our full price catalog or 
a price quote is as near as your phone. 



CALL TOLL FREE: 
800-526-5313 



Computer 



of America 



COMPUTER DISCOUNT OF AMERICA. INC. 
15 Marshall Hill Road. West Milford Mall 
West Milford. New Jersey 07480-2198 
In New Jersey Call 201-728-8080 



of three bytes, the PC will increment 
three times as the three machine 
language bytes are assembled in the 
CPU. This is the fetch cycle. At the end of 
the fetch cycle, the PC points to the next 
memory location, which must hold 
another instruction. 

At the end of the fetch cycle, the 
assembled instruction is executed. This 
might involve reading an eight or 16-bit 
operand from memory and adding it to 
the A register, loading the B register with 
the contents of the A register, or many 
other operations. The fetch and execute 
cycles are executed automatically with 
each instruction— for the time being, 
simply forget about the two separate 
parts of an instruction. About the only 
consideration is that more involved in- 
structions take longer to execute; this is 
sometimes a factor when you're figuring 
out timing loops or trying to speed up 
programs. 

The S, or Hardware Stack Pointer, 
points to the stack area of memory. 
Stack can be located just about any- 
where the programmer desires (ROM is a 
bad choice). Usually 100 bytes of stack is 
sufficient. The stack (see Fig. 5) is an 
area used to store return addresses for 
subroutine calls, temporary data from 
the CPU registers, or interrupt ad- 
dresses. Branching to a subroutine 
saves the return address on the stack, for 
example, and a subsequent RTS, or Re- 
turn from Subroutine, instruction re- 
trieves the return address from the stack. 
The stack builds down from high memory 
to low memory as addresses or data is 
pushed onto it. 



The U register, or User Stack, is a 
second stack pointer that points to a 
user-specified stack. The S register is a 
hardware stack, since it is related to the 
built-in hardware functions that store 
data in the area pointed to by S, such as 
"branching to subroutines." The U stack 
area may be redefined constantly for the 
programmer's convenience. 

The X and Y registers are index 
registers. They are used to point to the 
location of memory operands. Operands 
beyond or prior to the pointer may then 
be easily accessed by an indexed-type in- 
struction, such as "LDX + 20.X", which 
loads the contents of a location pointed 
to by the index register plus 20 locations. 
The X and Y registers are continually 
loaded with new values as new blocks of 
data are accessed. 

The DP, or Direct Page register, is used 
to define pages of 256 bytes. This is an 
optional addressing mode that allows 
shorter instructions (using less memory 
and time). We won't be using this mode in 
the examples here. 

The Condition Code register is an 
eight-bit register that is really a con- 
glomeration of eight bits. These condi- 
tion codes are set (1) or reset (0) accord- 
ing to the actions of certain instructions. 
The Z condition code, for example, is set 
if the result of an add (and many other in- 
structions) is a zero. The condition codes 
may be tested by conditional jumps and 
branches that follow the operations. This 
is the main way of altering the path of a 
program. A "BEQ $2000", for example, 
branches to an instruction at location 
2000 hex if the result of the last operation 
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Figure 5. Stock Area 
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was zero; if the result was not zero, the 
next instruction after the BEQ is ex- 
ecuted. 

On to the Six Pages 

Well, we're finally there: The first 
machine language related Basic com- 
mand to consider is Clear. The format of 
Clear is: CLEAR XX.YYYYY. 

The XX represents the decimal number 
of bytes to reserve for string storage. The 
YYYYY represents the area of memory to 
be reserved for machine language pro- 
grams. Typically, a "Clear 100,YYYYY" 
would be fine, unless your program has a 
lot of string storage. The YYYYY is a 
number that protects RAM beyond a cer- 
tain point. For our purposes we'll use a 
YYYYY of $2000, which is 8191 decimal. 



This will prevent Basic from using 
anything above memory location 8191 for 
stack or string storage. This leaves about 
379 bytes of memory for Basic programs 
and variables, which is somewhat on the 
sparse side but enough for our purposes. 
A memory map for the Color Computer 
is shown in Fig. 6. Note that Color Basic 
is above the Extended Color Basic, that 
video memory starts at $400, and that 
page 0, 1, 2, and 3 is used for variable 
storage. Also interesting is the fact that 
the Color Computer uses high-memory 
addresses to address various functions 
for graphics functions, sound genera- 
tion, serial data, and the like. 

Stack Area 

We won't explicitly set the S register to 



HEX 
$FFFF 



DECIMAL 
65535 



SC000 



$A000 



40960 



$8000 



$4000 



$1000 



$0000 



CARTRIDGE 
ROM (16K) 



W 



/\ 



BASIC 
ROM 
<8K) 



EXTENDED 

BASIC 

<8K) 



16K NOT 

CURRENTLY 

USED 



16K 
RAM 



4K RAM 



Dedicated Hardware 
Addresses From $FF00 
ToSFFFF 



Video Memory Start = $400 
Variable Storage Under $400 



Fig. 6. Color Computer Memory Map 
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a stack area in the following examples. It 
is set in Basic, and points to a 30-byte 
stack area. Unless you're doing a lot of 
processing, it's not necessary to rede- 
fine it by a load of the stack pointer in 
your program. 

The DEFUSRn Command 

The next machine language related 
Basic command we'll tackle is 
DEFUSRn. DEFUSRn is unsophisticated; 
it simply tells the Basic interpreter where 
a user machine language subroutine will 
be located. The n may be any decimal 
value from zero through nine, allowing 
for 10 unique machine language sub- 
routines. 

Suppose we had a machine language 
subroutine for division at location $2000 
(8192 decimal) and another to find the in- 
teger solutions to A N + B N = C N (see 
Fermat's last theorem) at location $2100 
(8448 decimal). We could define the lo- 



"/ was amused by 

the Color Computer 

with tegs, a 

result of Inbreeding. . . " 



cations by: 100 DEFUSR0 = &H2000: 
DEFUSR1=&H2100. 

From that point on in the Basic pro- 
gram, the ID number of zero would be 
associated with the divide routine and 
the ID number of one with the Fermat 
processing. The ID numbers would be 
used in conjunction with a USRn call to 
call the subroutines as required from the 
Basic program. For example, 1300 
A = USR1 (0) would call the Fermat proc- 
essing routine. The machine code would 
be entered by USR1 in statement 1300. 
and, after processing was done, a return 
would be automatically made to the 
Basic statement following line 1300. 

This is probably a good point to deter- 
mine what type of machine language 
subroutines should be called: any type. 
Whatever proves useful from a Basic pro- 
gram—subroutines that are often called 
and that can do things faster than the 
equivalent Basic code, such as sorts of 
strings, serial I/O, or number crunching. 
Furthermore, the subroutines may be 
any size, from two or three instructions, 
up to thousands. In addition, the sub- 
routines may even be ROM subroutines 
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1 BOUGHT IT 

My biggest loss 
of programming 
time using 
Snappware's 
AUTOMAP and 
AUT0FILE is 
spent inserting 
my dishette." 

SCOT1 ADA \ft PRfc, Of AM I \ WW l\ Tl 



When working with direct files or creating a formatted screen. 
Autofile and Automap are indispensible aids. 

Autofile is designed to automate for the BASIC programmer the 
task of moving data elements to and from a direct File. Pre- 
viously, this was a time consuming chore because the FIELDed 
variables mag not be directly referenced by user logic. The FIELD 
statement was eliminated, thereby relieving you of the guessing 
game as to where the FIELDed variable is. In addition, the CHR$ 
and the A5C function references are performed automatically. The 
software, when installed, becomes part of your BASIC interpreter 
providing the enhancements without additional memory or disk 
space. 

Automap is designed to automate for the BASIC programmer the 
task of presenting information on the video display and accepting 
information from the keyboard operator. The software consists 
of two main components: the OFF LINE COMPONENT used to 
describe to the system the screen formats and the ON-LINE COM 
PONENT from within your BASIC program to initialize a screen, 
send data to the video display and receive data from the keyboard 
operator. This facility when installed, becomes part of your BASIC 
interpreter providing the enhancements without requiring any 
additional memory or disk space. 

Both products compliment one another and if used in conjunction 
can save up to 75% of your programming time. 

If you consider your programming time to be worth money, call 
us and let us show you how to get more of it . 



Automap 



Autofile 



Model II 
Model III 

Modem ... 

Model III . 



SI 00.00 

5 75.00 

S 75.00 

S 60.00 



: :;-i; : :; '::=-vi:ir;'i:;:: 



Time saving power 
at your Fingertips. 

CALL TOLL FREE: 

1-800-543-4628 

OHIO RESIDENTS 

CALL COLLECT: (513) 891-4496 

3719 Mantel I 

Cinti. Ohio 45236 
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in Basic ROM that are convenient. One 
example of this is the cassette sub- 
routines in ROM that allow the user to 
construct his own cassette tape files. 
Larger programs that operate only in 
machine language can be loaded and ex- 
ecuted by the CLOADM command, fol- 
lowed by EXEC. We'll give these only a 
passing mention in this article, as they 
are usually large dedicated assembly 
language programs. 

The Simplest USR Call 

We're finally at a "real" USR call. The 
Basic code shown in Program Listing 1 
defines the simplest call to a machine 
language subroutine. The subroutine in 
this case consists of a single instruction, 
an RTS, or "Return From Subroutine," 
shown in Fig. 7. The RTS must terminate 
every machine language subroutine. It 
POPs the return address of the Basic 
USR processing code from the hardware 
stack and causes a return to Basic. All 
we've really done here is define a machine 
language subroutine at $A936 and call it 
by the USRO. The subroutine is repeatedly 
called by a GOTO 200. 

The call was made with two dummy 
arguments, zero and A. The argument of 





100 


DEFUSRO - &HA936 






200 


A = USRO(O) 






300 


1 = 1+1 






400 


PRINT I 






500 


GOTO 200 




Prog ran 


Listing 1. Simplest 


USRn 


Call. 









100 DEFUSRO ^&HA928 
200 A = USR0<0) 
300 GOTO 200 

Program Listing 2. Calling a ROM 
Subroutine 



A931 8C 05FF CMPX #1535 

A934 23 F9 BLS SA92F 



A936 39 



RTS 



Single RTS 
Instruction 
At Location 
$A936 



Fig. 7. Simplest Subroutine 



zero within the parentheses is the input 
argument. A pointer to its location is 
passed to the subroutine. The argument 
of A is the output argument. A possible 
value from the subroutine is returned in 
variable A. Both these arguments are 
dummies in this case, as the subroutine 
does not require an operand to be passed 
to it; neither does it return an operand. 
Use zero for the input and any variable 
for the output argument as dummies; if 
you don't, you'll get a nasty message 
from the Basic interpreter. 

Multiple USRn Calls 

Next, we'll tackle two USRn calls. Pro- 
gram Listing 2 is a Basic program that 
defines two machine language sub- 
routines, one at $A936 and another at 
$A7D7. Both are one-instruction sub- 
routines consisting of RTS instructions 
in ROM. Here again, the locations are 
defined, and repetitive calls are made to 
each subroutine. 

A ROM Subroutine Call 

Program Listing 3 shows a call to a 
ROM subroutine at location $A928. From 
a disassembly, I found that this code 
clears the screen. The call with two dum- 
my arguments repetitively executes the 
machine language code to clear the 
screen. 

Passing Arguments to the Subroutine 

Those of you making snide noises 
about simple writers, you're about to get 
your comeuppance . . . 

Let's look at how an argument is 
passed to a machine language sub- 
routine. Two sentences in the Extended 
Color manual have implications that 
Adam Osbourne couldn't explain even 



Hex Decimal 

Code Machine Code Machine Code 

STA $2000 B7 2000 183,32,0, 

STX$2001 BF2001 191,32,1, 



RTS 



39 



57 



Fig. 8. Store A/X Program 
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with timing charts . . . 

According to the manual, the USRn 
call results in the A register being loaded 
with a code for the type of argument and 
the X register being loaded with a pointer 
to something called a "floating-point ac- 
cumulator." What does this mean? How 
did we suddenly go from no arguments to 
floating point? 

To see what is happening, we'll use our 
first hand-assembled program, shown in 
Fig. 8. This three-instruction program 
stores the contents of the A register Into 
location $2000 and the contents of the X 
register into locations $2001 and $2002. 
The last instruction is the ubiquitous 
RTS. We can use this gem to see how A 
and X look upon entry to the machine 
language program. The Basic program in 
Program Listing 4 shows the approach. 

The values for the three Instructions 
are first converted to decimal, a total of 
seven bytes. The code will occupy RAM 
locations $2003 through $2009. The 
Basic statements use a data list of the 
values, a Read and a POKE to move the 
values from the data list to RAM. Next, a 
call is made by USR0(0). This call ex- 
ecutes the three instructions, which 
store A and X. The last three Basic 
statements print location $2000 (A), and 
locations $2001 and $2002 (X). 

When this program is run, we see a 
display of 0, 0, and 79, indicating that the 
A register held on entry and that X held 
0,79, or 79. (The first value for X is the up- 
per eight bits, while the second is the 
lower eight bits; together they constitute 
the entire 16 bits of X.) 

The in A indicates a numeric argu- 
ment, according to the Extended Basic 
manual. The 79 is a "pointer to the 
Floating-Point Accumulator which con- 
tains the argument." What's in location 79 
and what is its format? 

We'll answer these questions and 
more when we continue with the "Saga 
of the Six Pages" in next month's col- 
umn. Stay tuned to 80 Micro. ■ 



100 


DATA 183,32,0.191,32,1,57 


105 


DEFUSR0 = &H2003 


110 


FOR I = &H2003 TO &H2009 


120 


READ A 


130 


POKE l,A 


140 


NEXT I 


150 


A = USR(0) 


160 


FOR I = &H2000 TO &H2002 


170 


PRINT PEEK(I) 


180 


NEXTI 


Program Listing 4. Basic Program to 


Analyze A/X 
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I BOUGHT IT 

"My biggest loss 
or programming 
time using 
Snappware's 

EXTENDED BASIC 

is spent 
inserting 
my diskette." 

SCOTT ADAMS PRES Of-' ADVENTURE INTL. 



Reduce your program ming time up to 75% using Snappwares' 
EXTENDED BASIC. The program is written entirely in machine Ian 
guage For Super Fast execution and is fully integrated into the 
Model II BASIC interpreter, reguinng no user memory and no user 
dish space. Here are just some oF the ways EXTENDED BASIC can 
maKe your programming tasK easier: 

• QuicK way to recover BASIC program following a New. System 
or Accidental re boot. 

• Single character abbreviations For the most Freguently used 
commands. 

• Six single Key stroKe commands to list the First, last, pre 
vious. next or current program line. Even edit current line. 

• A powerFul cross reference Facility with output to display 
and or printer. 

• Ability to trace a variable through the code. 

• Determine easily iF a variable is in use. 

• Permits programmer to display and or print the value oF- any 
or all program variables. 

• identiFies the variable type For all variables. 

• Lists each element oF any array separately. 

• Program line renumbering Facilities allowing For speciFication' 
oF an upper limit oF the blocK oF lines to be renumbered, relo 
cation oF renumbered blocks oFcode and duplication oF 
blocKsoFcode. 

• Cross reFerence Facility For Key words and character strings 
. including global replacement oF Key words. 

• Compresses your BASIC program to an absolute minimum by 
removing extraneous inFormation. 

• Merge lines 

• Deletes statements that could not be executed. 

IF you consider your programming time to be worth money, call 
us and let us show you how to gel more of it. 



MODEL II 

MODEL III 



5200.00 

SI 25.00 



;; : :- ii- > :>• v; ::;- s ■:;■"■• "i j V s- !;f ;;::«: V: ;=;:;; 



Time saving power 
at your fingertips. 



CALL TOLL FREE: 



Si'mM'WMlMM: I -800-543-4628 



•::.:•• ::• :•.::. :.::•: ::• •.••: :i. :.::•: ::•:•::.:• 



OHIO RESIDENTS 

CALL COLLECT: (513) 891-4496 



Ohio 45236 
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"Most of us have wasted 

a lot of time reloading programs because 

we did not follow instructions." 



How many times have your students 
loaded programs and had them 
crash because they forgot to set the 
memory size? How many times have you 
done it? I suspect that most of us have 
wasted a lot of time reloading programs 
because we did not follow instructions 
carefully. 

All these crashes and reloads are un- 
necessary. The program itself can set the 
memory size as soon as it is run. Unfor- 
tunately, many programmers have not 
learned how it is done. 

If you are not putting this feature in 
your programs, these directions will 
show you how to do so. You can even go 
back and add "auto mem set" to your old 
programs and to the programs of others, 
as well. 

Auto Mem Set 

This technique works in Level II and in 
Model III Basic. I have also used it in two 
versions of TRSDOS and suspect that it 
will work in all versions. If you use 
another DOS, try it carefully before you 
change all your programs just in case 
your DOS modifies the memory locations 
used. 

Memory locations 16561 and 16562 
contain the numbers which protect 
memory; that is, they set the memory 
size. All the program has to do is POKE 
the proper numbers into those places. 
Location 16561 holds the low-order byte 
and 16562, the high-order byte. Let's run 
through a specific example. 

Suppose your program requires that 
memory size be set at 32699. You would 
go through the following steps: 

1. Subtract two from the required size 
and call the result X. 

32699 - 2 = 32697 
X = 32697 

2. Divide X by 256 and discard any re- 
mainder (use only the whole number 
part of the answer). This is the high- 
order byte. 

32697/256 ^ 127.723 
High Order Byte = 127 

3. Multiply the high order byte by 256 
and subtract the result from X. This 



is the low-order byte. 

32697 - (127 x 256) - 185 
Low Order Byle - 185 

4. Insert the following statement at the 
beginning of your program: 

3 POKE 16561. 185 . POKF 16562 127 

By following these steps, the memory 
size is set at 32699 just as though you 
had answered the prompt message with 
that number. Of course, the memory is 
not set until the program is run. 

Did you notice the low line number in 
step four? It was made low for a reason. 
The memory size should be set at the 
beginning of the program— before any 
other statements are executed (except 
for remarks). If you set (or change) the 
memory size after the program is under 
way, the memory allocation will be wrong 
for program operation. What happens is 

"You might jump 

into areas the program 

has set aside. . . " 

that you might jump into areas that the 
program has set aside for the stacks or 
variable storage or something else. This 
would cause the program to crash. 

So, set the memory size first. The line 
number above 3 will remind you to do that. 
I would have numbered it "1" but 
most of us use the first line or two for 
remarks which identify the program. 

Before you change your programs 
over, this technique may save you some 
time, too. Suppose you (or a student) 
begin loading a program and suddenly 
realize that the memory should have 
been set. All you have to do is to figure 
the high and low bytes as above and then 
execute the statement in step four in the 
immediate mode before the program is 
run. The size will be set just as though the 
statement were in the program. 

Chain-Loading Programs 

At this time of the year both students 
and faculty are settled down from the in- 
itial flurry of getting school started. This 
is the time, too, when it dawns on other 



students and faculty that it might be pru- 
dent to learn something about your com- 
puter operation. 

Often their first question is, '"What is 
the thing good for?" You should have a 
special program sampler prepared just 
for such occasions. Sampler— that's 
what I call a program that consists of 
several demonstration programs. Here is 
how you can make one. 

The idea is to select a few programs 
which show off your computer. This 
might include games, graphic displays or 
instructional programs. 

Next, write a Menu Program which will 
fill two functions: it allows the operator 
to choose among the programs you 
selected, and then it automatically calls 
up the selected program. 

Finally, put all the programs on the 
tape or disk with the Menu Program and 
you are ready to go. Let's look at the 
make-up of that first program. 

The Menu Program 

The Menu Program is straightforward. 
It presents a list of the available pro- 
grams and allows the operator to select 
one by entering the corresponding 
number. There are several ways to get 
the selected program into the computer 
but I will show you the simplest method. 
If you use the standard cassette, it would 
go something like this: 

...list ard selection.... 
.. .number selected is in variable A... 
250 ON A GOTO 260, 270. 280, 290, 300, etc 
260CLOAD"A' 
270CLOAD"B" 
280CLOAD"C" 
290 ...etc.. 

It is evident that programs A, B, C and 
so on must be properly labeled when 
saved and they must follow the Menu 
Program on the tape. Then, too, the tape 
must be rewound after each selected 
program has been loaded. 

If you are using the Exatron Stringy- 
Floppy, the appropriate statement would 
be: 250 ©LOAD A + 1. The advantage to 
the ESF is its fast load time and the fact 
that it does not have to be rewound. 
However, you should provide enough 
space to hold the longest program (see 
the manual for details). 
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If you are using Disk Basic, your 
statements would look like this: 



260 ON A GOTO 260. 270. 280... 
260 RUN "STORYBOOK" 
270 RUN "MATH I" 
280 



Of course, both the cassette and disk 
systems offer neater ways to accomplish 
this programming, but these are the 
easiest to understand. You might experi- 
ment to discover shorter methods with 
your system. 

I have put together several disks which 
follow this plan— one for science, one for 
math, one for language arts, and so on. 
Since making them, life has been easier. I 
simply put in the appropriate disk and 
say, "Try it for yourself." 

Reader Inquiry 

Bjarne Madsen in Saksatchewan, 
Canada, leads a project which developed 
a curriculum for computer awareness 
and programming techniques at the 
junior high school level. His course has 
proved very successful in classroom 
tests. 

BJ is quite interested in corresponding 
with others who may be involved in a 
similar effort. The exchange of ideas 
could be beneficial to both parties. If you 
have worked in this area, send me your 
name and I'll pass it along to BJ. 

In fact, if you are interested in com- 
municating with others in any area of in- 
terest, send me your name, complete ad- 
dress, and the areas of interest. Include a 
statement to the effect that you would 
like that information published and, as 
space permits, I'll put it in Education 80 
so that others can get in touch with you. 

New Address 

This summer I took time out to move 
across the state. For six weeks or so I 
was out of touch with everything except 
boxes to pack and unpack. I don't know if 
I'll ever catch up with what happened in 
the world of computers. (I have caught up 
with the new Model III TRSDOS 1 .3 which 
offers significant improvements on an 
already good 1.2 version.) 

However, I am happy to report that my 
computers made the trip in fine 
shape— not even a slight hiccup when I 
finally got settled enough to hook all the 
pieces together and plug them in. So 
much for my fears of horrendous repair 
bills! 

My new address is 6 Darl Avenue, Col- 
onial Beach, VA 22443. Of course, you 
may write me through 80 Microcom- 
puting. Either way, please enclose a self- 
addressed, stamped envelope and I'll get 
back to you when time permits. ■ 



"1 BOUGHT IT" 

"My biggest loss 
of programming 
time using 
5nappware's 

EXTENDED BUILT IN 
FUNCTIONS is 

spent inserting 
my diskette." 

SCOTT ADAMS PRES OF ADVENTURE ML 




Snappwares' EXTENDED BUILT IN FUNCTIONS is a collection of much 
needed additions ro the Model II BASIC interpreter which gredtly 
extends its convenience and utilitu,. The Following features 
become a part of your BASIC language and provide the enhance 
ments without requiring ang additional memoiy or disK spare. 
The heart of our EXTENDED BUILT IN FUNCTIONS is an in-memory 
sort routine, guaranteed to be the fastest general in memorg sort 
on the market, or your money back. Along with this, you also 
receive these EXTENDED BUILT IN FUNCTIONS: 
PEEK- Extract one Byte from a specified memory local ion 
PEEKW- Extract TWO Hytes from a specified memoiy location 
POKE- Replace contents oF a specified memory location with 
a supplied value 

POKEW- Replace contents ot a specified memory WORD with 

the supplied value' 
XDAT- Extiact current date in Format 
XTI/W- Return time of day to Format 
ETIAA- The difference between two times 
FILES- Return the number of File blocks currently allocated 
5RT- Sort one or more arrays into a speciFied seguenc e 

OPEN- Open a sequential File m extended mode 
ROW- Protect a portion oF the video display From scrolling 
CLEAR- SpeciFy the number ol file blocks to be allocated when 

you specify high memory and slung sjnice 

ERASE- Frase all arrays 

CURSOR- 5pe< if y size and display format of cursor 

/WAX- Return largest value f rom user supplied list 

/WIN- Return smallest value from user supplied list 

F/WT- Auangedata into a string variable as with PRINT USING 

II yon consider your proyramminy time to be worth money, call 
us and let us show you how to get more of it 



ERA5E 



MODEL II .... 
MODEL III ... 



5100.00 
S 75.00 



Time saving power 
at your fingertips. 

CALL TOLL FREE: 

1-800-543-4628 

OHIO RESIDENTS 

CALL COLLECT: <5I3) 891-4496 

3719/Wantell 

Cinti. Ohio 45236 
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^APPLICATIONS 

%r^r by Dennis Kitsz 



Way back in the early days of 80 Micro- 
computing, I created a machine- 
language monitor called Babybug. It was 
short, written in Basic, and sparked with a 
large and continuing reader response. 
Since that time, many excellent programs 
for examining and modifying TRS-80 
memory have appeared, and some in- 
teresting software is beginning to be 
offered for the Model III and the Color Com- 
puter as well. 

This month I'd like to present new ver- 
sions of the originalBabybug: a condensed 
and improved Model I or III program, plus 
versions for Color Basic and Extended Col- 
or Basic. Once again, they are written en- 
tirely in Basic, yet consume small amounts 
of memory. Before turning to the programs, 
I'd like to explain what a machine language 
monitor is, how it is used, talk about entry 
and display in hexadecimal numbering, 
and in passing describe the process of 
packing information into integers. 

A Window into Memory 

At some point in the life of every pro- 
grammer—amateur or professional- 
comes the desire to have programs per- 
form faster or use less memory. There 
also comes creeping the need to under- 
stand what makes the computer tick, 
why protected memory is sometimes 
necessary, and maybe just what kind of 
software is hidden inside that 
anonymous box. It's that Something 
which gives the system life, makes it say 
"OK" when it understands you and "?SN 
ERROR" when it doesn't. 

Small computers are made up of 
several classes of black boxes which 
compose a computer when connected 
together. In its purest form, the computer 
we know consists of a general-purpose, 
simple-minded calculator— the central 
processing unit (CPU). The CPU is con- 
nected to one or more blocks of tem- 
porary or fixed storage/instruction area, 
its memory. Finally, communication with 
the real world is achieved with input/out- 
put (I/O) devices. 

The Babybug machine-language moni- 
tor is concerned with the contents of 
read/write memory— that is, memory 
which may be examined or changed by 
the CPU. It can also be used to examine 



permanent (read-only) memory, in order 
to see what the CPU follows to perform 
its work in Basic. With a monitor, I can 
ask the computer to tell me what is found 
at its memory location or 100 or 24576 
or 65500. In the Model I, if I examine loca- 
tion 1 will find the value 243; if I examine 
location 100, chances are the value 251 
will turn up. Both and 100 are in perma- 
nent, read-only memory (ROM). On the 
other hand, locations and 100 are in 
temporary memory in the Color Com- 
puter, holding the values and 171 when 
Basic is in operation. Model I locations 
24576 or 65500 may reveal anything, 
since they are read/write memory (also 
called random-access memory, or 
RAM)— whatever the computer last 
placed there. In the Color Computer, 
24576 is read-only memory, and 65500 is 
part of I/O memory. With the Babybug 
machine-language monitor, I can read 
memory and change its contents at will. 
What is the machine language that 
Babybug monitors? Since the informa- 
tion stored in any spot in memory can be 
thought of as instructions intended for 
the CPU's internal mechanism, causing 
it to respond according to a predeter- 
mined pattern, such memory contents 
are called machine language, or machine 
code. Throughout this magazine, you will 
find listings written in Basic, but other 
software is presented in rigorous-looking 
listings for the Editor/Assembler. This is 
assembly language, merely a convenient 
form of producing numerical machine in- 
structions using English-sounding names 
instead of numbers alone. 

The basics of machine and assembly 
programming have been presented in 
this column before (see especially March 
1981), in Bill Barden's monthly Assembly 
Line column, as well as in many other 
fine articles. These fundamentals won't 
be repeated here, but I would like to ex- 
plain why so often you will find machine 
code used in this column, and why non- 
decimal notation can be very revealing 
when programming at the machine 
level— as well as in sophisticated Basic. 

Computers are nothing more than an 
array of fast on-off toggle switches, 
which means if you learn to read the tog- 
gle switches, you know exactly what your 



computer is doing. For example, in May I 
presented a Micro Front Panel construc- 
tion project. It's a bank of 24 LEDs which 
flash a binary value according to the cur- 
rent memory location the computer is us- 
ing. It displays both the location (ad- 
dress) and the information (data). Several 
people have written to me asking what 
good it is, and I reply with an example: 
when programs seem to get lost, there's 
practically no way to know whether they 
are truly lost, merely involved in some 
time-consuming process, or hung up in a 
minor program glitch. 

Something peculiar happened when I 
tried to load one disk. The familiar noises 
took place, but then everything just 
stopped. I pressed the reset button 
again, the system reacted normally, but 
then just stopped. I glanced down at my 
Micro Front Panel, which read: 



i- 



I LSB MSB DATA I 

I 0000 0000 0100 0010 0000 0000 I 

It told me that my computer stopped 
writing data at binary address 0100 0010 
0000 0000 (which translates to hex- 
adecimal address 4200) and the data it 
wrote there was 00. 1 happen to know that 
4200 is where the disk's bootstrap load 
routine is placed in memory, so I learned 
that the bootstrap loader was never writ- 
ten. 

With the front panel I can also observe 
that the machine is still working when it 
pauses during a long program and will 
not respond to the Break key. Those of 
you whose programs have been trapped 
in seemingly interminable string sorts 
(where garbage collection is in progress) 
can be reassured that there is activity 
even though the machine seems hung. 

My point? Only that there is no way to 
know exactly where a machine is hung 
(and what to do about it) unless you can 
decipher binary numbers. 

If that's too esoteric a notion, try this 
simpler one from the realm of Basic: By 
using a single integer, you want to find 
out whether a person on your mailing list 
(a) has one of up to eight special skills; (b) 
was originally contacted through one of 
eight possible methods; (c) responded to 
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one of eight mailings; (d) attended the 
last meeting; (e) was contacted by 
phone; (f) paid the most recent dues; (g) 
registered for an upcoming seminar; (h) 
participated in an event; and (i) turned in 
a survey form. Can you do it? In binary, 
it's possible. 

Data Packing is Binary 

Program Listing 1 is a possible solu- 
tion to that question, drawn from a larger 
program. It requires an understanding of 
the binary consequences of some in- 
teger action in the computer, and also 
demands knowledge of the logical func- 
tions (AND, OR). Although this section of 
the program by itself seems lengthy, the 
resulting information is only one integer, 
meaning it can be stored in your mailing 
list or other data file as an economical 
single integer — just two bytes of memory 
or file space! 

Here's a look at the byte the program 
starts with, represented by integer Q: 
0000 0000 0000 0000. In the TRS-80, the 
leftmost binary digit (bit) is reserved for 
the number's sign. Zero defines a 
positive integer, one defines a negative 
integer. Since coded information con- 
taining a minus sign might look strange, 
I've discarded the leftmost bit in this 
scheme, leaving: (0)000 0000 0000 0000. 

Defining the arrangement of informa- 
tion to be stored in the two-byte integer is 
arbitrary. In the sample listing, there are 
eight choices for the first input (lines 150 
to 280 in Listing 1), so I reserved the left- 
most three bits for the response. Why on- 
ly three bits for eight choices? Because 
there are eight possible combinations of 
these three bits: 000, 001, 010, 011, 100, 
101, 110, and 111. Likewise, the second 
input (lines 310 to 390) can allow eight 
possible choices, as can the third input 
(lines 420 to 550). The remaining ques- 
tions are yes or no responses, meaning 
only a single bit need be used for each 
(1 =yes, = no). The result is a positive 
integer with its bits divided as in Table 1. 

Now, the bits themselves have to be 
made accessible to us, which means it's 
essential to know the value of each bit in 
the integer. Since this is binary number- 
ing, these are simply powers of two. 
Simply, I said? Sure. In decimal, the 
numbers are ranked according to powers 
of 10, which in elementary school was 
referred to as the "one's place," the 
"ten's place," the "hundred's place," 
etc. In binary, the numbers are still called 
out by their places, except that they 
would be called the "one's place," "two's 
place," "four's place," "eight's place," 
and so on. 

That breaks the binary integer up as 
shown in Table 2. 



nappware 
Goes On Trial! 

You Be 
The Judge! 

Snappware knows your programming time is valuable. 

That's why we are offering a trial package that will cut your 
programming time up tn 75%. This unprecedented offer 
allows you to judge tor yourself the value of our software us 
ing your hardware at your convenience. Our four best selling 
products; EXTENDED BASIC. EXTENDED BUILT IN FUNCTIONS. 
AUTOMAP and AUTOFILE. are available to you on a trial basis for 
only S50.00 for the model II and S35.00 for the AAodel III. We're 
convinced that after you see how well our software helps you 
perform programming tasks, you will purchase them like 
thousands of others have. Our trial package consists of a mas- 
ter diskette which may be used to create one working copy. 
Your purchase price for the trial package will be credited to 
ward the purchase of any software Snappware sells. 

If for any reason you are nek satisfied, just return the trial 
diskette and we will refund your money, no questions asked. 
With an unconditional guarantee like this, you can't lose. 

. Call our toll free number 800 543 4268 to put us on trial. 
We're sure your verdict will be Snappware saves you time and 
money. 

AAodel II Trial Package 550.00 
AAodel Ml Trial Package S35.00 






Time saving power 
at your Fingertips. 

CALL TOLL FREE: 

1-800-543-4628 

OHIO RESIDENTS 

CALL COLLECT: (513) 891 4496 

37l9A/\antell 

Cinti. Ohio 45236 
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Turn to line 300 in Listing 1, particular- 
ly the command A = (A-1) x 4096. Notice 
that the variable A was set to be the 
numerical result of the input from 
choices one through eight, in lines 170 to 
240. Since the bit patterns to be used to 
represent these choices run from 000 to 
1 1 1 (decimal to 7), the value of A must 
be decreased by one to force it to be 
within the range to 7. That's the easy 
part. 

The upper three bits of the integer are 



10 REM * THIS ROUTINE CAN BE REVISED 


810 AS-INKEYS : IF AS-"Y" THEN A-16 


28 REM * TO INCLUDE GENERAL-PURPOSE 


ELSE IF AS-"N" THEN A-0 ELSE 


38 REM • CATEGORIES IN PLACE OF THE 


810 


48 REM * SPECIFIC ONES SHOWN. UP TO 


820 Q-Q OR A 
830 GOSUB 1380 


58 REM * 15 YES/NO QUESTIONS CAN BE 


68 REM * STORED, OR SEVEN 4-CHOICE 


848 PRINT "QUESTION 16***" 


78 REM • QUESTIONS. A CASSETTE OF 


850 GOSUB 1420 


80 REM • THIS DEMO AND ALL THE BABYBUG 


860 AS-INKEYS : IF AS="Y" THEN A-8 


98 REM • PROGRAMS IS AVAILABLE FROM 


ELSE IF AS-"N" THEN A-0 ELSE 


188 REM • THE AUTHOR, ROXBURY VT 85669 


860 




120 PRINT-TOUCH 1 TO UPDATE, 2 TO DECODE" 


870 Q"Q OR A 


138 PRINT STRINGS(31,42) 


880 GOSUB 1380 


140 A$-INKEYS : IF AS-"1" THEN 150 ELSE 


890 PRINT "INPUT PHASE IS COMPLETE." 


IF AS="2" THEN 1340 ELSE 140 


900 PRINT "CODE NUMBER - ', 


150 GOSUB 1380 


910 QS=RIGHTS(STRS(Q> ,LEN(STR$(Q) ) -1) 


160 PRINT "FIRST CONTACT HAS:" 


928 PRINTSTRINGS(5-LEN(QS) , "0") ;QS"." 


170 PRINT "1 - FRIEND" 


930 PRINT "DECODING INFORMATION:" 


180 PRINT "2 = PROFESSIONAL ASSOCIATE" 


940 R-Q ! R-R AND 28672 : R-R/4096 : 
R-R+l 


190 PRINT "3 ■ ARTS ORGANIZER" 


200 PRINT "4 = FESTIVAL PARTICIPANT" 


950 PRINT "CONTACT: ■( 


210 PRINT "5 = FESTIVAL ATTENDEE" 


960 ON R GOTO 970 , 980 , 990 ,1010 ,1(10 , 


228 PRINT "6 = BENEFIT CONTRIBUTOR" 


1828,1830,1040 


238 PRINT "7 • MISCELLANEOUS" 


970 PRINT "FRIEND" : GOTO 1050 


240 PRINT "8 = <RESERVED>" 


980 PRINT "PROFESSIONAL ASSOCIATE": 


250 PRINT STRINGS(27,45) 


GOTO 1050 


260 PRINT "TOUCH APPROPRIATE NUMBER." 


990 PRINT "ARTS ORGANIZER" : GOTO 


278 PRINT STRING$(27,45) 


1050 


288 AS=INKEYS : A-VAL(AS) : IF A<1 


1000 PRINT "FESTIVAL PARTICIPANT" : 


OR A>8 THEN 280 


GOTO 1858 


290 REM * FIRST BIT PACKING HERE 


1810 PRINT "FESTIVAL ATTENDEE" : 


300 Q-0 : A=(A-1)*4896 : Q-Q OR A 


GOTO 1058 


318 GOSUB 1380 


1820 PRINT "BENEFIT CONTRIBUTOR" : 


320 PRINT "MAILING RESPONSE." 


GOTO 1050 


330 PRINT "MAILINGS TO DATE : " 


1030 PRINT "MISCELLANEOUS" : GOTO 


340 PRINT " - 6 - 


1050 


350 PRINT "HOW MANY RESPONSES?" 


1840 PRINT "<RESERVED>" 


368 PRINT STRINGS(27,45) 


1850 PRINT "MAILING RESPONSES:*! 


378 PRINT "TOUCH APPROPRIATE NUMBER." 


1868 R-Q : R-R AND 3584 : R-R/512 : 


388 PRINT STRINGS(27,45) 


R-R+l : PRINTR 


398 A$=INKEY$ : A-VAL(AS) : IP A<1 


1878 PRINT "CATEGORY: "; 


OR A>8 THEN 398 


1888 R=Q : R-R AND 7 : R-R+l 


488 REM * SECOND BIT PACKING HERE 


1090 ON R GOTO 1100,1110,1120,1130, 


418 A-(A-1)«512 : Q-Q OR A 


1140,1158,1168,1178 


420 GOSUB 1380 


1180 PRINT "VISUAL ARTIST" : GOTO 


430 PRINT "ARTISTIC CATEGORY:" 


1180 


440 PRINT "1 = VISUAL ARTIST" 


1110 PRINT "DESIGNER" : GOTO 1180 


450 PRINT "2 = DESIGNER" 


1128 PRINT "COMPOSER" : GOTO 1188 


460 PRINT "3 = COMPOSER" 


1138 PRINT "VIDEO ARTIST" : GOTO 


470 PRINT "4 = VIDEO ARTIST" 


1180 


480 PRINT "5 = DANCER/CHOREO" 


1148 PRINT "DANCER/CHOREO" : GOTO 


490 PRINT "6 - SCULPTOR" 


1188 


500 PRINT "7 - PERF. MUSICIAN" 


1158 PRINT "SCULPTOR" : GOTO 1188 


510 PRINT "8 ■ OTHER" 


1168 PRINT "PERF. MUSICIAN" : GOTO 


528 PRINT STRINGS (27, 45) 


1180 


538 PRINT "TOUCH APPROPRIATE NUMBER." 


1178 PRINT "UNCATEGORIZED" : GOTO 


540 PRINT STRINGS(27,45) 


1188 


550 AS-INKEYS : A-VAL(AS) ! IF A<1 


1188 PRINT "QUESTION 11: " ; 


OR A>8 THEN 550 


1198 R-Q : R.R AND 256 : IF R-256 


560 REM • THIRD BIT PACKING HERE 


THEN PRINT "Y" ELSE PRINT "N" 


570 A-A-l : Q=Q OR A 


1288 PRINT "QUESTION 42: ": 


580 GOSUB 1380 


1218 R-Q : R.R AND 128 : IF R-128 


590 PRINT "QUESTION ll*««" 


THEN PRINT "Y" ELSE PRINT "N" 


688 GOSUB 1420 


1228 PRINT "QUESTION 13: "j 


610 AS-INKEYS : IF AS-"Y" THEN A-256 


1230 R-Q : R-R AND 64 : IF R-64 


ELSE IF AS="N" THEN A-0 ELSE 


THEN PRINT "Y" ELSE PRINT "N" 


610 


1240 PRINT "QUESTION 44: ": 


620 Q-Q OR A 


1250 R-Q : R-R AND 32 : IF R-32 


630 GOSUB 1380 


THEN PRINT "Y" ELSE PRINT "N" 


640 PRINT "QUESTION »2**«" 


1260 PRINT "QUESTION 15: "; 


650 GOSUB 1420 


1270 R-Q : R-R AND 16 : IF R-16 


660 AS-INKEYS : IF AS="Y" THEN A-128 


THEN PRINT "Y" ELSE PRINT "N" 


ELSE IF AS-"N" THEN A-0 ELSE 


1280 PRINT "QUESTION 16: "; 


660 


1298 R-Q : R.R AND 8 : IF R-8 THEN 


670 Q-Q OR A 


PRINT "Y" ELSE PRINT "N" 


680 GOSUB 1380 


1300 PRINT STRINGS (27, 45) ; 


690 PRINT "QUESTION #3**"" 


1310 FOR X-l TO 1000 : NEXT 


700 GOSUB 1420 


1320 PRINTS64, "PRESS <ENTER> "; 


718 AS-INKEYS : IP AS-"Y" THEN A-64 


1330 AS-INKEYS : IF A$-CHRS(13) THEN 


ELSE IF AS-"N" THEN A-0 ELSE 


RUN ELSE 1338 


710 


1340 CLS : PRINT STRINGS ( 27 , 45) 


720 Q-Q OR A 


1350 INPUT "CODE NUMBER";Q 


730 GOSUB 1380 


1360 PRINT STRINGS(27,45) 


740 PRINT "QUESTION I4«*"" 


1370 GOTO 900 


750 GOSUB 1420 


1380 CLS : PRINT STRINGS (27, 45) 


760 AS-INKEYS : IF AS="Y" THEN A-32 


1390 PRINT " *• LIST UPDATE ••• 


ELSE IF AS-"N" THEN A=0 ELSE 


1400 PRINT STRINGS(27,45) 


760 


1410 RETURN 


770 Q-Q OR A 


1420 PRINT STRINGS (27, 45) 


780 GOSUB 1380 


1430 PRINT "TOUCH <Y>ES OR <N>0." 


790 PRINT "QUESTION I5*'*" 


1448 PRINT STRINGS(27,45) 


800 GOSUB 1420 


1458 RETURN 


Program 


Listing 1 



going to be used to store variable A; binary digits. Here's what happens, 

those upper three bits are the 16384's assuming choice 8 was selected: 
place, the 8192's place, and the 4096's 

place. Table 3 is a chart of the possible 

combinations. q at start = ooo oooo oooo oooo 

With this in mind, you can see how line Aisseiected = 1 1 1 oooo oooo oooo 

300 creates the upper part of the integer q or a function — 

out of this pattern of eight choices by Result = '" oooo oooo oooo 

multiplying by 4096. The final command 

in the line is Q = Q OR A. Again, this is 

visualized in binary, since logical func- Remember that the OR function 

tions AND, OR, and NOT operate on specifies that if either bit X or bit Y (or 

both) is 1, then the result will be 1. The 
reason for using the OR function here is 
to leave the original bits untouched while 
setting (changing to 1) the bits that are 
needed to produce a packed byte. Turn to 
line 410 to see how another group of bits 
is packed into integer Q. Again, the first 
part of the command A = (A-1) x 512 
moves variable A from its original input 
range of 1 to 8 down to the range of to 7, 
because three bits are being reserved in 
the integer byte (000 to 1 1 1) with decimal 
values from to 7. 

The response bits for this input fall (re- 
ferring to the binary "place" chart) in the 
512's, 1024's, and 2048's place. Likewise, 
the patterns appear as in Table 4. 

All are multiples of 512, so the com- 
mand A = (A-1) x 512 sets up the correct 
bits. In this case, assume that the user's 
choice was number 6, resulting in a bit 
pattern of 101 in the appropriate integer's 
positions. The OR function is used again 
in line 410, but recall that Q already has 
been assigned a value in line 300: 



Q new value = 111 0000 0000 0000 

A now selected = 000 1010 0000 0000 

Q OR A function 

New Q result = 111 1010 0000 0000 



What is the resulting Q at this point? You 
can calculate it by adding the sum of the 
powers of two, as above, and you will 
discover the integer is now 31232. Or, 
more simply, you can hit the Break key 
and enter the command: PRINT Q. 31232 
will be the result. 

The yes or no questions are simpler. If 
the answer to a question is yes, its 
respective bit is set to 1. If the answer is 
no, that bit is set to 0. The answers to the 
six questions in this example are packed 
into integer Q in lines 610-620, 660-670, 
710-720, 860-770,810-820, and 860-870. 
For example, assuming a yes answer to 
question 4, variable A would be set to 32, 
then ORed with Q. Notice that if you wish 
to pack the answers to 15 yes or no ques- 
tions into a single integer (instead of 
multiple-selection responses), this 
method can be used easily. 

The final three bits of integer Q hold 
the results of another eight-answer ques- 
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tion, and the process (which I won't 
describe this time) is carried out in lines 
420 through 570 of Listing 1. 

Getting It Back 

Once the information has been packed 
into integer Q (which will be a number 
from to 32767), how is it retrieved? 
Lines 900-920 print the number on the 
screen in five-digit format, merely for 
convenience. Its decoding follows, 



employing another logical function: 
AND. 

In brief, if bit X is 1 and bit Y is 1, then 
the result of the function X AND Y will be 
1 . Any other combination of X AND Y will 
result in a 0. Look at line 940, which uses 
the AND function in the command R = Q : 
R = R AND 28672. Remember that at this 
point Q is the coded Integer containing a 
lot of information; by making R equiva- 
lent to Q, value Q can be saved intact for 
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Bit Position: (0)XXX 
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Table 3. Combination Chart 
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Table 4 



later use. So this value R ( = Q) is ANDed 
with 28672. What is 28672? It is 16384 + 
8192 + 4096. In other words, the value 
28672 is an integer with the upper three 
bits already set to ones (111 0000 0000 
0000). This is the key to recovering the in- 
formation packed into Q. 

The following example shows a possi- 
ble coded number Q (decimal 22190) 
generated with this packing system. It is 
being ANDed with 28672, which will 
"mask out" all the bits we do not need to 
know about. Since everything ANDed 
with will end up being 0, this method 
simply places zeros where they are 
needed in the masking integer: 



Q integer being tested: 
28672 used as a mask: 
Executing Q AND 28672: 
Resulting masked value: 



101 0110 1010 1110 
111 0000 0000 0000 



101 0000 0000 0000 



Any 1 bits in integer Q (22190) will filter 
through the mask, giving a binary result. 
Converting the result to decimal gives 
the value 20480 in this example. The next 
command in line 940 is R = R/4096. Recall 
that value A in the input phase of the 
sample program was multiplied by 4096 
to shift the bits into the high position of 
integer Q. Here is the reverse of the pro- 
cess, resulting in an integer with the 
value through 7. Since the original 
choices were 1 through 8, the final com- 
mand on line 940 is R=R+ 1. In this sam- 
ple, R ( = 22190) AND 28672 = 20480. 
R/4096 = 5. R + 1 =6. Therefore, the in- 
formation has been recovered, and it can 
now be stated that the original value in- 
put was sixty. It is only a simple matter 
(in line 960) to display what that original 
input choice means. 

Line 1060 performs the same sort of 
activity to recover the response to the 
second input. Again, R = Q to recover the 
initial packed integer. Then R = R AND 
3584, since 3584 equals 2048 + 1024 + 
512 (another three-bit mask). R = R/512 
shifts the values to through 7, and 
R = R + 1 returns the values 1 through 8. 
Displaying the original input is again 
simple. Here is the binary representa- 
tion: 



R( = Q): 
3584 Mask: 
R AND 3584: 
Recovered info: 



101 0110 1010 1110 
000 11100000 0000 



000 0110 0000 0000 



When all this information is recovered, 
it's possible, by feeding in a five-digit 
code on someone's mailing label, to print 
out a report for your club or user's group 
which says, "John Jones is a TRS-80 
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Model III user with whom we made con- 
tact through another member. He has 
responded to each of our mailings, at- 
tended the last meeting, participated in 
the flea market, his dues are up to date. 
Jones's specialty is assembly language, 
and he participated in the club's last 
seminar." All in one two-byte integer. 

How to Hex 

Okay, you say, binary has its uses if 
I'm willing to spend some time and effort 
to use it. But why hexadecimal notation? 
Who cares? Hexadecimal notation, as a 
reflection of its binary function, can 
clearly demonstrate the relationships 
between machine functions. A very few 
of the 6809E instructions, commands 
which affect the operation of the Color 
Computer's central processing unit, are 
in Table 5. 

Obviously, the easiest way to 
remember these instructions is by their 
mnemonics. But the TRS-80 cannot easi- 
ly report back its memory contents in 
mnemonics, at least not without an ex- 
tensive programmer's aid called a 
disassembler. Therefore, when you see a 
bunch of numbers, ideally they should 
provoke some familiar reaction. 



Numbers like 136, 152, 168, and 184 are 
not likely to emphasize their straightfor- 
ward relationship to each other. Examine 
instead Table 6, with those same four in- 
structions (all sixteen forms) shown in 
mnemonics, decimal, binary, and hex- 
adecimal. 

See how neatly the leftmost digits 
count upward in binary? And notice how 
the commands count upward, in hex 
10's, in that same neat way. The relation- 
ships between the versions of ADC are 
visible, as are the relationships between 
the variants of EOR. Their nature is 
clearest in binary, but it is also easily visi- 
ble in hexadecimal— a far cry from at- 
tempting to quickly discern the relation- 
ship between 136 and 152, or 200 and 232. 

Not impressed? Then how about an ex- 
cerpt from Bill Barden's August 1981 
Assembly Line. On page 49, a man with 
staggering insight named David Lamkins 
offered this remarkable binary-to-ASCII 
conversion routine (wish I'd thought of 
this one): 

ADD A.90H 

DAA 

ADC A.40H 

DAA 

Let's try it first in decimal to see if it 
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Description 


Decimal 


Mnemonic 
ADCA 


of Command's Action 


Values 
137,153, 


Add to accumulator A, plus carry 




(instruction has four options) 


169,185 


ADCB 


Add to accumulator B f plus carry 


201,217, 




(instruction has four options) 


233,249 


EORA 


Exclusive OR accumulator A 


136,152, 




(instruction has four options) 


168,184 


EORB 


Exclusive OR accumulator B 


200,216, 




(instruction has four options) 


232,248 




Table 5. 6809E Instructions 
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1000 1001 


Hex Value 


89 




153 


1001 


1001 


99 




169 


1010 


1001 


A9 




185 


1011 


1001 


B9 


ADCB 


201 


1100 


1001 


C9 




217 


1101 


1001 


D9 




233 


1110 


1001 


E9 




249 


1111 


1001 


F9 


EORA 


136 


1000 


1000 


88 




152 


1001 


1000 


98 




168 


1010 


1000 


A8 




184 


1011 


1000 


B8 


EORB 


200 


1100 


1000 


C8 




216 


1101 


1000 


D8 




232 


1110 


1000 


E8 




248 


1111 
Table 6 


1000 


F8 




SPECTACULAR 
OFFERS 



BASF "FLEXYDISK"... ^tv 

Superior Quality data '* 
storage medium. 
Certified and guaranteed 
100% error free. 

SINGLE SIDED-SINCLE DENSITY 

5V*" or 8" Diskettes 10/$24 

514" or 8" Vinyl Storage Pages 10/ $5 

MAXELL- DISKETTES ■B9H 

Die best H*^M 

diskette money can buy. ^^^^^^^-«- 

Approved by Shugart ^B 

and IBM. ^( 

Sold only in boxes of 10 ^^^8 ^^^^ 

5",1 side $3.30 ^^^ 

8", 1-side $3.90 

5", 2-side $4.25 

8", 2-side $5.60 

ALL MAXELL DISKETTES ARE DOUBLE DENSITY 

LIBRARY CASE... 

3-ring binder album. 

Protects your valuable 

programs on disks 

Fully enclosed and 

protected on all sides 

Similar to Kas-sette storage box 

Library 3-Ring Binder $6.50 

5V*" Mini Kas - sette/10 $2.49 

8" Kas-sette/10 $2.99 




DISKETTE DRIVE HEAD CLEANING KITS 
Prevent head crashes and 
insure efficient, error- 
free operation. 

5V*" or 8" $19.50 



SFD CASSETTES 

C-10 Cassettes 10/$7 

(All cassettes include box & labels) 

Get 8 cassettes, C-10 sonic and 
Cassette/8 library album for 

only $8.00 

(As illustrated) 




HARDHOLE 
Reinforcing ring of 
tough mylar protects 
disk from damage 
5V4" Applicator $3 
8" Applicator $4 




5V«" Hardholes $6 
50/8" Hardholes $8 



VISA • MASTERCHARGE • MONEY ORDERS 
CERTIFIED CHECK • FOR PERSONAL CHECKS 
ALLOW TWO WEEKS • C.O.D. REQUIRES A 10% 

DEPOSIT • CAL. RES. ADD 6% SALES TAX 

MIN $2 SHIPPING & HANDLING • MINIMUM 

ORDER $10 • SATISFACTION GUARANTEED 

OR FULL REFUND 

Write for our free catalog 



PRODUCTS 

8868 Clairemont Mesa Blvd 
San Diego. CA 92123 

Toll Free 

1-800-854-1555 

For Orders Only 
For information or California orders 

(714) 2B8-3537 



80 Microcomputing, October 1981 • 57 



^APPLICATIONS 



makes sense. Add 144 to the ac- 
cumulator, decimal adjust the 
accumulator (for base ten operations), 
add 64 to the accumulator plus the con- 
tents of the carry flag, and decimal ad- 
just the accumulator again. Hmm. Let's 
convert decimal 14 to ASCII with it. 144 
+ 14 = 158. Decimal adjust. From what? 
The Z80 assembly programming guide 
talks in terms of hex values in upper and 
lower digits, but I've converted it to 
decimal equivalents for this example. 
Take my word that DAA would add 102 to 
this value, resulting in 260. Since the 
maximum value is 255, this 260 must 
have actually produced four and set the 
carry flag. Add 64, with carry, to the ac- 
cumulator produces 69— the ASCII code 
for uppercase letter E. 

Was that clear? I really didn't try to 
murky it up at all; it's just the best that 
can be done in decimal terms. Now 
here's the same conversion of 0E 
(decimal 14) to ASCII using hexadecimal 
notation. 90H + OEH = 9EH. Decimal ad- 
just. The programming guide says if 9-F 
is in the upper digit and A-F is in the 
lower, decimal adjust (DAA) adds 66H to 



this result. 9EH + 66H = 104H, with the 
leftmost 1 ending up in the carry flag. 
Add 40H, with carry, produces 04H + 
40H + 1 = 45H— the ASCII code for let- 
ter E. 

Any clearer? Obviously, since the pro- 
gramming guide forces you to use hex 
digits to determine the decimal-adjusted 
results, that consideration Is simpler. 
But also, notice that decimal 256 is ac- 
tually 100 hex— in terms of the ac- 
cumulator, it is 00 with the 1 carried over. 
That's why 260 decimal produces a result 
of four with carry, not five. It just isn't 
visible to the eye in decimal notation, 
whereas hexadecimal makes it very cer- 
tain that a carry has taken place. 

I've jumped to the defense of hex- 
adecimal notation not because I'm a 
longtime programmer rigidly committed 
to It (I'm neither), but rather because it's 
essential to understanding what your 
computer is doing, if understanding is 
what you care to do. Sure, numbering 
systems are arbitrary, and it's unfor- 
tunate that we're stuck with binary nota- 
tion and digital logic to start with. But It's 
currently an economic fact of life for 



computers; even if computers move 
away from binary operation, your TRS-80 
Model I, II, III, Color Computer, Videotex, 
Pocket Computer— or your Apple, OSI, 
Pet, Northstar, Atari, Vic, or Compu- 
squat— is a digital device. That's its 
nature, so that becomes your problem to 
deal with in the least time-consuming 
manner. 

What VAR is that VARPTR PTRing to? 

One more example; hang in there with 
me. Most programmers end up being 
forced to write sorting programs. Aside 
from being an unsatisfying project, sort- 
ing programs written in Basic can be 
dreadfully slow. Normally, sorting is 
done by comparing one item with 
another in some manner, and switching 
those items. But if the items are very long 
(such as names and addresses or other 
long strings), the sorts can take hours to 
complete. 

There's another way. Imagine you are 
the curator of a museum full of artwork, 
each piece with a reference number tack- 
ed nearby. You have had the catalog re- 
printed, but the artwork now does not 
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match the numbered reference labels. 
Would you (a) move the artwork to match 
the labels, or (b) move the labels to match 
the artwork? Assuming there has been 
no artistic decision involved in rearrang- 
ing the catalog, it's probably a lot easier 
to move a label instead of, perhaps, a 
two-ton piece of sculpture. 

This relates directly to sorting pro- 
grams. Every variable is located by Basic 
by means of a variable table it builds and 
stores just after the program listing. Your 
computer can provide you with that in- 
formation by means of the command 
VARPTR (variable pointer). If variable R$ 
has been defined, then command PRINT 
VARPTR(R$) will return the decimal value 
of the address at which all the informa- 
tion about R$ is stored. 

If PRINT VARPTR(R$) yields 8591 on 
the Color Computer, then PRINT 
PEEK(8591) will reveal the length of R$, 
and PRINT 256 x PEEK(8593) + PEEK 
(8594) will tell where R$ starts in memory. 
For example, in the Color Basic version 
of Babybug, the command PRINT 
VARPTR(R$) might in fact yield 8591, 
PEEK(8591) = 2, and 256 x PEEK(8593) 



+ PEEK(8594) = 16381. Interestingly, 
you will find that the formidable ques- 
tion— 

FOR X = 1 TO PEEK (VARPTR (R$) ) : PRINT CHRS 
(PEEK (256 x PEEK (VARPTR (R$) + 2) + PEEK (VARP- 
TR (R$) + 3) + X - 1));:NEXT 

—will actually print R$ on the Color Com- 
puter! On the Model I or III, one aspect 
would be reversed, and the equation 
would read: 



FOR X = 1 TO PEEK (VARPTR (R$) ) : PRINT CHRS (PEEK 
(PEEK(VARPR(R$) + 1) + 256 x PEEK (VARPTR (R$) + 2) 
+ X - 1));:NEXT 



What is this 256 x PEEK(N) + PEEK 
(N + 1) business? Because there are so 
many memory locations in the computer, 
any given location must always be 
specified using sixteen binary digits of 
data— one group of eight bits defines the 
most significant byte (MSB), or highest 
eight binary digits, and the other group 
defines the least significant byte (LSB) of 
the address. You will recall that integers 
were also stored as two bytes of informa- 



tion, so this type of format is not new. 
What is new, at least in the Model I or III 
TRS-80s, is how this information is 
ordered. 

Because of choices made when the 
original 8008 microprocessor was 
designed in the early 1970's, its grand- 
child the Z80 stores addresses with the 
LSB first and the MSB second. For- 
tunately, users of the Color Computer 
will find that the 6809E processor keeps 
things in a more human-oriented order, 
with MSB first and LSB second. In both 
cases, though, the lower eight bits can 
be used as written, but the upper eight 
bits occupy the 256's place through the 
32768's place. Therefore, the number 
represented by this byte is actually 256 
times that of the least significant byte. 

Now to the point. If I PEEK into the 
Model I's memory and find that an ad- 
dress is given as 233 decimal, 66 
decimal, I can calculate the true address 
with the formula LSB + 256 x MSB, or 
233 + 66 x 256. That is 1 7129, which many 
of you will recognize as the beginning of 
Basic program storage. If I PEEK into the 
Color Computer's memory and find an 



TIME ... 

METHUSELAH" has time for you 
and your TRS-80 



The name Methuselah has always been associated with long life. The Methuselah 
computer clock board with its 24 hour clock and its perpetual calendar is indeed worthy 
of the title. Methuselah puts state of the art technology into action with the on board four 
year lithium battery back-up to keep it running even when your computer is off. That 
means no more fooling around with the software or hardware "clocks" that become Rip 
Van Winkles when the computer is reset or turned off. 

Methuselah has many other timely features. Software patches keep the DOS and BASIC 
time and clock commands ticking. Only two screws mount Methuselah inside the expan- 
sion interface without soldering, clipping, cutting, or jumpering. There is even a spare 
l port and four different interrupts available for people who love to tinker. 

SPKCS. MM DI) YY. HH:MM:SS and day of the week. Four year lithium battery 

back-up Crystal controlled timing (adjustable 32.768 oscillator). Twenty four 
hour clock and perpetual calendar. 



$97.00 



dM 



$17.50 



NDM DESIGNS ^135 

6330 W North Ave 

Wauwatosa. w 53213 

(414) 259-0120 



M-Sl 

(add $4.50 P and H) 

S-Sl 

(add $2.50 P and H) 
(If vou wish to use Methuselah 
and the RS-232 board (26-1145) 
together, order this option which 
includes a new cover and con- 
nector.) 
WI residents add 4% sales tax. 



METHUSELAH is a 
trade mark ot NDM Designs 
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By Waldron P. Hodsdon 

Hmmmm. Looks like another "Space Invaders" type game. 
Nice neat ranks of aliens poised over your defensive base 
. . . but WATCH OUT! Here they come, swooping down 
with their bombs and Kamakazi-like dives. There are in- 
dividual attackers plus group flights -- all intent on de- 
stroying your three bases before you destroy them. 

Full sound effects add further excitement to this machine 
language game. The action is fast and furious enough to 
keep you on the edge of your seat for hours on end. 
ALIEN ARMADA allows up to two players and has three 
levels of difficulty from beginner to expert. All for only 
$14.95 (16K tape) or $18.95 ( 32K disk). 

r~ MAIL ORDERS: Include $2 00 shipping & handling (D C residents add 6% sales tax) 
CHARGE CARD CUSTOMERS: Call (202) 544-6674 tor lastesl service 



f 



THE LIBERTY SOFTWARE C9 



635 Independence Avenue, S.E. 
Washington, DC. 20003 

(202) 544-6674 
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5&APPUCATIONS 



address written 30 decimal, decimal, I 
can calculate that address as 



256 x MSB + LSB, or 256 x 30 + 0. That is 
7680, also the beginning of Basic. 



10 REM * THIS PROGRAM DEMONSTRATES 

20 REM * A BOBBLE SORT WRITTEN WITH 

30 REM * BOTH NORMAL REPLACEMENT 

40 REM * SORTING AND WITH VARPTR 

50 REM * REFERENCE POINTER SWITCHING 

60 CLEAR250:CLS: PRINT STRING$(27 ,45) 

70 PRINT "<N>ORMAL STRING SORT" 

80 PRINT "<V>ARPTR STRING SORT" 

90 PRINT STRINGS (27, 45) 

100 PRINT "TOUCH N OR V. " 

110 PRINT STRINGS (27, 45) 

120 A$-INKEY$ : IF A$-"N" THEN 130 

ELSE IF A$-"V THEN 280 ELSE 

120 

130 REM 

140 REM * BEGIN NORMAL SORT PROCEDURE 

150 REM 

160 INPUT"HOW MANY ITEMS TO SORT" j I 
170 DIM A$(I) : FOR X » 1 TO I i 

PRINT X; : INPUT A$(X) : NEXT : 

GOSUB 440 
180 PRINT "< ... NOW SORTING ... >" j 
190 GOSUB 440 s REM REMOVE TO TIME 
200 X«1jN-N+1:Q-0 
210 IFA$(X)<«A$(X+1)THEN230 
220 Q=Q+1:Z$-A$(X) :A$(X) «A$(X+1) : 

A$(X+1)«Z$ 
230 X-X+1:IFX>I-1THEN240ELSE210 
240 IFQ-0THEN250ELSEIFX>I-1THEN190 

ELSE210 
250 GOSUB 440 " 



NOW SORTING ...>"| 
REM REMOVE TO TIME 



260 PRINT "<SORTED - TOUCH ENTER>"> 

270 A$-INKEY$ t IF A$-CHR$(13) THEN 
10 ELSE 270 

280 REM 

290 REM * BEGIN VARPTR SORT PROCEDURE 

300 REM 

310 DEFINTX,Y,Z,I,K,L,M,N,Q,D,E : 
Y-0 t Z-0 : D-l : E-2 : K-0 t 
L-0 : M-0 : N«0 : Q-0 : X«0 

320 INPUT'HOW MANY ITEMS TO SORT"; I 

330 DIM A$(I) t FOR X - 1 TO I i 

PRINT Xj i INPUT A$(X) : NEXT t 
GOSUB 440 

340 PRINT"< .. 

350 GOSUB 440 

360 X-DiN-N+D:Q-0 

370 IFA$(X)<«A$(X+D)THEN390 

380 Q-Q+D:Z-VARPTR(A$(X) ) tK-PEEK(Z) I 
L-PEEK(Z+D) :M-PEEK(Z+E) :Y-VARPTR 
(A$(X+D) ) :POKEZ,PEEK(Y) jPOKEZ+D, 
PEEK(Y+D) :POKEZ+E,PEEK(Y+E) tPOKE 
Y,K:POKEY+D,LxPOKEY+E,M 

390 X-X+D:IFX>I-1THEN400ELSE370 

400 IFQ«0THEN410ELSEIFX>I-1THBN350 
ELSE370 

410 GOSUB 440 

420 PRINT "<SORTED - TOUCH ENTER>"; 

430 A$-INKEY$ : IF A$»CHR$(13) THEN 
10 ELSE 430 

440 CLS : FOR X - 1 TO I 

450 PRINT A$(X) > NEXT X t RETURN 



Program Listing 2 



* Babybug II for Model I/III * 

Program memory requirement: 848 bytes 

Running time requirement: 162 bytes 

Basic normal overhead requirement: 83 bytes 

Memory Size can be set to total memory minus 1100 bytes 

1 CLEAR4:DEFINTD-Y:DEFSNGQ:E-1:F=256:G-16:H-48:I=55:J=64 

2 CLS:INPUT"ORG MSB";R$:GOSUB13:POKE16527 ,M:L=M: INPUT'ORG 

LSB";R$:GOSUB13:POKE16526,M:K=M:Q«K+F*L:IFQ>32767THEN 
Q-Q-F*F 

3 PRINT"ENTER HEX BYTES (X - STOP S = SKIP) 

4 FORY =ET08 : GOSUB1 9 : FORW=ETOG 

5 P=260+3*W+(Y-E)*J:PRINTeP,CHR$(91) ; 

6 R$="":INPUTR$:IFR$="X"THEN12ELSEIFR$-"S"THEN9ELSEIFR$-"" 

THEN7ELSEGOSUB13:POKEQ,M 

7 Q=Q+E : PRINTCHR$ ( 27) CHR$ (30) ; : PRINTgP-64 , R$; : K=K+E: IFK<F 

THEN8ELSEK«=0 : L=L+E 

8 NEXTW: PRINT :GOSUB20:GOTO11 

9 PRINTCHR$(27) ; :FORX»QTOQ+(G-W) :K=K+E: IFK<FTHEN10ELSEK«0: 

L=L+E 

10 NEXTX:Q»Q+17-W:GOSUB21:GOSUB20 

11 NEXTY: CLS: PRINT: PRINT: PRINT :GOT04 

12 INPUT"1 = RUN PROG, 2 - RE-ENTER" ;S: IFS01THEN2ELSEPRINT 

USR(0) :G0T012 

13 R=ASC(RIGHT$(R$ f E)) :S-ASC(LEFT$(R$,E) ) 

14 IFR>47ANDR<58THENT»R-HELSEIFR>JANDR<7lTHENT=R-I 

15 IFS>47ANDS<58THENU=G* ( S-H) ELSEIFS>JANDS<71TBENU=G* ( S-I) 

16 M=T+U: RETURN 

17 N«V/F:0»V-N*F:N=0/G:D«0-N*G:IFN>9THENPRINTCHR$(I+N) ;: 

ELSEPRINTCHR$(H+N) ; 

18 IFD>9THENPRINTCHR$(I+D) ; :RETURNELSEPRINTCHR$(H+D) ;: 

RETURN 

19 GOSUB21:FORX=QTOQ+15:V=PEEK(X) :G0SUB17:PRINT" ";:NEXT: 

PRINT: RETURN 

20 PRINTCHR$(27)TAB(7) ; :FORX=Q-GTOQ-E:V«PEEK(X) :GOSUB17: 

PRINT" ";:NEXT: PRINT: RETURN 

21 V=L:G0SUB17:V=K:G0SUB17:PRINT" * ";:RETURN 

Program Listing 3 



However, these time-consuming con- 
versions are easier for me because I 
think in hexadecimal; I can do it In my 
head, since I only need to know the one- 
byte hex-to-decimal conversions. With 
practice, these one-byte conversions are 
easier to remember than multiplying by 
256. My decimal 233, 66 address men- 
tioned earlier turns into E9 42 hex, which 
(because it's stored backwards in Z80 
terms) becomes address 42E9. In the 
Color Computer, decimal 30, becomes 
1E00 hex, which is already in the proper 
order. And since the Model I's disk and 
Level III Basic packages all include the 
&H option for hex numbers, I need con- 
vert no further. Extended Color Basic 
also includes &H as standard equipment 
(as well as HEX$— read on). 

Toll and Trouble 

There is a reason I brought up all these 
addressing confusions: like switching 
the catalog labels under the pieces of art, 
it's faster to switch the VARPTR labels to 
variables rather than the variables 
themselves. Program Listing 2 shows 
two ways of doing a simple bubble sort 
on the Model I. The normal sort starts at 
line 140, evaluates each item in the list 
against the next item in the list, and 
switches them (line 220) if they are out of 
order. A flag is set (variable Q) any time 
items in the list are switched; when all 
have been switched, Q is zero, and a com- 
pletion message is printed. This sort 
essentially moves all the artwork every 
time the sort is passed through. 

The VARPTR sort begins at line 290, 
defines all variables (to set aside all 
necessary space in the VARPTR table), 
and starts in much the same way as the 
usual bubble sort: an item is evaluated 
against the next one in the list. Then 
things begin to change: Line 380 is 
packed tightly to speed up the operation. 
Z is set to VARPTR(A$(X)), the address at 
which information about the current item 
being sorted is stored. Variables K, L and 
M are given the information about the 
item under consideration— Its length, 
and where it currently resides in memory. 
Y is then set to VARPTR(A$(X + 1)), the 
address at which information about the 
next item in the list is stored. A$(X) is 
POKEd with PEEK(Y), PEEK(Y + 1), and 
PEEK(Y + 2), meaning the information 
about A$(Xf 1) is being POKEd into 
A$(X), Likewise, A$(X ■+■ 1) is POKEd with 
K, L and M, the storage information 
about A$(X). The computer can now be 
fooled into believing A${X) is A$(X + 1) 
and vice-versa. This line has switched 
the labels, not the artwork. 

Is it worth the trouble? That depends 
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on the length of the sort you are doing. 
The fewer the items in the sort, the less 
advantage the VARPTR method will 
have. Table 7 compares the two sorting 
techniques. 

It's clear that when memory space is at 
a premium, as it probably would be with 
large amounts of data to be sorted, the 
VARPTR method has a remarkable ad- 
vantage—sorting 50 four-character 
strings in less than half the time an or- 



dinary sort would need. It can also avoid 
potentially disastrous out-of-string- 
space errors. 

The cause of the delay during sorting, 
by the way, is something called "garbage 
collection." When small computers such 
as the TRS-80 manipulate strings (such 
as the command Z$ = A$(X) in Listing 2), 
temporary string space is set up for Z$. 
Each time Z$ is used this way again, new 
space is set up for it, and the old version 
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* Babybug for Color Computer, 4K Color Basic * 

Program memory requirement: 864 bytes 

Running time requirement: 225 bytes 

Basic normal overhead requirement: 108 bytes 

Clear memory to total available minus 1197 bytes 

(CLEAR 8,2750) 

1 CLEAR8 : E=l : F=256 :G=16 : H=48 : 1-55 : J=64 

2 CLS: INPUT "ORG MSB" ;R$:G0SUB13 :L=M: INPUT'ORG LSB" ;R$:GOSUB 

13:K=M:Q=K+F*L:ZN=Q:PRINT"ENTER HEX BYTES. X=STOP, S= 
SKIP 

3 FORY=E T08:G0SUB21:F0RW=E T08 

4 P=125+3*W+(Y-E)*32:PRINT@P," "; 

5 R$="":INPUTR$:IFR$="X"THEN12ELSEIFR$="S"THEN9ELSEIFR$="" 

THEN7 

6 PRINT§P-25,R$;:G0SUB13:P0KEQ,M 

7 Q=Q+E:PRINT@Y*32+71 r "";:K=K+E:IFK<F THEN8ELSEK=0 :L=L+E 

8 NEXTW:G0SUB22:G0T011 

9 PRINT@Y*32+71,"";:FORX=Q TOQ+(8-W) :K=K+E: IFK<F THEN10ELSE 

K=0:L=L+E 

10 NEXTX:Q=Q+9-W:GOSUB22 

11 NEXTY: CLS: PRINT: PRINT: PRINT :GOT03 

12 INPUT"1 = RUN PROG, 2 = RE-ENTER2; Z : IFZ01THEN2ELSEEXEC 

ZN:CLS:GOT012 

13 R=ASC(RIGHT$(R$ f E) ) :S=ASC(LEFT$ (R$, E) ) 

14 IFR>47ANDR<58THENT=R-H ELSEIFR>J ANDR<71THENT=R-I 

15 IFS>47ANDS<58THENU=G*(S-H)ELSEIFS>J ANDS<71THENU=G* (S-I) 

16 M=T+U: RETURN 

17 A=INT(V/F) :B=V-A*F:C=INT(B/G) :D«B-C*G 

18 IFC>9THENPRINTCHR$(I+C) ;ELSEPRINTCHR$(H+C) ; 

19 IFD>9THENPRINTCHR$(I+D) ; :RETURNELSEPRINTCHR$(H+D) ; : RETURN 

20 RETURN 

21 GOSUB23:FORX=Q TOQ+7:V=PEEK(X) :G0SUB17 : PRINT" ";:NEXTX: 

PRINT: RETURN 

22 PRINT@Y*32+71,"";:FORX=Q-8TOQ-E:V=PEEK(X) :G0SUB17 : PRINT 

" ";:NEXTX: PRINT: RETURN 

23 V=L:G0SUB17:V=K:G0SUB17: PRINT" * "7:RETURN 

Program Listing 4 



of Z$ is abandoned. It's still there in 
memory, but It's inaccessible and the 
memory space is lost (temporarily!). Why 
would anyone create a Basic that did 
this? The answer Is really quite 
reasonable: Since your TRS-80 Basic 
doesn't require you to define how long 
any string is going to be before you use it, 
Basic can't know ahead of time. If it was 
forced to use the same location to store 
Z$ every time, and Z$ got longer, it just 
wouldn't fit. To avoid any such conflicts, 
every time a string is defined— even if it 
has the same variable name— new space 
is set aside for it. 

However, Basic has to recover this 
dead space sometime, and that process 
is called garbage collection. When 
Cleared string space is used up, opera- 
tion of your running program is sus- 
pended, and Basic picks its way through 
string storage memory, cleaning out the 
dead strings and moving the live strings 
into those areas. When there are hun- 
dreds of strings involved, Basic has to 
check each and every one against its en- 
tire VARPTR table to see if it's alive or 
dead. That process can take up to an 
hour in complicated programs. 

With the VARPTR sort, there is no gar- 
bage collection during the sort, because 
no string equations are used— only 
numerical pointer switching! That ac- 
counts for the remarkably consistent 
time for sorting, irrespective of the 
length of the items being sorted. The nor- 
mal sort, on the other hand, takes longer 
and longer as it is required to pick up its 
garbage more often. 

In Listing 2 I've only cleared a small 
amount of space (in line 60); if the cleared 
space were larger, the normal program 
would beat the VARPTR sort. But don't 
forget that most sorting programs will 
use massive amounts of data, thereby 
limiting the amount of string space you 
can clear. If you have a sorting program 
that runs a long time, try re-writing it with 
the VARPTR sort. It might save you a cou- 
ple of hours. 

At Last 

The purpose of this month's column 
(several thousand words ago) was to 
present again the Babybug machine-lan- 
guage monitor. Here is a brief descrip- 
tion of the major actions of each version 
of this program. 

In Program Listing 3 (the Model I or III 
version), string space is reduced to a 
minimum, and integers and other values 
are defined. The input prompts for most- 
significant and least-significant address 
bytes are presented, and the input 
strings are converted to numbers and 
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POKEd into the machine-language USR 
entry point. Variable Q is set to the cur- 
rent address being inspected; if Q is 
greater than address 32767, Level II 
Basic requires that it be converted to a 
negative number. 

The user is then given a short menu of 
options (to enter hexadecimal bytes, to 
stop entry, or to skip the current line). The 
target address and the memory contents 
of it and 15 successive locations are 
displayed in hex. An arrow prompt points 
to the first hex byte. The options are 
(enter) to move on to the next byte; S 
(enter) to redisplay the first line and 
display the next one; X (enter) to ter- 
minate entry and present a new prompt; 
or the entry of any hexadecimal byte 
from 00 to FF. 

A total of eight lines (128 bytes) may be 
displayed at any time; advancing to the 
next memory location clears the screen 
and presents a new line of information. 



The X command (terminate entry) pre- 
sents a new prompt asking the user 
either to run the machine code which has 
just been entered, starting at the initial 
entry address (the response to the 
MSB/LSB prompt), or to re-enter at a new 
address and begin the process again. 

Major subroutines include hexa- 
decimal string to numeric conversion 
(lines 13-16), integer to two-character 
hex string conversion (lines 17-18), full 
line display (line 19), revised line display 
(line 20), and address display (line 21). 

The programming for the Color Basic 
version (Program Listing 4) differs from 
the Model I or III Babybug in two ways: 
the lack of the DEFINT function requires 
that integers be taken during calculation 
(line 17), and the absence of a USR func- 
tion demands that the EXEC routine be 
used instead (line 12). Minor differences 
include the absence of an upward car- 
riage return, and a required space 
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* Babybug for Color Computer, 16K Extended Color Basic * 

Program memory requirement: 804 bytes 

Running time requirement: 190 bytes 

Basic normal overhead requirement: 88 bytes 

Clear memory to total available minus 1082 bytes 

( PMODE0 : PCLEAR1 : CLEAR8 , 4200 ) 

1 CLEAR8:E=1:F=256:G=16:H«48:I=55:J=64 

2 CLS:INPUT"ORG MSB" ;R$:GOSUBl3 : L=M: INPUT"ORG LSB" ; R$:GOSUB 

13 :K=M:Q=K+F*L:DEFUSR0=Q: PRINT-ENTER HEX BYTES. X=STOP 
S=SKIP 

3 FORY=E T08:GOSUB19:FORW=E T08 

4 P=125+3*W+(Y-E)*32:PRINT@P," " ; 

5 R$="":INPUTR$:IFR$="X"THEN12ELSEIFR$="S"THEN9ELSEIFR$="" 

THEN7 

6 PRINTeP-25,R$;:GOSUBl3:POKEQ,M 

7 Q«Q+E:PRINT§Y*32+71,"";:K=K+E:IFK<F THEN8ELSEK=0: L=L+E 

8 NEXTW:GOSUB20:GOTO11 

9 PRINT§Y*32+71 f -";:FORX=Q TOQ+ ( 8-W) :K=K+E: IFK<F THEN10ELSE 

K=0:L=L+E 

10 NEXTX:Q=Q+9-W:GOSUB20 

1 1 NEXTY : CLS : PRINT : PRI NT : PRI NT : GOT03 

12 INPUT-1 = RUN PROG, 2 = RE-ENTER" ; Z : IFZ01THEN2ELSEPRINT 

USR0(0) :CLS:GOT012 

13 R=ASC(RIGHT$(R$,E) ) : S=ASC (LEFT$ (R$,E) ) 

14 IFR>47ANDR<58THENT=R-H ELSEIFR>J ANDR<71THENT=R-I 

15 IFS>47ANDS<58THENU=G*(S-H)ELSEIFS>J ANDS<7lTHENU=G* (S-I) 

16 M=T+U: RETURN 

17 V$=HEX$(V) :IFLEN(V$)=1THENPRINT"0"+V$;ELSEPRINTV$; 

18 RETURN 

19 G0SUB21:F0RX=Q TOQ+7 :V=PEEK (X) :GOSUB17 : PRINT" ";:NEXTX 

PRI NT: RETURN 

20 PRINT@Y*32+71 , " " ; : FORX=Q-8TOQ-E : V=PEEK (X) : GOSUB17 : PRINT 

" ";:NEXTX:PRI NT: RETURN 

21 V-L:G0SUB17:V=K:G0SUB17:PRINT" * ";:RETURN 

Program Listing 5 



separating variable names from subse- 
quent keywords (line 3, for example). The 
display is similar but not identical 
because of the 32-character line limit on 
the Color Computer; only eight bytes of 
hex data are displayed per line (64 per 
screen). 

The Extended Color Basic version of 
Babybug (Program Listing 5) is similar 
but faster than the Color Basic program 
because of the excellent HEX$ com- 
mand. The entire numeric-to-hex*conver- 
sion process is handled by the command 
V$ = HEX$(V) in line 17. The only 
modification I've made is the addition of a 
leading zero in front of single-digit hex 
numbers. A DEFUSR function is used in- 
stead of EXEC. 

Sample Session 

Enter Babybug in Basic, and be sure to 
save a copy to tape before you run it, as 
random entry of hex information into 
memory can crash everything. After sav- 
ing and verifying a copy, run the program. 
The screen will clear and this prompt will 
be displayed: ORG MSB?_. It is asking 
for the most significant byte of the ad- 
dress you wish to inspect, a two-digit 
hexadecimal number. For this first ses- 
sion, the screen will be examined. Enter 
3C (04 on the Color Computer). The next 
prompt will be: ORG LSB?_. This asks 
for the least significant byte of the ad- 
dress to be examined. Enter 00 (00 on the 
Color Computer). The short menu (Enter 
Hex Bytes. X = Stop, S = Skip) will be 
displayed, followed by the complete ad- 
dress (3C00 or 0400) and sixteen (eight) 
hexadecimal bytes of data. 

The first three bytes will likely be 4F 52 
47. No, this is not machine code yet. 
These are the ASCII values for the first 
three letters at the top left of the 
screen— ORG. Type: 41 (enter) 42 (enter) 
43 (enter). The bytes displayed should 
change as you enter each one, and the 
characters at the top left corner of the 
screen will change to ABC. Continue to 
enter hex data from 00 to FF and observe 
the screen display change. As you reach 
the end of the line, a new line will be 
displayed with the continued screen in- 
formation. When you have entered 128 
bytes (64 on the color computer), the 
screen will clear and the hex display will 
be continued. 

Now type X (enter). You will see the 
prompt 1 = RUN PROG, 2 = RE-ENTER. 
Type 2 (enter). The screen will clear 
again, and the entry (origin) prompt will 
reappear. Before continuing, make sure 
you have saved a copy of the program! 
Enter 00 (A0 in Color Basic, 80 in Ex- 
tended Color Basic) to MSB and 00 to 
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COMPUTER CENTER 



31 East 31st Street • New York, N.Y. 
(between Madison & Pan\ Avenues) 



480 Lexington Avenue • New York, N.Y. 
(American Brands Bldg., between 46th & 47th St.) 



presenting the LARGEST SELECTION OF SOFTWARE EVER ASSEMBLED. 



the best available on the market today for TRS-80® Computers 

at SUPER DISCOUNT PRICES! 



AVALON HILL 

□ MIDWAY 13 50 

Q NUKE WAR 13 50 

D PLANET MINERS 13 50 

D CONVOY RAIDER 13 50 

B1 BOMBER 13 50 

D I ORDS OF KARMA 18 00 

D CONFLICT 2500 13.50 

D COMPUTER ACQUIRE 18 00 

□ BASEBALL 22 50 

D EMPIRE OVERMIND 27 00 

ADVENTURE INTERNATIONAL 

□ ADVENTURE HINT BOOK 7.95 

□ ADVENTURE »0 6 25 

□ ADVENTURE (1.2.3) |D| 35 95 

D ADVENTURE (4.5,6) [D) 35 95 

D ADVENTURE (7.8.9) |D] 35 95 

D ADVENTURE "10 |D| 18 95 

D ADVENTURE (specily 1-10) 17 95 

□ MEAN CHECKERS MACHINE 17 95 

D MEAN CHECKERS MACHINE (D| 22 95 

D DR CHIPS 17 95 

D DR CHIPS [D] 17 95 

D INTER FICTION SAMPLER (D| 13 55 

D INTER-LOCAL CALLS (D) 17 95 

□ INTER-TWO HEADS [D] 17 95 

D INTER-IMPETUOUS [D] 17 95 

D KID- VENTURE 1 17 95 

D ST AR TREK 3.5 1 7 95 

D STAR TREK 3 5 [D] 17 95 

D ZOSSED IN SPACE 13 55 

D MACES #1, BARLOG 31 00 

D MACES #1. SISYPHUS 3100 

D LUNAR LANDER 17 95 

Q LUNAR LANDER (D] 18 95 

□ POKER 13 55 

D GALACTIC TRILOGY (DJ 35 95 

D SILVER FLASH 17 95 

D SILVER FLASH (D) 17 95 

a MISSILE ATTACK 17 95 

D STAR SCOUT 17 95 

D SPACE INTRUDERS 18 75 

D STAR FIGHTER 22 50 

ACORN SOFTWARE 

O ATERM 17 95 

D SYSTEM SAVERS 13.55 

□ DISASSEMBLER 13 55 

D DISK/TAPE UTILITY 17 95 

a STAR TREK SIMULATION 8 95 

D GAMMON CHALLENGER 13 55 

O PIGSKIN 1355 

D ULTRA TREK 13.55 

D SPACE WAR 8 95 

D WARP/LANDER 8 95 

D BASKETBALL |D] 18 95 

D BASKETBALL 13 55 

D DUEL-N-DROIDS [D| 18 95 

D DUEL-N-DROIDS 13.55 

D INVADERS FROM SPACE 13.55 

D INVADERS FROM SPACE (O] 18 95 

□ PIGSKIN (D) 18 95 

D PINBALL 13 55 

D PINBALL ID] 18.95 

O EVEREST EXPLORER 13 45 

D EVEREST EXPLORER |D] 18 95 

D SUPERSCRIPT |D| 28 95 

MED SYSTEMS 

D DEATHMAZE 5000 11 65 

D RATS REVENGE 1 1 65 

Q REALITY ENDS 8 95 




Check program desired. 
Complete ordering information 
and mail entire ad. 
Immediate Shipments from stock. 



KEY: 

C-TRS-80 Color 

D-on Disc 

If not marked - Cassette 




EPX-AUTOMATED SIMULATION 

D STAR WARRIOR |CASS. OR DISK) 35 95 

D THREE PACK (D| 45 00 

D STARFLEET (CASS. OR DISK) 22 50 

D INVASION (CASS. OR DISK) 22 50 

□ APSHAI |CASS. OR DISK) 35 95 

□ RYN (CASS .OR DISK) 17 95 

□ MORLOC (CASS. OR DISK| 17.95 

O RIGEL [CASS OR DISK) 26 95 

D HELLFIRE [CASS OR DISK) 35 95 

D CRUSH. CRUMBLE & CHOMP [CaSS Or D) 26 95 

L0B0 

D LDOS[D] 125 00 

COMPUTER SIMULATIONS COMPANY 

a BATTLE OF BULGE-BASTGONES 17 95 

O D-DAY INVASION OF FRANCE 17 95 

D DOG RACE. COLOR ONLY [C) 5 95 

D GREAT DICTATOR 7 25 

□ JEDI KNIGHT 11 75 

□ LUNAR ENCOUNTER 11.75 

a MERCENARY 8 95 

O SHARK COLOR ONLY |C) 5 95 

D SLOT MACHINE 7 25 

D BATTLE OF BULGE-ST VITH 13 55 

a STAR CRUISERS 13 55 

D U-BOAT, COLOR ONLY |C| 5.95 

D ORION WAR. COLOR ONLY [C] 5.95 

D POLARIS. COLOR ONLY [C| 5 95 

D ASTEROID PIRATES 13 55 

INSTANT SOFTWARE 

D AIR FLIGHT SIMULATION 8 95 

D ASTEROIDS |D) 17 95 

D BALL TURRET GUNNER 8 95 

D BATTLEGROUND 8 95 

D CHECK MANAGEMENT [D| 36 55 

D CHESSMATE-80 1 7.95 

D COSMIC PATROL 13.55 

D COSMICPATROL |D) 1795 

□ DAREDEVIL 8 95 

D DISASSEMBLER 8 95 

D DISK EDITOR [D| 36.55 

D DISK SCOPE [D] 17 95 

□ DLDIS (D) 1795 

D DEVICE DRIVERS 1 7 95 

O ENHANCED BASIC 22.50 

D FLIGHT PATH 8 95 

□ I Q TEST 8 95 

D INVADERS 895 

D INVESTORS PARADISE 8 95 

□ IRV 22 50 

D IRV [D| 27 55 

D JET FLIGHTER PILOT 13 55 

□ MONEY MADNESS 8 95 

D NIGHT FLIGHT 8 95 

D ONE-D MAILING LIST [D] 22 50 

D SKIRMISH-80 895 

D TLDIS 13.55 

D UTILITY I 8 95 

D UTILITY II 895 

QUALITY SOFTWARE 

D DEBUG 13 55 

a F ASTGAMMON 1 7 95 

D LOWBALL POKER 10 45 

D BANKSHOT 8 95 

O POKER PETE 10 45 

D RUMMY MASTER 10 45 

D 3D TIC TAC TOE 13 55 

O QS LIGHT PEN 1795 

□ SKETCH 80 13.55 



PERSONAL SOFTWARE 

O CCA MGMT-TRS-80 85 00 

D MONTY MONOPOLY [D| 35 95 

□ ZORK |D) 35 95 

BIS FIVE SOFTWARE 

□ ATTACK FORCE 14 30 

□ GALAXY INVASION 14 30 

□ METEOR MISSION II. .. .14 30 

D SUPER NOVA 14 30 

D COSMIC FIGHTER 14 30 

APPARAT 

□ NEWDOS/80 2 125 00 

HAYDEN 

D SARGON II 25 00 

D SARGINII |D) 3000 

STRATE6IC SIMULATIONS 

D COMPUTER BISMARCK |D) 51 50 

D COMPUTER BISMARCK 42 00 

SUB-LOGIC 

D T80-FS1 FLIGHT SIMULATOR 22 00 

D 3D GRAPHICS 26 50 

MICROSOFT SOFTWARE 

D ADVENTURE |D) 25 50 

□ ASSEMBLY DEVELOPMENT |D) 80 00 

D BASIC COMPILER [D] 175 00 

P EDITOR/ASSEMBLER 25 00 

D FORTRAN COMPILER |D) 80 00 

a LEVEL III BASIC 44 00 

a MuMATH [D] 64 00 

D OLYMPIC DECATHALON (CASS OR DISK) . . 25 00 
D TYPING TUTOR 13 55 

SSM 

D LAZY WRITER |D) 1 12 50 

a CONQUEST 13 45 

□ DISASSEMBLER [C) 13 45 

D HANGMAN |C) 1 1 65 

D TAPE COPY 13.45 

TPG 

a DEATH DREADNAUGHT 13 45 

D DEATH DREADNAUGHT |D| 17 95 

□ DEADLY DUNGEON 13 45 

D OMNI TERM [D] 85 00 

O DRAGON QUEST 14 35 

□ DRAGON QUEST |D) 19 75 

D TRIPLE ADVENTURE |D) 3100 

SYNERGISTIC SOLAR 

D ACE 21 1795 

□ ANTS 13 45 

O LIFE 1345 

D PARSECTOR 17 95 

SPECTRAL 

D SPACE INVADERS (C) 19.75 

D METEROIDS |C1 19 75 

D SPACEWAR |C] 19 75 

D LIFE |C] 13 45 

D ETCH-A-SKETCH (C) 8.95 

D ARTILLERY |C) 7 25 

□ SPACE TRADERS [C| 13 45 

□ MAGIC BOX |C) 22 50 



Ship the above programs as checked to: 

Mr. /Mrs. 

Address 

City 

State Zip 



Number ot Programs Ordered .... 

Amount ot order 

N Y residents add Sales Tax 

Add shipping anywhere in the U S 
Total amount enclosed 



2.00 



I have a 



with 



Name ol Computer 



Charge my D Master Charge D Visa 
Signature 



K memory Card No 



Expires 



iMICRO-OCT '81 



Personal Checks please allow 3 weeks 



Mail to: 



\ 



TRS-80 is a registered trademark ot TANDY CORP 



\ Prices subject to change without notice. 
<N __ _ ^ 



DIGIBYTE SYSTEMS CORP. 

31 East 31st Street, New York, N.Y. 10016 
OUTSIDE NEW YORK CALL TOLL FREE (800) 221-3144 

IN NEW YORK CALL (212) 889-8975 



^226 



^S 



■ See List ol Advertisers on page 386 
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LSB. The screen will now display the 
opening hex bytes of Basic. This is 
machine language, and this is a machine 
language program that you are going to 
run. Type X (enter), and in response to the 
run/re-enter prompt, type 1 (enter). You 
will see your computer's sign on 
message— Memory Size? or MEM SIZE? 
for Model I; CASS? for Model III; Color 
Basic 1.0 or Extended Color Basic 1.0. 
Babybug has been crashed, and your 
computer looks like you just turned it on. 

Now reload Babybug (you did save it, 
right?), and run it. Respond to MSB and 
LSB with 70 and 00 (0E 00 on the Color 
Computer). Enter the bytes in Table 8 one 
at a time. 

Enter X. Now run this program by 
responding 1 to the prompt. Nothing? 
Begin to type. Letters are displayed on 
the screen, starting at the top left corner. 
But no, you are not in Basic. This is a 
machine-language program which (a) 
calls a Basic keyboard scan routine, (b) 
checks for the enter key— carriage return 
code 0D hex— returning to Basic if it 
finds it, and (c) puts the typed character 
in screen memory. 



You'll notice some interesting things 
when you begin typing with this routine. 
There is no cursor following the letters, 
since this program doesn't invoke a cur- 
sor display routine. Also, things like shift 
and shift lock (shift-0) produce odd 
characters on the Color Computer, and 
the backspace displays an H on all 
machines. 

Here's a look at the hex code and what 
it does. The Model I or III program loads 
register HL with screen address 3C00 (21 
00 3C), calls the ROM keyboard input 
routine (CD 2B 00), loops back to the 
keyboard routine if the value returned 
from the keyboard is zero (28 FB), com- 
pares to see if it is a carriage return (FE 
0D), returns to Basic if it is a carriage 
return (C8), otherwise puts the character 
on the screen (77), moves to the next 
screen position by incrementing HL (23), 
and loops back to do the whole thing over 
(C3 03 70). 

The Color Computer program loads the 
X register with the screen address 0400 
(8E 04 00), calls the Color ROM keyboard 
routine (BD A1 71), checks if the value is a 
carriage return (81 0D), jumps ahead one 



place if it isn't a carriage return (26 01), 
otherwise returns to Basic (39). When it 
jumps ahead with a character, it puts it in 
screen memory (A7 80), and loops back to 
do it again (7E 0E 03). 

The Z80 and the 6809E are different 
processors with unique properties; yet 
it's revealing to notice how similar these 
processes are, and even to compare 
them instruction-for- instruction. 
Although the hex codes are different, 
many of the properties are the same. 

You're tired of testing and want 
something substantial? That's up to you. 
I will be happy to publish interesting 
routines created in hex code, as well as 
some of your experiences in developing 
them in hex notation alone. (No cheating, 
assembly language users!). 

Updates 

Look for some minor corrections and 
suggestions to the high resolution 
graphics board for the Model I (The 
Detailer, July) in next month's issue. 

A printed circuit board is available for 
the Micro Front Panel (May). Write to me 
at Roxbury, Vermont 05669. ■ 



Combine accurate flight characteristics with the best in animation graphics 
and you'll have SubLOGIC's 

T80-FS1 night Simulator 

fortheTRS-80 



SubLOGICsT80-FS1 is the smooth, realistic 
simulator that gives you a real-time, 3-D, 
out-of-t he-cockpit view of flight. 

Thanks to fast animation and accurate repre- 
sentation of flight, the non-pilot can now learn 
basic flight control, including take-offs and 
landings! And experienced pilots will recog- 
nize how thoroughly they can explore the 
aircraft's characteristics. 

Once you ve acquired flight proficiency, 
you can engage in the exciting British Ace 
3-D Aerial Battle Game included in the 
package. Destroy the enemy s fuel depot 
while evading enemy fighters. 

Computer and aviation experts call the 
T80-FS1 a marvel of modern technology. 
You'll simply call it fantastic! 



Special Features: 

• 3 frame per second flicker free 
animation 

• Maximum transfer keyboard input 

• Constant feedback cassette loader 

Hardware Requirements: 

• Radio Shack TRS-80, Level 1 or 2 

• 16K memory 

• Nothing else! 



$ 



Only 



25 




See your dealer or order direct. For 
direct order, include $1.25 and specify 
UPS or first class mail. Illinois residents 
add 5% sales tax. Visa and Mastercard 
accepted. 








LOGIC 



Communications Corp. 
Box V, Savoy, I L 61874 
(217)359-8482 
Telex: 206995 ^150 
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SO ACCOUNTANT 



by Michael Tannenbaum C.P.A. 



"Of all software packages, 

a financial report preparation 

package can be most valuable. . . " 



Of all microcomputer software pack- 
ages available, a Financial Report 
preparation package can be the most 
valuable to an accountant. The use of a 
microcomputer system to prepare these 
reports can be an enormous time saver. 

Without a microcomputer report prepa- 
ration requires an enormous amount of ef- 
fort. First, a hand written report must be 
prepared and reviewed by the audit part- 
ner. Then a copy must be typed, proofed 
and compared to the original. Finally the 
whole report must pe subject to an in- 
dependent review. If a last minute change 
is required, the whole process of proofing 
must be repeated. Needless to say, the op- 
portunity for an embarrassing error to oc- 
cur is quite high. 

The alternative of using a microcom- 
puter to minimize this risk has been the 
root of the many requests I have received 
for information about report preparation 
systems. However, all the reports I have 
seen were part of General Ledger pack- 
ages and were limited to an income state- 
ment and balance sheet. Reports such as 
the Statement of Retained Earnings, 
Changes in Financial Position, Analysis 
of Changes in Working Capital and Cash 
Flow Statement were missing. These 
reports are required to conform to profes- 
sional standards. 

Since the report is often used by third 
parties the standards of disclosure are 
higher than reports prepared for internal 
use. As a result, the reporting system 
must accommodate data such as foot- 
notes where explanations of complex 
transactions or accounting policies must 
be presented. Although summary data 
may be adequate for outsiders, many 
clients require detailed financial reports 
for their own use. Thus many accountants 
prepare, in addition to summary reports, 
detailed departmental and comparative 
reports. These supplementary reports are 
usually presented in an appendix to the 
main reports. 

New General Ledger System 

The new three-disk General Ledger 
system (#26-4601) has been designed to 
cope with the problems of the profes- 
sional and yet be usable in a small busi- 



ness environment. The ledger is designed 
to integrate with the other three disk 
systems, Accounts Receivable (#26-4604), 
Accounts Payable (#26-4605), and Payroll 
(#26-4603). If these other systems are 
used, summary data can be transferred at 
the month's end without the need for 
manual journal entries. The system has 
the capacity to handle up to 400 general 
ledger accounts and 4300 year-to-date 
transactions. 

It is supplied on seven disks, three of 
which contain programs, and four data 
files. Two of the data files contain a sam- 
ple general ledger with all accounts and 
reports previously defined. These sample 
data files are intended to provide a prac- 
tice set for the owner of the system to use 
and become acquainted with. They are 
quite useful. The procedures to define ac- 
counts and output reports are compli- 
cated and the examples of data files that 
already work are helpful for reference 
purposes. 

The program disks are arranged so that 
file maintenance programs are contained 
on program disk two and data entry pro- 
grams are contained on disk one. This pro- 
vides a sound method for separating file 
maintenance and up-date functions for 
general ledger processing. If these func- 
tions are separated, proper internal con- 
trol over the ledger should be established. 

Once a decision is made to automate 
general ledger processing, serious 
thought should be given to the arrange- 
ment of the output reports and the con- 
tent of the financial statements prior to 
setup. Once installed, changes will be 
quite painful. The system contains an 
enormous amount of data. Balances are 
retained for each prior account and bud- 
geted data by financial period. Thus, 
changes will involve shuffling lots of data. 

File Setup 

After the content and presentation of 
the financial reports has been deter- 
mined, preparation and input of master 
file data can proceed. To aid in this pro- 
cess, the accompanying documentation 
devotes a good deal of space to file setup. 
I recommend that you read it several 
times before attempting the setup pro- 



cedure. As with the accounts receivable 
system, an error in selecting an option in 
the initial files can cause a problem later 
on. The system uses decisions made 
when setting up the initial files to guide 
the setup procedure on the account and 
report files. For example, if a negative 
answer is made to the G/L cost center 
question on the company file mainte- 
nance screen, departmental reporting is 
inhibited and only a four digit account 
number is permitted. 

Written in Cobol 

The system is written in Cobol and like 
the other Cobol systems does not have 
full cursor controlled data entry screens. 
If an error is noticed in a data line after 
Enter has been pressed, the entire screen 
must be completed before corrections 
can be made. This feature and the strange 
assignment of special function keys will 
take some time to become familiar with, 
the Tab, ESC and F1 and F2 are used as 
special function keys. Tab is used to end a 
program and ESC is used to restart data 
entry in a field. F1 and F2 may have dif- 
ferent functions depending on the pro- 
gram in use. Unfortunately not all of the 
screens indicate the operation of these 
special keys so you just have to remember 
what does what and when. While this is in- 
convenient, the other benefits of the sys- 
tem far outweigh this difficulty and all of 
the other three disk systems use the same 
conventions. 

Report Generator 

The key factor that distinguishes this 
system from all others that I have seen is 
the report generator. The report generator 
accommodates five types of statement 
formats and allows a great deal of cus- 
tomization. The reporting format types in- 
clude the balance sheet, profit and loss 
statement, cash flow, statement of 
changes in financial position and analysis 
of changes in working capital. The differ- 
ent format types limit the column head- 
ings and ratio analysis options available 
but otherwise allow freedom over account 
combinations and presentations. 

The means of implementing each for- 
mat is found in the financial statement 
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layout procedures. The layout is accom- 
plished by creating a data file with a de- 
scription of the form. To provide instruc- 
tions to the printing program a special 
syntax is employed. The instructions are 
arranged in sequential order and are ex- 
ecuted in the same manner as a Basic pro- 
gram. Although the report specification 
procedures are complicated, the sample 
report specifications included in the sam- 
ple data files can be referenced as a 
guide. By comparing these specifications 
with the printed reports the use of each 
type of report syntax will become clear. 

In concept and implementation, the 
report preparation procedures are similar 
to commercial general ledger systems. 
Vendors of these systems, which usually 
cost many times more than the Radio 
Shack system, train customers in use of 
report generators in special classes. 
Typically class time ranges from a week to 
several days. 

Running the sample forms will give you 
some idea of the report preparation poten- 
tial of this system. Nine sample formats 
are provided ranging from a balance sheet 
to profit and loss reports. These formats 
can be combined with the data in a variety 
of ways. For example, a balance sheet can 
be prepared with and without comparative 
information. The comparative data can 
either be a budget or the prior year's end 
of month balances. The same format can 
be used for either type of comparative 
data. As a result more than nine output re- 
ports can be generated with the nine 
formats. 

When printing these reports the system 
allows printing in any sequence desired. 
The sequence must be previously defined. 
This has an important advantage. If a 
summary set of reports and supporting 
schedules is required, then the whole set 
can be printed before any other printing is 
scheduled. Since the distribution of sum- 
mary and detailed reports is usually quite 
different, this method of setting up a print- 
ing "job command language" for se- 
quencing printed reports will be most 
appreciated. 

Be prepared for a slow printing process. 
During the program evaluation process it 
took almost half an hour to print twelve 
reports with the limited sample data. 
While the computer is assembling the 
data, it appears to go to sleep. The screen 
indicates that processing is occurring and 
occasionally the drives are accessed but 
not much else is visible. The actual print- 
ing is also quite slow. The computer must 
do a great deal of processing since there 
is a rather long pause between lines. 

However, the resulting reports are worth 
the wait. They reflect many thoughtful 



features which will be appreciated by the 
professional user. Account numbers are 
not printed. Dollar signs are inserted and 
foot notes are printed. A useful feature is 
the elimination of minus signs. In many 
reporting systems credits are identified by 
a minus or "cr" sign. In this system, if the 
balance is normally a credit or debit it is 
printed without a sign. If the balance is 
reversed, then the amount is printed with 
a parenthesis around it. This treatment 
conforms to normal practice for manual 
systems. 

The system provides for the inclusion of 
text files. In the sample data only one text 
file is included— a disclaimer; however, up 
to 99 different files each with a maximum 
of 23 lines of textual data can be accom- 
modated. This feature is ideal for an opin- 
ion, footnotes, segment reports and any 
other type of detail which must be ap- 
pended to professionally prepared finan- 
cial statements. Once a text file is created 
it is printed as specified by the statement 
layout description. There is no reason why 
text file two cannot be printed before text 
file one. This will be a big help to those 
who cannot decide the order of footnotes 
until the last possible moment. 

Of course the source of all financial 
data for the reports is contained in the ac- 
count files of the system. If departmental 
reporting is to be used these files will be 
quite extensive. When building the files, 
every bit of historical and budget informa- 
tion that will be required on the financial 
reports must be entered. This will be quite 
a considerable undertaking. There is a 
provision to enter budget and prior year 
month end balances for thirteen periods. 
Once all balances are 1 entered, the final 
amount for the prior year's activity can be 
established as the opening balance for 
the current year's activity. This is done by 
running a special program appropriately 
called Setup. 

Monthly activity is obtained from three 
sources: standard journal entries, general 
journal entries and other three-disk 
systems. The standard journal entries or 
recurring entries are sub-divided into two 
types, permanent and variable. Perma- 
nent entries are always the same amount 
and variable entries change each month. 
These entries, once defined, can be 
posted each month at the will of the sys- 
tem operator. If required, an automatic re- 
versal entry can be specified. If that is 
done, the system will automatically gener- 
ate the required reversing entries at the 
beginning of the next fiscal period. 

Data entry from other three-disk inte- 
grated systems is accomplished by use of 
a transfer disk. Amounts to be transferred 
are extracted by a special interface pro- 



gram which offers the option of a transfer 
of details or the summary data for each 
account affected. We did not examine the 
transfer system during the evaluation pro- 
cess. 

Data Entry 

If the superior financial reports repre- 
sent the good news, data entry can be 
considered the bad news. If data is to be 
entered through the general journal sub- 
system be prepared for slow data entry. 
Once the account number is entered, a 
two step procedure, the transaction date, 
amount, source, reference and reversal 
code must be entered. To reduce data en- 
try time the system provides as default 
values prior data entered for the date, 
source and reference fields. 

Obviously data for the system is best 
obtained through transfer from the other 
three disk systems. This condition should 
be easy to satisfy in a commercial en- 
vironment where the other systems will be 
installed. However, in an environment 
where the accountant "writes up the 
books" on a monthly or annual basis a 
quicker method of data entry should be 
developed. 

The slow speed of data entry is 
matched by the slow transfers from pro- 
gram to program. When a new option is 
selected on a menu, a caption appears on 
the screen— "Please Wait." After disk ac- 
cess, the selected program appears on 
the screen. If an error Is made, a slow 
return to the main menu occurs and a slow 
selection of the new program is required. 
An examination of the disk directory pro- 
vides a clue to this ponderous behavior. 
The system is segmented into many small 
programs which obviously take time to 
get in place to execute system functions. 

This system, like the accounts receiv- 
able system, cries for a hard disk. If disk 
access times were quicker the system 
would be much more responsive. I sus- 
pect that when this system is installed in 
a more congenial environment than the 
floppy system it will behave with more 
alacrity. The floppy system also limits 
system capacity. In this system drive one 
is devoted to the five most frequently ac- 
cessed files in the system. Only drive two 
is available for transaction data. 

To increase the storage room available 
for transactions, it is possible to "com- 
press" data already on file. To understand 
the process, consider that an account like 
wages could contain daily information 
from a variety of sources, weekly informa- 
tion and monthly information. Until in- 
structed to "compress" the data, the sys- 
tem will retain all detail. The system offers 
the optionof compressing data by date or 
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by period. If compression by date is 
selected, all activity for a day will be con- 
solidated. Debits will be offset against 
credits and the net result reflected in the 
account. If the debits and credits offset, 
no entry will be reflected in the account. If 
compression is by period, only the net ac- 
tivity for the period will be reflected in the 
account. 
Compression 

Compression should be used with care. 
Once data is compressed a cross refer- 
ence back to the original journal entry will 
be impossible. Probably a good method 
for retaining data for cross reference pur- 
poses will be to retain a backup prior to 
the compression procedure. Then, should 
a question occur, the cross reference run 
can be performed on the backup disk to 
locate the problem. 

Documentation 

Documentation for this system is pro- 



vided in a large binder similar to the Ac- 
counts Receivable system. Index tabs 
divide each section. These tabs make us- 
ing the documentation considerably 
easier than other Radio Shack offerings. 
Unfortunately the tabs have only para- 
graph numbers rather than descriptive 
names. This made referral to the index 
mandatory before a section could be se- 
lected. Hopefully this will be corrected in 
future releases. I found the documenta- 
tion complete and informative. It included 
a section on general ledger concepts and 
contained two appendices on data files 
and handling inventory. With the docu- 
mentation in hand, I found no difficulty in 
using the system. 

In summary, if the account and transac- 
tion capacity do not disqualify this 
system, this package should be ideal for a 
practitioner with write up work. If the client 
can be induced to use the Model II for ac- 
counts payable and billing, data entry 



should be minimized. The General Ledger 
report generator will provide all of the re- 
quired reports. Even if month end activity 
posted in the general journal is the sole 
source of data, the system will be useful. 
After all the financial reports are the pro- 
fessional's product and this system 
makes report preparation easy. 

For the non-professional, the ability of 
the system to generate complex financial 
reports will be less important. However, 
because the system can generate depart- 
mental reports with comparatives and 
budgets, much valuable management in- 
formation can be presented. In addition, 
the ability of the system to retain up to 
4300 detailed transactions will be quite 
useful in tracking financial irregularities 
which could appear on the detailed 
reports. 

This is indeed "big" system software at 
a micro price. I look forward to the next 
module in the "three disk" Cobol series. ■ 
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our station is listening for any queries. 
When some amateur station comes on 
frequency and sends, say, an "M?" our 
station would automatically respond with 
a menu of the available bulletin board 
materials. The other station would then 
choose one item from the list and request 
it. . . "7." Our station would then supply 
the number seven item, which might be 
the latest in DX news, complete with a list 
of the stations active from rare countries, 
their frequencies, where to send confirma- 
tions of the contact, and so on. 

Or we might send out a list of the latest 
FCC dockets affecting amateur radio or 
other recent FCC news. We could have a 
list of the traffic networks for handling 
messages, the recent repeater station 
changes, lists of other special interest 
nets, their times and frequencies, propa- 
gation predictions, a list of scheduled 
hamfests and conventions, new awards, 
and so on. There is a long list of informa- 
tion that hams might want to get and it 
would be available for the asking. 

The plan will start out with 300 baud 
transmission, but soon revert to 1200 
baud. We're going to encourage the ex- 
perimentation with 9600 baud transmis- 
sions, since that would allow the transfer 
of information at around 7300 words per 
minute. At that speed we might be able to 
get most messages in between the dots of 
jamming CW stations! 

The next step would be to develop 



automatic message relaying stations so 
that ham messages could be sent any- 
where in the country in seconds. Imagine 
being able to drop a message to someone 
asking for a schedule in a few minutes on 
twenty meters! Where this would really 
come into its own would be during 
emergencies, when all the emergency 
traffic could be sent via automated 
means. Thus a ham could merely type the 
message on a small computer system, 
like the Radio Shack Pocket Computer, 
and it would be transferred to a central 
station for relaying to the ad- 
dressee—much as Federal Express flies 
all packages to one city for sorting and 
reshipplng the next day. 

Emergency nets would then be set up 
with the control station polling each sta- 
tion in the net every few seconds, looking 
for messages. When the station had one, 
the polling would trigger sending the 
message. In this way no two stations 
would be transmitting at the same time. 
The message received, polling would con- 
tinue. 

We will need to develop error-correcting 
systems so that all messages are received 
perfectly. 80 is open for any ideas or ar- 
ticles along this line.B 



The Third World 

A recent visit to the small Caribbean 
island of St. Lucia brought home to 
me the need for some sort of education for 
deserving people from the smaller coun- 
tries of the world. The U.S. used to have 
the Point Four program, but that is long 



gone. Today, most of these students 
either have to make do with a poor educa- 
tion at home or else go to Russia or Cuba, 
where they are taught more politics than 
college. 

Could we develop our proposed micro- 
computer school to the size where it could 
handle students from a hundred small 
countries? How would this be financed? 
Our government is trying to do all it can to 
stop spending, so they really don't need a 
new way to invest, even though it would be 
about the least expensive investment they 
could make, in the long run. These stu- 
dents are willing to work hard, not only at 
school, but also at part time work to get an 
education. I'll be visiting some more small 
countries in the next couple of weeks and 
will see what I can find in the way of an- 
swers to this problem. I'll be stopping off in 
Rio to set up plans for a South American 
edition of Microcomputing. Then Sherry 
and I will be off to South Africa to attend a 
microcomputer exposition in Johannes- 
berg, where I'm a speaker. We'll be visiting 
Swaziland and Lesotho, two very small 
nearby countries, where ham licenses and 
stations for me to operate have been ar- 
ranged. I'll be talking with the local hams 
and looking for ideas for practical ways to 
get Third World students the education 
they need. Indeed, their countries have a 
desperate need for skilled electronics and 
communications people. 

Meanwhile, I will be dreaming about a 
college campus in New Hampshire, with 
modern buildings, heated mostly by solar 
heat, and surrounded by a couple hundred 
entrepreneurs and their growing electron- 
ics and computer businesses.! 
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You can try to design algorithms to emulate 

human behavior, or you can try to explain 

human behavior in terms of machines." 



At SI, Machines Imitate Humans 



The phrase 'artificial intelligence' 
summons up science fiction images 
of super-giant mainframe computers 
achieving sentience by sheer power and 
leading a revolt of the Moon colony 
against the government of Earth. 

The truth is actually much stranger. At 
the Artificial Intelligence Laboratory at 
SI International .(formerly Stanford Re- 



search Institute), Stanford, CA, one of 
the world leaders in this research, no 
huge light-blinking machine is achieving 
sentience. Rather, researchers use 
Digital Equipment Co. (DEC) PDP-10 com- 
puters programmed in Lisp to model 
aspects of human behavior. 

Chuck Untulis, assistant director of SI 
International, stated that the PDP series 



Students Learn Psychology 
From Artificial Intelligence 



While most people are interested 
in Artificial Intelligence for its prac- 
tical applications in the computer field, at 
least one other use has been found. Dr. 
Homer "Tony" Stavely, a psychology pro- 
fessor at Keene State College in Keene, 
NH, is teaching a course using Al as a tool 
to illustrate some principles of 
psychology. 

"Computers and Thought," as it is ti- 
tled, will emphasize the "use of comput- 
ers to simulate psychological processes," 
according to the course catalog. The 
course will also review early Al research 
as well as theory. Students will discuss 
the current state of the art and the possi- 
ble future of Al. Textbooks will include Ar- 
tificial Intelligence by Patrick Henry 
Winston and Machines Who Think by 
Pamela McCorduk. 

Stavely, who has had an active interest 
in computers for several years, believes 
that there is a similarity between the 
thinking process of a computer. Though 
he concedes there are some obvious great 
differences, he said, "in the fundamentals 
of information processing, it doesn't mat- 
ter if it is a machine or an organism. . . 
(there are) probably similar principles." 

Stavely makes a convincing argument 
for using Al in teaching psychology. "The 
study of psychology is the behavioral rela- 
tionship between organisms and their en- 
viroment," he said. This "transactional re- 



lationship" produces behavior guided by 
the intake of information. "Al attempts to 
program machines to process informa- 
tion in ways which approximate the so- 
phistication of (human) information pro- 
cessing," Stavely said. 

There are three goals that Stavely has 
set up for his students to achieve. He 
wants to increase their understanding of 
the nature of perception and thought; to 
demonstrate that computers are tools to 
aid in their thinking; and to show that 
computers are inportant as a simulation 
device. This last goal emphasizes the use 
of a computer to set up a hypothetical sit- 
uation to "see what happens if . . ." 

Stavely sees Al programming giving 
computers some ability to perceive prob- 
lems, organize and remember informa- 
tion and, ultimately, write programs on 
their own to control their databases. 

The future of Al is promising, Stavely 
believes, especially in the educational 
field. He said that hardware capabilities 
far outstrip the capabilities of the soft- 
ware that has been produced. He thinks 
that Al may be the answer to this software 
problem. "Al is the area in which we are 
learning the software skills to bring about 
advances in using computers as tools to 
think with," he said. ■ 

by Michael Nadeau 
80 Microcomputing staff 



is the standard machine in artificial in- 
telligence research because it is de- 
signed for interactive work. "The IBMs 
are all batch process," he explained, 
"and the super-giants are just big scien- 
tific number crunchers." 

SI approaches artificial intelligence 
from the computational or computer 
side. "You can try to design algorithms 
to emulate human behavior, or you can 
try to explain human behavior in terms of 
machines. We take a look at the way 
people behave in the world and try to 
emulate that behavior." 

Although they do this entirely with 
software, they would like to have some 
specialized hardware. 

"We keep talking to anyone who will 
listen about what we want in hardware," 
he stated. "Unfortunately, we're a pretty 
small organization, and none of the big 
companies listen, so we end up buying 
from the small firms." 

Hard to Define 

Untulis sees artificial intelligence 
research as going in several directions, 
but finds it very hard to define goals or 
even talk about the research because the 
concepts are so new the language has 
not adapted to it yet. 

"We really don't know what artificial 
intelligence is, so there's no way we can 
define what our goal is. In the more tradi- 
tional areas of science you can define 
your goal, and you know the methods you 
will use because they are all established. 
We work with concepts nobody has used 
before, and we're not sure how to talk 
about them, much less how to define our 
goals." 

Many labs are heavily researching 
distributed intelligence. This concept 
postulates a large number of intelligent 
machines in independent operation in 
various parts of the world. Because of 
distance, different design and different 
use, they would have different informa- 
tion. One machine might have more up- 
to-date knowledge on a given subject 
than another. 
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You've Cot 

TOTAL ACCESS 



=• 



( specializing in TRS80 *) 



Rose 



s 



TO YOUR COMPUTER HARDWARE & SOFTWARE 
NEEDS. CALL ROSE TODAY! 



I've Cot 

• Disk Drives 

TA400 ( 40-T ) $289 

TA 800 ( 80-T ) $41 9 

TA400 Flippy $319 

TA800 Flippy $439 

All with silver case and 
power supply 

* CABLES 

2-Drlve $23.95 

4-Drlve $33.95 

Extender Cable $14.95 

• BARE DRIVES 

TA400B $259 

TA800B $389 

TA400B Flippy $289 

TA800B Flippy $409 

* EPSON PRINTERS 

MX70 $379.00 

MX80 $475.00 

MX80 F/T $589.00 

MX100 $799.00 

parallel cables $29.95 

• Delivery slow on some models 

* OPERATING SYSTEMS 

TRSDOS 2.3 Disk & Manual ...$17.95 

LDOS $129.95 

NEWDOS/80 $129.95 

DOSPLUS 3.3, 3.3D $89.95 

* IRON 

Disk Drive Power Supply, 

Single $37 

Disk Drive case (silver) 

and Base $19 

Memorex Diskettes ( bx of 10 ) 
$25 

90 day warranty on drives. Add $5.00 freight per 
drive In cont US. UPS COD charge $1.40. There is 
also a 15 day free trial on ta drives, if not com- 
ptttery satisfied I'll refund your money ( less ship- 
ping ). ill take exception to improper use or 
mtsnancwng 

• USERS CROUPS 

When your club makes a group buy, 
be sure to call me for a price. 
Rose 

TRS80 * COMPUTERS 
•COMPUTERS 

26-1061 Mod III, LI, 4K $595 

26-1062 Mod III, III, 16K. $850 

26-1063 Mod III, 32K/2 DISk/RS232 

$2150 

264002 Mod II, 64K. $3300 

26-3001 Color Computer, 4K. . . $330 
26-3002 Color Computer, 16K. . $510 
26-3501 Pocket Computer $212 

• DISK EXPANSION, MOD II 

26-4160 One Disk $977 

26-4162 Three Disk. $1998 

lobo drive units also available. 



• PERIPHERALS 

26-1140 0K Exp. interface $255 

26-1141 16k Exp. interface $305 

26-1142 32k Exp. interface $355 

26-1172 D.C. Modem II $135 

26-1206 CTR-80 Recorder $51 

26-3503 P.C. interface $42 

♦ PRINTERS 

26-1165 Line Printer v $1581 

26-1166 Line Printer VI $986 

26-1158 Daisy Wheel II $1694* 

• LIMITED AVAILABILITY 



The complete line of Radio Shack 
products Is available through ta 
with standard RS limited warran- 
ty, call me for price and delivery. 
Just cause you don't see It, don't 
mean we ain't got It. 

ROSE 



* SOFTWARE 

We have Adventure, Big 5, Circle J, 
Med Systems, SBSC, snapp, Radio 
Shack and much more, call or write. 
DO IT NOWI 



ROSES 
SPECIAL 
OF THE 
MONTH 

* AEROCOMPS • 

ALL NEW 

double density 
controller 

ddc" $149.95 

Here's a Double Density controller for 
Mod. 1 that does away with all those data 
separation problems that seem to keep 
cropping up! Rose wouldn't fun ya now, 
would she? Don't be scared of Double 
Density any more AEROCOMP has design- 
ed some advanced circuitry that even I 
don't understand - but I do know it 
works. Better order now. Quanities are 
going to be a bit short. 

$189.95 complete 

with Dosplus 3.3D. 

how many do you 

want? 12? 



ROSe'S T-SHIRTS 

With any order of $1,000.00 or 
more, I'll send you one of my 

"MINI-FLOPPY" T-ShlrtSt 

STARWRITER 

DAISY WHEEL PRINTER 

45 character per second letter quality 
printer from C. itoh. A Texas Treasure 

at $1779.00 

parallel cable $29.95 

(FREICHT EXTRA) 

DRIVE TABS 

Disk drives need Identity! no more 
that drivel Make em be somebody 
- call em 0, 1, 2 and 3. They'll never 
forget ya! 

set of 4 $4.50 

Set Of 2 $2.75 

ORDER NOW! 
TOLL FREE 
800-527-3582 

write or call Rose toll free at 
1-800-527-3582 (Texas residents call 
214-234-1770). Please use the toll 
free lines for orders and literature 
requests only. Technical help or ser- 
vice use the Texas line. You can pay 
by VISA or MASTERCARD, you can 
send check or money order (allow a 
couple of weeks for personal checks 
to clear) or order COD (we ship cods 
cash, certified check or money 
order only). Rose will take American 
money in Just about any form. Add 
freight (UPS where possible) on all 
orders under $1000. If you buy 
$1000 or more Rose eats the freight! 
Texas residents cough up 5% sales 
tax. Allow 2-4 weeks for delivery. 
Order today - 1 need the moneyl 



TOTAL ACCESS 

P.O. BOX 3002 
RICHARDSON, TX 75080 



214-234-1770 

• TRS80 & Radio Shack are trademarks of 
Tandy Corp. 

Copyright 1981 TOTAL ACCESS 
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TOACC/23 
TOACC1/24 



-See List ol Advertisers on page 386 



80 Microcomputing, October 1981 • 69 



#? NEWS 



If, then, one machine asks another a 
question and receives data back in 
answer, how does the first machine han- 
dle the data it receives? 

"You get into the whole question of 
belief structures. Each machine has a 
belief of what the world is, and that belief 
might be inaccurate." The question is 
how these belief structures are modeled, 
limited and changed. 

Expert Systems 

Another area of artificial intelligence 
is rule, or expert, systems, in which 
researchers preserve and communicate 
to others the special understanding of an 
expert (an Einstein, for instance). 

The hope is to capture the expert's 
world view in a finite number of data 
statements to quantify it. "You do that 
with a set of rules which set up a model 
which can be given data or asked 
questions." 

Another area involves designing pro- 
grams that will handle normal language, 
either in the form of keyboard input or, 
further down the road, verbal input. The 
goal is to eliminate the need for program- 
ming languages to communicate with 
the computer. The businessman could 
talk with his machine just as he can with 
a human employee; if he needs to know 
how many widgets he has in St. Louis, all 
he has to do is ask. The computer will 
decide what data bank to query and ex- 
actly what piece of information is 
wanted. 
Vision Input 

Vision research is another area in 
which SI International is active. Humans 
have a very high talent for interpreting 
visual data; it is difficult to approximate 
that ability with a machine. SI is develop- 
ing programs which allow the computer 
to digitalize a picture and not only 
understand the literal data but draw con- 
clusions from clues. 

For instance, they would like the 
machine to locate a hidden light source 
from such clues as the size and place- 
ment of shadows. It then should be able 
to describe the expected reflectivity of 
objects from the inferred position of the 
light source. 

One goal of artificial research is the 
self-programming computer, the 
machine which can decide for itself how 
to go about doing something and change 
its ideas on the basis of experience. Ac- 
cording to Untulis, SI is working on the 
theoretical end of this question by 
designing theorem-provers. These are 
methods whereby a machine, given an 
idea or theory, can experiment to deter- 
mine whether the theory is correct. If it is 
not, the machine will modify it to fit the 



experimental data, much as a scientist 
works in a lab. 

A Question of Difference 

All of this involves one of the basic 
questions of artificial intelligence: Is it 
qualitatively different from human in- 
telligence or does it only appear to be dif- 
ferent at this stage because it is so 
primitive? 

Computers are famous for their ability 
to instantly memorize and manipulate 
huge lists of items. Humans cannot do 
this nearly as quickly or as well. Yet, 
machines cannot make decisions on 
their own— humans have to tell them 
precisely what should be done with their 
data. 

The answer, Untulis explained, 
"depends on whether you are talking on 
the short run or the long run. If you are 
talking on the short run, then it is both 
qualitatively and quantitatively different. 
If you are talking about the long run, then 
it is not." However, the long run probably 
means anywhere from 200 to 1 ,000 years. 

Researchers are presently working 
with limited domains, try to construct 
algorithms that emulate human be- 
havior, while dealing with general prob- 
lems in a theoretical manner. 

So why is this in a magazine on micro- 
computers? What relevance does it have 
for the TRS-80 user? 

Cognitive Science 

The research into artificial intelligence 
falls under cognitive science, a new 
branch of science that includes aspects 
of both computer science and psy- 
chology. The fallout from the research in 
this area is likely to influence the design 
of the machines we will be using as well 
as our concepts of ourselves in the 1990s 
and beyond. 

Untulis mentioned he sees a couple of 
areas in which artificial intelligence 
research may soon be influencing soft- 



ware design, although he cautioned that 
the issues are far from clear. 

One area in which machines can do a 
better job than humans is very large- 
scale integration in, for instance, circuit 
design. One company is trying to adapt 
planning and deduction methods worked 
out at SI International for multiple-level 
planning to this sort of operation. 

In multiple-level planning the machine 
works on an abstraction ladder. It starts 
at the top, forming a very generalized 
plan, or, in this case, circuit design con- 
cept. It then moves down a step and 
makes a more particularized design con- 
cept based on its generalized work. In 
this way it works from step to step 
towards the actual design of the circuit. 

"The hope is 

to capture the expert's 

world view in a finite 

number of data 

statements. . . " 

If its tests show that the most recent plan 
is faulty, it moves back up the ladder to 
more generalized plans and refines its 
steps. 

Visual interpretation would also be 
very handy for a machine that designs or 
tests circuits using this multiple plan- 
ning method. 

"All these things go hand-in-hand," 
Untulis told us. "We want the machine to 
keep track of the errors we make in 
designing one circuit, for instance, so it 
will be able to warn us if we start to 
repeat them in the next circuit design." 

These ideas may be used in the future 
but they will not be here tomorrow. 

"The things we're talking about are 10 
to 20 years from fruition. We're just think- 
ing about these things today." ■ 



Radio Shack, Ohio Publisher 
Plan Joint School Market Assault 



Tandy/Radio Shack, Fort Worth, TX, 
and South-Western Publishing Co., 
Cincinnati, OH, a leading business 
education and business administration 
publisher, will work together to develop 
and market educational courseware for 
TRS-80 microcomputers. 

According to William D. Gattis, direc- 
tor of Radio Shack's Education Division, 
South-Western will help Tandy in the 
development and marketing of programs 
for Models I and III, and Radio Shack, 



in return, will provide computers for 
demonstrations and displays by South- 
western at major educational shows and 
conventions. 

Radio Shack will also develop special 
software protection features for the 
Model I similar to those already available 
for the Model III, to prevent unauthorized 
copying of South-Western's software. 

South-Western is a subsidiary of SFN, 
Chicago, IL, a large elementary and high 
school education publisher.B 
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Microcomputers Enter Medicine 



Computers have been used by the 
medical community for nearly two 
decades. In May of 1980, Modern 
Healthcare reported that community 
hospitals spent more than 1.25 billion 
dollars a year on computerized business 
and medical information systems. The 
Journal Of The American Medical 
Association found, in its report on 
"Computers in Medicine" (Dec. 1978), that 
computers were being used routinely in 
hospital laboratories, radiology depart- 
ments, emergency rooms and phar- 
macies. Not only were computers main- 
taining patient charts and billing 
records, they were also capable of such 
high level tasks as predicting the proba- 
bility of gangrene infections in appen- 
dicitis victims. 

Since their widespread introduction 
four years ago, microcomputers have 
also begun to have an impact on the 
practice of medicine. The vast majority 
of physicians who use microcomputers 
are primarily interested in office manage- 
ment, but according to Gene Thompson 
of Thompson Consultants, Seattle, WA, 
"Thirty percent of the doctors who have 
been exposed to microcomputers are 
learning to program." 

This is because doctors appreciate the 
potential of the microcomputer and 
realize they themselves "will create the 
applications— once they learn to pro- 
gram," says Thompson. 

Hospitals are using microcomputers 
in increasing numbers to handle 
specialized tasks. Many such tasks 
could be performed on hospital main- 
frame computers but this creates a 
number of problems— timesharing limits 
accessibility, new software is extremely 
costly for mainframe computers and set- 
up procedures are costly. With a 
microcomputer in the lab to calculate 
blood gases or in the pharmacy to assist 
in the preparation of prescriptions, 
hospitals can greatly improve efficiency 
without a large financial investment. 

"One hospital I know of uses a 
microcomputer to calculate hormone 
balances, others are using them to do 
small office tasks, and one pathologist 
uses a text editing program and a micro 
to keep notes on patients," said Thomp- 
son. "Micros are especially useful for 
recording and tabulating laboratory pro- 
tocols, which are the results of visual 
tests and inspections in fields like 
bacteriology and microbiology." Thomp- 
son speculates that microcomputer use 
in medicine will continue to grow and 



that software exchange among physi- 
cians will become a common practice. 

There is^a precedent for this kind of 
software exchange. Robert Kinch of the 
Forsyth Memorial Hospital in Winston- 
Salem, NC, is the President of ECHO, an 
IBM users group whose members are 
hospitals and doctors. This group ex- 
changes software across the entire spec- 
trum of medical related applications, in- 
cluding ambulatory care, clinical 
management, census management and 
laboratory/pharmacy use. There is a 
similar group for microcomputer users 
as well as several medically-oriented 
try. These bulletin boards will likely play a 
key role in the development of physician's 
key role in the development of physicians 
user's groups. 

Commercially produced software is 
also available. Radio Shack sells a 
Medical Office System package for use 
with the TRS-80 Models I and III. Dr. Larry 
Stoneburner runs MedLogic Systems, a 
Los Angeles, CA, firm selling software 
for both administrative and medical ap- 
plications. 

Thompson, however, thinks most doc- 
tors are "skeptical about prepackaged 
software." Hence, many physicians are 
becoming programmers. 

One example of the way a microcom- 
puter can make a hospital more efficient 
is the General Hospital in Ventura, Calif. 
As reported in The Journal Of Family 
Practice (Vol. 11, No. 4), the hospital's 
resident doctors were tying up phone 
lines to the outpatient clinic with con- 
stant checks to see if their patients had 
arrived, when their next appointment 
was scheduled and the like. With 35 
physicians using the clinic, the load 
became hard to manage. The solution 
proved to be a microcomputer. 



The hospital had a closed-circuit 
television system already in place. It was 
a simple matter to patch the microcom- 
puter into that closed circuit system. The 
outpatient schedule could then be 
entered into the computer by a secretary 
and displayed throughout the hospital 
on a regular basis. The software was 
designed to permit not only a display of 
the clinic's schedule, but also to indicate 
whether a patient had arrived for his 
scheduled appointment. 

The physicians were able to conduct 
their rounds in the hospital while pe- 
riodically consulting the televised out- 
patient schedule to find out when they 
needed to be in the clinic to see a patient. 
This system cut down on the volume of 
doctor's telephone calls to the clinic by 
40 percent in the first four weeks of 
operation. The physicians involved over- 
whelmingly approved of the system. 

Still, while microcomputers are catch- 
ing on with the medical community, 
some doctors and administrators harbor 
reservations about system capability. 
The Canadian Medical Association's Ex- 
ecutive Secretary, writing in the March 
22, 1980 issue of the CM A Journal, stated 
flatly that microcomputers were too 
small and too unreliable for use in 
medical practice. B. E. Freamo cautioned 
physicians to wait to see if good soft- 
ware was developed and to demand that 
hardware vendors provide service con- 
tracts as a condition of sale. 

In spite of these kinds of cautions and 
what Gene Thompson calls the "innate 
conservatism of physicians," don't be 
surprised if you see a TRS-80 in your doc- 
tor's office sometime in the near 
future. ■ 

by G. Michael Vose 
80 Microcomputing Staff 



Medical Journals Cover Computers 



As if doctors didn't already have 
enough literature to keep up with, 
there are now several publications cir- 
culating information about clinical uses 
of microcomputers. There is a nation- 
wide, general purpose publication called 
National Report: Computers And Health; 
there are general information exchange 
newsletters such as Dr. Com Puter's 
Report and the Apple Mug Newsletter; 
and various specialty newsletters for 
dentists and psychologists. 

Most of these publications are con- 
cerned with one thing— finding out 



who's doing what and how to contact 
them. The name of the game is informa- 
tion exchange. There is apparently no 
greater consumer of information than 
medical doctors. 

In February Dr. Larry Stoneburner of 
Orange, CA started a newsletter as a 
method of information exchange among 
the Apple Medical User's Group. Called 
the Apple Mug Newsletter, the publica- 
tion has grown from five subscribers to 
its present 400, in just five months. Apple 
Mug is a member of the International 
Apple Core, an international organiza- 



80 Microcomputing, October 1981 • 71 



SO NEWS 



tion of Apple Computer Clubs. 

The Apple Mug Newsletter features 
news about doctors using computers in 
their practice, particularly clinical ap- 
plications. It is a forum for the exchange 
of ideas among its members. Although 
the Apple Mug is primarily composed of 
Apple computer uses, the Newsletter is 
interested in developing a rapport with 
CP/M users in order to obtain a broad 
base of software techniques, ideas and 
applications. 

The Apple Mug Newsletter has plans 
to present a Medical Applications 
Seminar at the West Coast Computer 
Faire in San Francisco next March, and is 
currently soliciting papers for presenta- 
tion during this seminar. 

On the east coast, there are two 
medical microcomputer publications 
coming from the same office. The 
Medical Computer Journal and Dr. Com 
Puter's Report are published quarterly by 
Dr. Azis Ghaussy of East Hampton, CT. 
Dr. Ghaussy's journals not only provide a 
forum for the exchange of news and 
ideas— they also publish medical ap- 

Dr. Ghaussy's journals 

not only provide a forum 

for the exchange of 

news and ideas — 

they also publish 

medical application 

program listings. 

plication program listings. With well over 
1000 subscribers, including 75-100 inter- 
national subscribers, the Journal and the 
Report reach a wide variety of physicians 
using microcomputers. Both publica- 
tions print software listings for Apple, 
TRS-80 and North Star Horizon com- 
puters. 

The Journal and the Report seldom 
pay for submissions; physicians share 
software in an effort to help their pa- 
tients by keeping the information ex- 
change dynamic. ■ 

The publications mentioned in this ar- 
ticle may be contacted at the following 
addresses: National Report: Computers 
and Health, PO Box 40838, Washington, 
DC 20016; Apple Mug Newsletter, 2914 
Katella Suite 208, Orange, CA 92667; 
Medical Computer Journal and Dr. Com 
Puter's Report, Dr. Aziz Ghaussy, 42 East 
High Street, East Hampton, CT 06424. 

by G. Michael Vose 
80 Microcomputing staff 




Medical Software Exchange 
Helps Docs Sell Programs 



As physicians begin to develop an 
appreciation for the potential of the 
microcomputer, they apply their medical 
knowledge to the task of producing soft- 
ware with medical applications. Many 
physicians try to market the result of 
their labors but find it extremely difficult 
to track down other computer doctors. 
Enter SoftDoc, a microcomputer soft- 
ware exchange. 

SoftDoc is the creation of Dr. James 
Gange of Los Angeles, CA. Dr. Gange 
began SoftDoc as a way to help some 
like-minded physician friends who all 
had some software they were willing and 
eager to share with their colleagues. 
Since its inception about a year ago, 
SoftDoc has been adopted as an official 
project by the Society for Computer 
Medicine, whose President is Dr. Marion 
Ball, the Director of Computer Services 
at the Temple University Medical School. 

SoftDoc's current offering is a CP/M 
based collection of approximately 25 



programs. Included in the package, 
distributed on an 8-inch floppy disk, are 
programs to: 

• evaluate pulmonary function; 

• set up a respirator; 

• generate evaluations of lab tests 
such as glucose tolerance and elec- 
trolyte balance; 

• evaluate a patient's lifestyle, help the 
patient figure out why he cannot give 
up smoking, and suggest ways to im- 
prove health by changing lifestyle 
habits; 

• the ANSI standard Mumps program, 
the most commonly used medical 
usage language. 

All these programs are written in 
various dialects of Basic (with the excep- 
tion of Mumps). The disk is available to 
physicians for a price, or a physician can 
join SoftDoc and receive the software 
free by contributing software to the ex- 
change. 

The program will run, with some 
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modification, on the TRS-80 Model II 
under the CP/M operating system. 

SoftDoc is always on the lookout for 
new software and is looking for compe- 
tent software editors and programmers, 
as well. Dr. Gange says the exchange 
cannot pay editors at present but can ar- 
range to provide references in return for 
editing, translating to other Basics and 
operating systems and debugging. Soft- 
Doc is not interested in business office 
software; the thrust of SoftDoc is clinical 



application software. 

In a recent interview with 80 Microcom- 
puting, Dr. Gange said that, theoretically, 
microcomputers should have a profound 
impact on the practice of medicine. Prac- 
tically, however, he said, "this hasn't 
happened yet. The development of 
clinical applications is still in the em- 
bryonic stage." 

Dr. Gange speculated that growth in 
the field had been slowed by the difficul- 
ty of distributing medical software. This 



was one of the reasons he has launched 
SoftDoc. ■ 
For further information, write to: 

SoftDoc 

c/o Dr. James Gange 
1433 Roszmare Road 
Los Angeles, CA 90024 



by G. Michael Vose 
80 Microcomputing staff 



Computer Aids Help Handicapped 



Computer aids now make it easier for 
the handicapped to work, com- 
municate with others and seek emergen- 
cy help. They assist the hearing and 
visually impaired as well as those severe- 
ly handicapped from cerebral palsy or 
spinal disorders. 

The most widely used device is the 
TTYfiTD (teletypewriter telecommunica- 
tions device), which allows the deaf to 
communicate over telephone lines. The 
National Crisis Center for the Deaf has a 
24-hour hotline that receives TTY/TTD 
communication concerning medical and 
emotional problems and dispatches 
emergency help to callers. "They receive 
10 to 15 calls a week," says director Mary 
Compton. 

A prototype conversion of the TTD 
baudot to ASCII code has been 
developed by Paul Rinaldo of the 
Amateur Radio Research and Develop- 
ment Corporation (AMRAD), using the 
TRS-80 Model I. Rinaldo has also made 
prototypes using the Commodore PET 
and Apple computers. This would allow 
these machines to replace the teletype 
terminals as home communication 
devices. 

Two states offer TTD/TTYs at low or no 
cost. Michigan Bell now sells the device 
after a Public Act mandated they be 
made available at cost of production. 
Since March 1981 they have installed 800 
TTDs. 

In California, phone companies are re- 
quired to supply the devices at no cost; 
they have until 1984 to comply with the 
legislation. An original bill required TTDs 
be available at $14.50 a month, and they 
were installed in the pilot program in Fre- 
mont, CA. 

Microprocessor 

Most TTDs feature a single chip 
microprocessor that converts baudot to 
ASCII. Printer and display are either 
separate or one unit. 

A number of companies are producing 
the TTDs, including Plantronics Inc, 



whose VuPhone has both baudot and 
ASCII; Applied Communications Cor- 
poration, whose Phonetype was the first 
TTD developed; Specialized Systems In- 
corporated, whose customers include 
Sears Roebuck, Bank of America and 32 
state governments; and Krown 
Research, whose Porta Printer Plus of- 
fers ASCII code format for $100 over the 
$575 price tag. Various teletypewriters 
are also available. 

Automated Data Systems of Madison, 
Wl, produces an alternative to the TTDs 
called Superphone, a terminal with voice 
synthesis that can be used with any 
touchtone phone. It allows direct contact 
that the TTY doesn't, since the receiver 
of the call doesn't need a TTY terminal. 
The Superphone terminal also can be at- 
tached to a television set to produce a 
CRT screen and has features such as an 
automatic answering device. 

For face-to-face communication, the 
deaf and dumb can use Automated 
Data's VIP communicator, a pocket- 
sized teletype with an attachment worn 
on the person's lapel flashing the letters 
being typed. 

For the Blind 

Terminals are also being modified for 
the blind. A Low Vision Terminal (LVTS) 
prototype has been developed by M. 
Daniel Simkovitz, an engineer at Wayne 
State University in Detroit. The screen 
shows characters three inches high and 
allows the partially sighted to read serially 
or a few characters at a time. 

"The partially sighted are not under- 
stood," says Simkovitz. 

Most work has gone into synthetic 
voice for talking computers or braille 
keys with a voice output. But 80 percent 
of the 347,000 legally blind still have 
some vision, and many of those could 
use the LVTS, he says. 

There are also printers available for 
the partially sighted. Automated Data of- 
fers printers and CRTs with large 
characters and a computer with braille 



printer output. 

Voice synthesizers use either elec- 
tronic phoneme synthesis or the more 
subtle allophone synthesis. Most 
micros, including the TRS-80, have single 
chip voice synthesizers available. 

But not all computer commands can 
be represented by speech, Simkovitz 
says, which makes the LVTS more 
valuable to the partially sighted. 
Besides, the partially sighted often don't 
read braille. 

Interfaces are being produced that 
allow the severely handicapped to 
operate a keyboard. The Express I & II 
from Prentke Romich Company, Shreve, 
OH, are key interfaces with serial ASCII 
data that converts to parallel ASCII. The 
interface features a panel of 120 blinking 
lights. A joystick or optical head pointer 
is used in place of the keyboard. When 
the user makes the selection by an op- 
tical head set, a microprocessor receives 
the signals via a small tube with a lens 
and light sensor. 

These devices should help the nation's 
21 million disabled in their homes and 
jobs. Those developing computer aids 
hope to increase job opportunities for 
the handicapped. 

Superphone "could make a difference, 
especially when employing the deaf," 
says Rob Engelke of Automated Data. 
"Even a stock clerk . . . has got to be able 
to contact people." 

Electronic Silly Putty 

A writer in the Midwest is using the Ex- 
press I with printer hookup to produce a 
monthly column. Engelke says he's had 
some orders from businesses, and com- 
puter companies are snapping up his ter- 
minals because they can be modified for 
other applications. 

"It has a bus, it's just like an Apple," he 
says. "There's plenty of room in there. 
It's electronic silly putty in a keyboard." 

Institutions have also been buying 
products for the handicapped. Now that 
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Aerocomp's 
proven 
Best-By Test! 
The 



it 



in 




Double Density Controller 

• Technical Superiority 

At last! A double density controller for Model I witn HIGHER PROBABILITY OF DATA RECOVERY THAN WITH ANY OTHER 
double density controller ON THE market TODAY! The "DDC" from Aerocomp. No need to worry about tne pro- 
blems tnat keep cropping up on existing products. AEROCOMP'S new analog design phase lock loop data separator 
has a wider capture window than the digital types currently on the market. This allows high resolution data center- 
ing. The finest resolution available with digital circuitry Is 125 ns (nano seconds). The "DDC analog circuit allows in- 
f inately variable tuning. Attack and settling times are optimum for 5-1 /4 inch diskettes. 
The units presently on the market use a write precompensation circuit that is very "sloppy". Board to board 
tolerance is extremely wide - in the order of + 100 ns. The "DDC" is accurate to within ± 20 ns. 
The botton line is state of the art reliability! 

• Test Proven 

Tests were conducted on AEROCOMP'S "DDC", Percom's "Doubler A" and "Doubler li"* and UMW's "LNDoubler** using 
a Radio Shack TRS80*** Model l, Level 2, 48 K with TRS80 Expansion interface and a Percom TFD100* disk drive 
(Siemens Model 82). Diskette was Memorex 3401. The test diskette chosen was a well used piece of media to deter- 
mine performance under adverse conditions. The various double density adapters were installed sequentially in the 
expansion interface. „ ^ . ,.. ___- 

The test consisted of formatting 40 tracks on the diskette and writing a 6DB6 data pattern on all tracks The 6DB6 
pattern was chosen because it is recommended as a "worst case" test by manufacturers of drives and diskettes. An 
attempt was then made to read each sector on the disk once - no retrys. Operating system was Newdos/80, version 
1 with Double zap, version 2.0. Unreadable sectors were totalled and recorded. The test was run ten times with 
each double density controller and the data averaged. Test results are shown in the table. 

• Features * test results * 

TRS80 Model I owners who are ready for reliable double 
density operation will get (1) 80% more storage per 
diskette, (2) single and double density data separation 
with far fewer disk I/O errors, (3) single density com- 
patibility and (4) simple plug-In installation. Compatible 
with all existing double density software. 

• value 

$149.95 for the BEST double density 
controller on the market. 

5189.95 for "DDC" complete With DOSPLUS 3.3D 
$239.95 for "DDC" complete with LDOS 



MFR& PRODUCT | S 


ECTORS LOCKED OUT (AVC) 


AEROCOMP "DDC" 





PERCOM "DOUBLER II" 


18 


PERCOM "DOUBLER A" 


250 


LNW "LNDOUBLER" 


202 



Note: test results available upon written request. All tests conducted prior to 8-25-81 

Aerocomp's 14 day money back guarantee applies to hardware only. 

Specials will be prorated, snipping $2.00 in cont. us. See opposite page for details. 



THE FIRST PRODUCTION RUN WILL CO FAST - ORDER TODAY! 



Data Separators 

The advances that make the "DDC" great are incorporated in the new AEROCOMP Single Density Data Separator <"SDS ") 
and Double Density Data separator ("DDS"). 



• Has your original manufac- 
turer left you holding the bag? 

if you already own a Percom "Doubler A", "Doubler ll" or LNW 
"LNOoubler", the AEROCOMP "DOS" will make It right. Look at the test 
results: 



• "DDS" $49.95 

(Use 1791 chip from your DD con- 
troller) 

* DDS with disk controller 

chip included $/9.95 

• Disk controller 

chip $34.95 

(Shipping $2.00 Cont us - see opposite 
page for details) 



'^S^SSSSXr'- Plugs directly Into your existing 
"^sss^J^a^r^ Double Density Controller. 



MFR. & PRODUCT 


SECTORS LOCKED OUT 


WITHOUT "DDS" 


WITH "DDS" 


PERCOM "DOUBLER II" 


18 


1 


PERCOM "DOUBLER A" 


250 





LNW "LNDOUBLER" 


202 






Do you need a 
Single Density Data 
Separator? 

The internal data separator In the 
WD1771 chip (R/S Expansion interface) 
is not recommended by WD for 
reliable data transfer. Do you have any 
of these problems: Lost data, tracks 
locked out, CRC errors, disk retry? YOU 
NEED ONEI 

• "SDS" $29.95 

(For Mod. I; shipping $2.00) 



See opposite 

pageMMM 
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TRS80* 



DISK DRIVES 

40 & 80 TRACK 



as low as 



$299. 



95 



NEW LOW PRICES 

Thanks to you our sales volume has 
allowed us to cut costs and we're pass- 
ing the savings along We offer the best 
disk drive value in the market place. 
Reliability, features and cost tough to 
beat We deliver... and we stand behind 
our products AEROCOMP is the only 
manufacturer to offer FREE TRIAL! Buy 
Aerocomp drives today You deserve the 
best 

BEST FEATURES 

• Fast 5 ms. track-track access time. 

• Operates single or double density. 

• "FLIPPY" feature for lower media cost 
(40-1 &80-!) 

• Head load solenoid 

• Disk ejector. 

• Easy entry door 

• NEW EXTERNAL DRIVE CABLE 
CONNECTION ,-v r <~: re < ..• ^ 



EPSON 

MX80 

PRINTERS 

$489.oo 

TRS80 Cable (I & III) S29.95 

APPLE Cable & Interface. . $96.00 

RS232 Interface $69.95 

Ribbon Cartridge, Black. .. $ 13.95 
Print Head (STD) $26.95 

Add S6.00 shipping (Cont. US) does not 
include cable. 

MX80F/T 

All the features of MX80 plus Friction 
Feed Shipping & cables as above. 

$599.oo 



ORDER TODAYI 

• 40-Track Drive S 299.95 

• 80-Track Drive S429.95 

• 40-Track "FLIPPY" Drive. . . . $329.95 

• 80-Track "FLIPPY" Drive. . . . $449.95 

• 40-Track Dual-Head Drive. . $449 95 

• 80-Track Dual-Head Drive . $579.95 

». jti.V .i'vf-i .«'• UJ'MlVrtl- All'l Mltfpr iltKJVilf il'A!" U,,Ji»V 

At»le>lt*<w<tHViA>rio™*it<r MS VAC $0/60 H/ 2»V»C 

• 40-Track Bare Drive S269.95 

• 80-Track Bare Drive S 399.95 

• 40-Track "FLIPPY" Bare Drive $299 95 

• 80-Track "FLIPPY" Bare Dnve$4I9.95 

• SPECIAL PACKAGES* 

STARTER A $339.95 

40-Track Drive. 2-drive cable. TRSDOS 
2.3 Disk & Manual. Freight & Ins 

SRARTER B $369.95 

40-Track "FLIPPY" Dnve.cable. TRSDOS 
2.3 Disk & Manual. Freight & Ins. 

COMBO C S465.O0 

40Track "FLIPPY" Drive. 2-drive cable. 
LDOS - Freight & Ins. 

COMBO D $585.00 

80Track "FLIPPY" Drive. 2-dnve cable. 
LDOS' Freight & Ins. 

COMBO E S709 00 

Two 40-Track "FLIPPY" Drives, 4-Drive 
cable. TRSDOS 2.3 Disk & Mannual. 
Freight & Ins. 

COMBO F $999.00 

Two 80-Track "FLIPPY" Drives. 4-dnve 
LDOS . Freight & Ins. 

COMBO G $909.00 

Two 40Track Dual-Head Drives, cable. 
TRSDOS 2.3 Disk & Manual. Freight & 

Ins. 

COMBO H SI 299.00 

Two 80-Track Dual-Head Drives, cable. 
LDOS • Freight & INS. 



DOSPLUS 3.3 or NEWDOS / 
available with any package 



.2 



■ v '.*-ipr.-g i ■ .•'•3"< i Cc 



FREE TRIAL OFFER 

Order your AEROCOMP Disk Drive and 
use it with your system for up to 14 
days. If you are not satisfied for ANY 
REASON (except misuse or improper 
handling), return it. packed in the 
original shipping container, for a full re- 
fund, is*-:.. w«*jh .-. k p<- vk-ji We have 
complete confidence in our products and 
we know you will be satisfied! ORDER 
TODAYII 



WARRANTY 

We offer you a 120 day unconditional 
warrenty on parts and labor against any 
defect m materials and workmanship. In 
the event service, for any reason, 
becomes nescessary. our service depart- 
ment is fast, friendly and cooperative 

100% TESTED 

AEROCOMP Disk Drives are completely 
assembled at the factory and ready to 
plug m when you receive them. Each 
drive is 100% bench tested prior to ship- 
ment We even enclose a copy of the 
test checklist, signed by the test techni- 
cian, with every drive. AEROCOMP 
MEANS RELIABILITY!! 

ORDER NOWII 

To order by mail, specify Model 
Number(S) of Drive, cable, etc. (above), 
enclose check, money order. VISA or 
MASTERCHARGE card number and ex- 
piration date, or request COD. ship- 
ment. Texas residents add 5% sales tax. 
Add $ 5.00 per drive for shipping & handl- 
ing (Cont. US). Please allow 2 weeks for 
personal checks to clear our bank. No 
personal checks will be accepted on 
COD shipments-cash, money orders or 
certified checks only. You will receive a 
card showing the exact COD. amount 
before your shipment arrives. Be sure to 
include your name and shipping address 
You will be notified of the scheduled 
shipping date. Your bank credit card will 
NOT be charged until the day we ship. I! 

DRIVE CABLES 

2-DRIVF 524 95 

4-DRIVE S34 95 

WRITE AEROCOMP TODAY 
FOR MORE VALUES III 



CALL TOLL FREE FOR FAST SERVICE 
(800) 824-7888. OPERATOR 24 

POM VISA/MASTMCHAROE/C.O.D. CHtDERS 

California dial (800) 852 7777. Operator 24. Alaska 
ond Hawaii dial (800) 824-7919. Operator 24. 
TOIL FME LINES WILL ACCEPT OtOEK ONLYI 

For Applications and Technical information, call 
(214) 337-4346 or drop us a card. 



Dealers inqiries invited 



AE3GCGfilP 

Redbird Airport, Bldg. 8 

P.O. Box 24829 

Dallas, TX 75224.387 SSocoKpil3 



• See List of Advertisers on page 386 
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Michigan Bell has made the TTD 
available, several offices and stores have 
purchased the equipment for employees. 

"The cutting edge for this type of 
device is employment," says Simkovitz 
of his LVTS. Many partially sighted peo- 
ple "have steered away from some pro- 
fessions because of obstacles they face 
with computer devices." 

Simkovitz, who is himself legally blind, 
says "For many years I faced frustration 
with computers." He's hopeful others 
will develop further applications of the 
device. 

There is a program currently placing 
handicapped people in the job market. 
National Quest, a part of Unicos Cor- 
poration, Leominster, MA, will train the 
handicapped in computer-related fields 
and place them in industry. Integral to 
the program is the talking computer 
Unicos has developed that reads back 
input and output to the blind. The handi- 
capped could also work at home, send- 
ing reports to their employers through a 
modem. 

Interest in computers for the handi- 
capped is growing, and Johns Hopkins 
University hopes to harness some of this 



enthusiasm with a Personal Computing 
to Aid the Handicapped contest, spon- 
sored jointly with the National Science 
Foundation and Radio Shack. Entries 
will be judged in three categories: 
computer-based devices, computer pro- 



"For face-to-face 

communication, the 

deaf and dumb can use 

... a pocket-sized 

teletype with an 

attachment worn on the 

person's lapel flashing 

the letters being typed. " 



grams or system concept/design. The en- 
tries will be displayed in ten regional 
fairs with a final exhibit from Oct. 31 to 
Nov. 1 at the National Academy of 
Sciences, Washington, DC. Johns 
Hopkins will eventually have a two-day 



workshop to unite the winning inventors. 
They've received over 800 entries so far. 

Market Problems 

Though interest in computers is high, 
it's sometimes hard for inventors to find 
companies to market their products. 
Paul Rinaldo is still trying to find some- 
one to market his ASCII prototypes for 
the TRS-80, Apple and PET. It's par- 
ticularly hard to find a distributor for the 
TRS-80, since the Model I is out of ex- 
istence. Creating a Model II or III pro- 
totype "would mean starting all over 
again," he says. The Model I prototype 
took two years to develop. 

Now Rinaldo is planning an S100 Inter- 
face and prototypes for the Tl and Atari 
computers. He's received federal grants 
of $46,000 and $50,000 in the past two 

years. 

Simkovitz's project was underwritten 
by the university "way beyond their in- 
itial commitment," he says. But budget 
cuts made further funding impossible, 
and he needs $30-50,000 to complete the 
LVTS so it's ready to market. 

Support from the outside has been 
"shameful and shabby," he says. He's 



RELIABLE, SIMPLE MEMORY 
EXPANSION YOU CAN AFFORD! 




Shown above is the IM-2 48K INTERNAL MEMORY'*and a phillips screw- 
driver — everything you need to ADD up to 32K RAM to your TRS-80* Model I 
keyboard unit (for a total of 48K RAM). No soldering or trace cutting — just open 
the case, remove your RAM chips, plug the INTERNAL MEMORY (IM) into the 

RAM sockets, plug your chips back in, connect 4 solderless clips (they work!) and 
close the case (Detailed, illustrated step-by-step instructions show you how to do 
this). You now have a 48K keyboard unit — and you didn't have to buy an 
expansion interface! If you don't need 48K, a 32K version is .available. 

Time and experience have shown that the TRS-80* expansion buss cannot 
reliably drive memory systems. Because the IM does not use the buss, it may be 
used with ANY expansion device for reliable memory operation. Some of our 
customers use an IM INSTEAD OF the RAM in their expansion interface to 
eliminate El memory problems! 

Because the IM draws most of its power from the 12 volt supply, power supply 
loading is not a problem. Some additional heat is generated, but the TRS-80* runs 
so hot anyway you probably won't notice the increase! 

The INTERNAL MEMORY is completely tested and assembled using only 
the finest materials. You have 15 days to return it for a refund if you don't like it, 
and it is guaranteed for 1 full year. Installation is available for a small fee. 

Send a S.A.S.E. for more information. 



PRICES - 



IM-IB (32K) *59J0 (less RAM) «85.50 (w/!6K RAM) 
IM-2 (48K) '8930 (less RAM) »140.00 (w/32K RAM) 

Prices include UPS shipping in U.S. 
Utah residents add 5% tax; FOREIGN ORDERS add 15%. 

(onotneefina 



.ffolrrifA 
6246 West 3705 South Salt Lake City, LIT 84120 (801) 967-2324 



2 For 1 + 5 CENTS SALE 
-*** RIBBONS 

fctfWR RADIO SHACK* AND CENTRONICS LINE PRINTERS 
EXACT REPLACEMENT INSERTS 

[Cartridges NOT Included] Radio Shack List + 5c SALE 

LP l-ll-IV-700-730-737-779 3 Pack $18.95 6 for $19.00 

LP lll-V 1 Each $13.95 2 for $14.00 

LP VI 1 Each $11.95 2 for $12.00 

Daisy Wheel II [Carbon Film] 3 Pack $24.95 6 for $25.00 

[Our instructions make inserts easy to put In your cartridge] 

RELOADS 

[You SEND old CARTRIDGES to US- WE RELOAD them for you] 

LP ui-v Each $9.00 

l_p vi Each $9.00 

DW II [Long-Life FABRIC-We MODIFY YOUR cartridge] Ea $9.00 
DW II [Carbon Film] 3 Pack $15.00 

NEW CARTRIDGES FROM RADIO SHACK 



LP lll-V 

LP VI 

LP VII 

DW II Carbon Film 



26-1414 
26-1418 
26-1424 
26-1419 



Two for 
Two for 
Two for 
3 Pack 



$25.00 
$21.00 
$16.00 
$22.00 



Volume 1 

Biorhythms, Trap 
Rip Cord, Yacht Sea 

Concentration + 4 More 



MODEL II 8" GAME DISCS 

$24.95 Each 



.Volume 2 

Ugly, Bingo 

Towers, Blackjack 

Farkle, Pony + 3 More 




SEND CHECK, MONEY ORDER or COD TO: 

BCCOMPCO . 237 

800 South 17» Box 246 • 417 932-4196 
Summersville, M0 65571 




VB* 



•RADI0 SHACK is a trademark of Radio Shack, a Tandy Corp. 
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talked to several companies, and half a 
dozen have seen the prototype, but he's 
had no offers yet. Simkovitz would like to 
take the product to a small company ex- 
perienced with products for the partially 
sighted. 

Costs 

The cost of computer aids may be 
steep for the user as well. The LVTS 
should retail for between $2500 and 
$4500. The Express I interface is $2380; 
the Express II, with full ASCII character 
set but no printer, is $1900. Prentke 
Romich's environmental control units, 
which hook up to electrical appliances in 
the home, run from $560 to $1325. The 
hand-held teletype VIP communicator is 
$199 with an $89 voice attachment. 
Automated Data also offers a computer 
terminal for the blind with speech output 
for $900 to $1000. 

The TTDs, in states that don't provide 
them through the phone company, run 
about $550. In Michigan, Bell Telephone 
provides a TTD for $400.86, or $6.68 a 
month for five years. You can lease the 



device for $125. In California, users pay 
only for regular telephone service. 

More affordable are information ser- 
vices including the bulletin board service 
SpecialNet and Creative Computing for 
the Handicapped, a West German 
organization. 

Though SpecialNet is directed at 
special education administrators, its 



"The cost of computer 

aids may be steep 

for the user as well. " 



bulletin boards will feature information 
useful to the handicapped. A litigation 
bulletin board will be managed by the 
editors of the Education of the Handi- 
capped Law Review; the Prentke Romich 
Company will operate a bulletin board on 
system devices for the handicapped; and 
a federal bulletin board will contain 
pending legislation of importance to the 



handicapped, including federal budget 
actions. SpecialNet will also feature 
electronic mail. 

The Association for the Advancement 
of Microcomputer-Based Work at Home 
for the Handicapped, West Germany, will 
translate articles on microcomputers on- 
to cassette for the blind. They also will 
translate advertisements with informa- 
tion on how to order software and hard- 
ware from American distributors. 

Prentke Romich may organize a review 
board made up of special education 
teachers and the handicapped who 
would evaluate educational software. 
Their initial network project, Apple Com- 
puter Clearinghouse for the Handi- 
capped, has been scaled down, though 
they may compile a service catalog of 
software for the handicapped, says com- 
puter manager Neil Russel. 

Computer companies are offering 
more services and products for the hand- 
icapped, and finding a market for them. 
All they have to do," says Engelke, is "use 
their imagination."! 

by Betty Thayer 
80 Microcomputing staff 



NEWDOS 2.1 — NEWDOS/80 users 
INTERACTIVE CONTROL LANGUAGE 

Aren't you tired of waiting for and answering endless pro- 
mpts like — "ENTER FILE NAME?" every time you've got to 
work with your computer? 

And how many times were you dreaming about having ad- 
ditional features in DOS or DEBUG — something quite handy 
like repeating previous command or having an option to 
define your own new command? 

Now we've got it all for you — the complete control 
language system! 

Create and run your own multilevel procedures, 
dynamically generate/store replies for prompts, intercept and 
switch control back and forth between running program and 
ICL, execute and check execution of DOS commands and 
(CMD files within procedures and much much more! ICL is 
especially convenient for 1 drive systems where a lot of 
diskette swapping is necessary. 

To you procedures look like additional and quite in- 
telligent commands. 

Works fine with BASIC programs, EDTASM. DISASSEM. 
F80, L80, SUPERZAP... almost any program using standard 
DOS I/O drivers. Basic editor can be used to create procedure 
text files. 

Superb documentation with detailed "how-to-use" and 
tutorial information, most useful procedures, system infor- 
mation and patches provided. 

All for unbelievably low price of $29.49 — 

(on 5" diskette + documentation). 

To order send check or money order to 

XYZT COMPUTER DIMENSIONS INC. 

2 Penn Plaza, suite 1500, New York, N. Y. 10121. 

* Requires min 32K 1 Drive Model 1 
** Specify which DOS 
* * * NY. state residents add 5% sales tax 



• 366 



Software. 
For the 80s. 

Pensadyne Computer Servicas. The organization that has brought 
affordable software to hundreds of users in the over 40 of the United 
States and 16 countries around the world. The organization with the 
people, the support, the service and the expertise to bring you the 
highest quality products available. 

PertM-write 1 -- Our BASIC word processing system for the 
owner who requires performance at low cost. Many ot the features 
of more expensive word processing systems at a fraction of the cost 
Comes complete with mailing list capable of handling 300 names. 
$19.95 (Specify Model I or Model III). 

Pensa-write 2 -- A machine language word processing system for 
the TRS-80 Model I or III with the power and speed that is really 
needed in a word processing environment. Word wrap around, 
unlimited insert and delete, block moves, chaining of files, 20 user 
definable commands, ASCII control code generation for printed 
output to allow subscripts, superscripts, underlining or any other 
feature your printer supports, and much more. All this in a package 
that costs just $79.95. Manual $10.00 Deductable. (See full page ad 
Ir Aprlf, 1981 80-Mlcrocomputing for a full description) 

Software publishing - Pensadyne is now publishing software for 
independent software authors. Send SASE for complete details, or 
send machine readable copy of your program with any 
documentation. TRS-80 Model I, II, III and Colour Computer fully 
supported. Subject material unlimited. 

Now, with that kind of record, and these products and services, 
aren't you just a little curious about Pensadyne Computer Services? 
Visa and Mastercharge orders welcome. Phone orders welcome 
or write, specifying system configuration, and product desired 
Please add $1 .00 for first class shipping. 
PENSADYNE - Giving you the power to think. 



Z*WJ! 
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COMPUTER SERVICES 
\4441 WEST FIRST AVE. VANCOUVER, B.C., V6R4H9 604-224-3107 
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New 
Products 

For the TRS-80* 

MODELS 1*1 



Digital I/O Port 

APIO-SOT 



♦ teaching newsletter 

Control the outside world from ma- 
chine language or BASIC INP and 
OUT commands. 8 TTL outputs. 6 in- 
puts, assembled and tested PC board 
to simplify construction Helpful news- 
letter teaches beginners interface 
techniques control of household ap- 
pliances telephone interlacing, and 
much more All necessary hardware. 
custom front panel reference manual 
and newsletter included APIO-80b im- 
proved (specify Model 1 or 3) 167 
newsletter $2.50 



TTY-interfface 



tow cost printout 

Convert any ASCII or Baudot teletype 
into a TRS-80 printer no expansion 
interface needed TTY-80 S62. 

optional LOOP supply . $30 



Radio tele type 




■*M»L|.»n 



wireless compwterlinir 

Attention shoriwave listeners get into 
the world of RTTY ' Obtain reports 
from foreign news services and data 
bureaus over any quality communica- 
tions receiver Receive ASCII (7 level) 
and Baudot (5 level) at user selectable 
speeds includes special code break- 
er' feature selective camng and video 
display, printer, and cassette f unctions 
RTTY-80 $95 



LIGHT -PEN 

Add excitement to your software 
LTPEN-80 adds five new functions to 
BASIC In an instant, pic* any tX. Yi 
point or character position on the 
screen simply by pointing the pen 1 En- 
hance games Simplify user entry 
LTPEN-80 (pen and software) . . $27 
LTSOFT (Software alone) $19 




Phene-nODEN 

RS-232 not needed! ! ! ! 

The low cost alternative to buying an 

expensive RS-232 interface and 
modem The PHone mODEM emulates 
these functions in software, greatly re- 
ducing hardware costs The PHOOEM 
plugs into any cassette lack and can 
even dial directly from the TRS-80 key- 
board includes deluxe terminal 
program dial, store messages, line 
print, special characters — all are 
supported PHODEM $95. 

PHODEM-232 (can be used with RS- 
232 port, full duplex, non-dial) . $95 




SPIKES KILL 

Transient Hi-V spikes can crash' programs and damage 
equipment These killer spikes can be caused by almost 
any motorized household appliance The SYNTEX 
DESPIKER is a quality all metal socket strip with integral 
spike suppression It includes 6 grounded sockets, master 
switch pilot lamp, and 1 5A circuit breaker — for a reason- 
able pnee DESPIKER $42.95 



TRS- SPEAK 

Add speech capability to your TRS-80 the economical 
way Bring locution to your programs, conduct experi- 
ments plays through cassette or amplifier Comes with 
2 vocabulary sets 1 ) game sound effects and musical 
notes 2) hexadecimal numbers to 9. A to F TRS-SPKc 
(cassette) or TRS-SPKd (disk) $15 



All products post paid w/in USA 
US. funds plus extra postage. C« 



foreign orders remit 
or write today 



jfS^> yj«»^ ^y O for more Bifo. caiQ 

■ail ffl.it 717/733-4769 

qjc ■ electronic innovations 

m Box 4034 LANCASTER PA 1 7B04 
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SINEWS 



Computeens Mob Camp 
Keep Prof Jumping, Happy 



For the fourth year in a row, Dr. 
Michael Zabinski (of Fairfield Univer- 
sity, New Haven, CT) and a group of ex- 
perienced teachers spent two weeks this 
summer with more than 100 teenage 
computer nuts. 

Taking place during the last two weeks 
of July in the Klar Crest Resort in 
Moodus, CT, the fourth annual National 
Computer Camp was a complete suc- 
cess, according to Dr. Zabinski. He told 
us more than 160 campers aged 10 to 18 
of both sexes came and had a good time. 

The camp, the first of its kind, com- 
bines small group instruction in 
microcomputer uses with strong em- 
phasis on the TRS-80 with normal camp 
activities. Students this year came from 
as far away as London, England, and 
Caracas, Venezuela. 

One hundred ten students attend the 
camp for a week, and about half of them 
stay for the second week. The staff in- 
cludes 188 teachers plus two recrea- 
tional organizers, two directors, a 
medical doctor who is doing computer 
research and Dr. Zabinski. 

The students work in small groups ar- 
ranged according to their level of 
knowledge, ranging from beginners to 
two groups of Assembly programmers. 
All work on TRS-80s, except one of the 
Assembly programmer groups which 
used Apples and a Wang minicomputer. 

A typical camp day starts with a morn- 
ing computer session from 9 to 11 a.m. 
There is a midday break for sports, in- 
cluding swimming and diving in the 
camp pool, and soccer with a college var- 
sity player who is a physical education 
major. After lunch the students relax un- 
til 1:15 when they go back to the com- 
puters until 5 p.m. At night Dr. Zabinski 
runs a movie or other special event. One 
night they conducted a Las Vegas night, 
with games of chance run on the 
microcomputers. 

Most of the computer work is done in a 
spacious and well-lit camp hall. The 
campers worked in an informal at- 
mosphere, moving around a lot and shar- 
ing information and activities. 

"This is not a classroom setting," Dr. 
Zabinski explained. "We give them books 
but they are not textbooks and we never 
tell them to turn to page such and such. 
We use them for reference only." 

The campers are often too dedicated 
to their computer work. In spite of the 
beautiful, quiet grounds of the resort 
camp and the bright weather, Zabinski 



had to personally order some of the kids 
out of the hall to take a swim at the 11 
a.m. break. 

Rick Larcom, a teacher from a New 
Canaan, CT, high school who runs the 
TRS-80 Assembly group, mentioned he 
has to turn out the lights at night to force 
the kids to leave and he has to lock the 
doors or he'll wake up to find some of 
them already at work early in the morn- 
ing. 

Dr. Zabinski feels that the secret to the 
success of his camp is the staff. "I hand- 
pick everybody. I train most of them 
myself. Most of my teaching assistants 
used to be campers. I emphasize that I 
have to have a good staff. They're knowl- 
edgeable and experienced at what 
they're doing." 

The teachers come from all levels, 
from elementary through high school, 
and Dr. Zabinski tries to match the 
teachers with age groups they are used 
to. This isn't always easy or even 
possible— the groups are divided accord- 
ing to the students' level of accomplish- 
ment, not age, and especially in the up- 
per levels the ages are fairly mixed. 

The emphasis of the camp is not solely 
on learning hard technical material. In 
fact, Larcom teaches social studies, not 
math, during the year. 

Zabinski isn't worried about technical 
orientation among his teachers so long 
as they know their subjects well and are 
good with the campers. His concern is 
having the students learn something. 

His formula is proving very successful. 
"When the kids come back year after 
year and bring their friends, it tells you 
something about how well you're doing," 
explained Dr. Zabinski, who added the 
camp does practically no advertising 
because it fills up so fast from repeat 
campers and people who have heard of it 
by word of mouth. 

Next year they are considering 
expanding to four weeks and may run 
one special week for computer campers 
with diabetes. 

The camp medic, Dr. David Rowe, is a 
pediatrician from the University of Con- 
necticut who works with diabetic 
children. His interest in diabetic children 
may spur the special week next summer. 

Zabinski appreciates the complica- 
tions this would involve, but he's confi- 
dent they can handle just as they first 
handled the much greater problem of 
creating a computer camp. ■ 
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French to Make Model 
For Radio Shack Europe 

nouncements do not so much represent 
a change of company tactics or policy as 
the exercising of an option Tandy always 
considers when supplying a new market. 
Having a local host simplifies many 
areas for Tandy. 



Tandy/Radio Shack, Fort Worth, TX, 
has some good news for European 
fans of the TRS-80. The firm is com- 
pleting an agreement with a French elec- 
tronics firm to manufacture the TRS-80 
Model III in France. 

Tandy spokeswoman Harriet Rylander 
said if things go well the French com- 
pany, Matra SA, will have the microcom- 
puters in production by March. 

Tandy is making its French connection 
to improve the supply of TRS-80s in the 
Common Market countries. Tandy in- 
volvement in the European microcom- 
puter market does not approach the suc- 
cess it has had in the U.S., and Rylander 
blamed this on lack of supply. 

Tandy's U.S. manufacturing facilities 
are straining to keep up with domestic 
demand, so TRS-80s have been rare in 
Europe. The Model III was not available 
there at all until June, and is still hard to 
find. 

The French connection is the second 
foreign agreement Tandy has announced 
in the last few months. They earlier an- 
nounced an agreement with Tokyo Elec- 
tric to manufacture and jointly market 
the Model I in Japan. 

Until this summer Tandy had made all 
its microcomputers in its own plants in 
the U.S. However, Rylander said the an- 



other Products 

Matra SA is a large French con- 
glomerate active in areas including 
telecommunications, space technology 
and mass transportation. According to 
Rylander, Tandy is interested in develop- 
ing other connections with Matra, par- 
ticularly in telecommunications, if the 
Model III deal works well. 

The Matra deal has been approved in 
principal by the French government. 
However, arrangements between the two 
firms have not been finalized, and once 
the agreement is signed it must be ap- 
proved in detail by the French govern- 
ment. 

Tandy President John V. Roach stated, 
"This joint venture for computer 
manufacturing represents an important 
milestone in our growth in Europe in 
general and in France in particular. It will 
significantly strengthen our ability to 
support the European microcomputer 
market." ■ 



School Microcomputer Aid 
Clipped by Budget Cutbacks 



Although a number of federal agen- 
cies offer grants that could be used 
for projects involving microcomputers in 
the schools, many are receiving funding 
cutbacks or are being absorbed in the 
block grant program. 

Title IV B and IV C of the Elementary 
and Secondary Education Act of 1965 
authorized the largest sums for 
microcomputers. The Office of Libraries 
and Learning Resources, which ad- 
ministers IV B, granted 40 percent of last 
year's $161,000,000 for projects involving 
microcomputers. Title IV C, whose funds 
are granted to improve local educational 
practice, doled out $66 million in fiscal 
1981. 

With both funds going to block grants 
in fiscal 1982, 20 percent of the available 
money will be given to the states and 80 
percent to local school districts, which 
means the schools themselves will have 



more control over how the money is 
spent. 

Budget Jitters 

Many grant agencies expect cuts in next 
year's budgets, however. Authorization 
hearings are still underway in the House 
of Representatives, leaving the agencies 
up in the air about how much money will 
be allocated next year. 

No federal agencies are authorized to 
fund projects solely for microcomputer 
purchase or use, but many will fund 
larger programs involving micros. These 
include: 

• The Division of Adult Education: Part 
of the Office of Education, Adult Ed 
recently dispersed $100 million in grants 
to expand adult education skills. Money 
is given to the states who determine 
allocations to school districts. The pro- 
gram should remain a categorical grant 



LET'S MAKE A 
DEAL 



LDOS 



Complete w'manual & latest updates 

Mod I or III $124.95 



LAZYWRITER 

Mod. I $118.95— Mod III $164,951 



EPSON MX1 00 

CALL FOR OUR LOW PRICE 



LYNX — Modi/Ill 

Includes — Autodial/answer ____ __ 

cables & software $259.95 



MAXI MANAGER 

by Adventure International 
Model l/lll 48K Disk $79.95 



Proofreader Mod I 49.95 Mod III 59.95 

Proofedit Mod I or III 28.50 

Grammatik Mod 1 45.95 Mod 1 1 1 55.95 

by Soft too. s 



SEND FOR VOUR FREE CATALOG 
.. ceditcardsattheselowpnces Ada $1 50 on an Cod or 
derj, Certified ck/MO'COD snipped immediately Please 
alio* 2 weeks tor personal checks For extra fast service 
phone in your COD order Prices sub|ect to change wit houl 
notice NYS residents please add appropriate sales tax 
We Otter Great Values & Prompt Delivery Why Not try Us'' 



MICRO-IMAGES 

146-03 25th Rd, Flushing. NY 11354 

|Mon In UIAM'U'm(21 2) 445-7124 Sal WIAMfiPM 
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'See List ot Advertisers on paae 386 



m sick s 

OF PROGRAMS THAT TREAT YOU LIKE 
AN IDIOT, WASTING TIME & MONEY?? 

RANDOM ACCESS PAYROLL VER. 1.1 

• No complicated initialization 

• EDIT 4 LIST 

• NO SPECIAL CHECKS 

• USES NEB 9020 checks 

• PAY any employee anytime 

• SALARIED or hourly 

• SPECIAL PAY — special hours 

• TWO SAVINGS— including RIA 

• CLASSED by occupation or dept 

• PAYSTUB shows Year to-Date 

• STATE-FICA-FED TAXES-SAVINGS 

SEND YOUR STATE TAX SCHEDULE- 
FREE— customized to your state tax 

Documentation $10 00 
Disk S Documentation $95 00 

RANDOM ACCESS DEPRECIATION 

• LISTS any one year's depreciation 

• OR complete lis! of all properly 

• PRINTOUT shows — I Njtnber — description - 

• Yr purchased — life— method — 
1st yr additional depreciation - 

• Reg deprec — deprec prior yrs - balance 

• SUMMARY total value p'op - -additional 1st yr 

• REGULAR deprec —deprec prior yrs 

• PERMANENT records lor /our taxes 

Documentation $1500 

Disk A Documentation $195 00 

MIN: 32K— 1 DISK — PRINTER/132 CPI 

TERMS Personal checks require J weeks to clear 

USE- VISA— MASTER CHARGE -MONEY ORDERS 

TEL 7 PM-9 30 PM EASTERN-1617) 359-2364/6370 

SEND SASE 'or additional information 

MEDFIELD "** 1 
COMPUTER SOFTWARE 

39 GREEN ST . MEDFIELD. MA 02052 
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for next year. 

• Bureau of Education for the Hand- 
icapped, Division of Innovation and 
Development: The Education of the Han- 
dicapped Act authorized money for 
research into improved education for the 
handicapped. Some applicants funded in 
the past already had microcomputers; 
grants have supported computer- 
administered testing and research, as 
well as curriculum development using 
micros. Max Mueller, chief of the 
research projects branch, says next 
year's budget could run anywhere from 
$8-20 million. 

• Office of Bilingual Education, Office 
of Education: This program is designed 
to improve teaching English as a second 
language, using the student's native 
language. The program funds micros as 
part of a basic bilingual program for 
elementary or secondary education. 
They awarded 525 grants last year and 
expect a budget of $139,000,000 for fiscal 
year 1982. 

• Fund for the Improvement of Post- 
Secondary Education: Robert Fullilove, 
director of the program, says they have 
granted "substantial funding" for micros 
at colleges and universities. Grants have 
been awarded to San Francisco State 
College to establish a "math anxiety 
clinic" with a Commodore PET com- 
puter, and to the University of California 
at Santa Barbara, where micros are used 
in algebra classes. Fullilove estimates 
level funding for next year, which would 
be about $13 million. 

• Appalachian Regional Commission: 
Authorized by the Appalachian 
Redevelopment Act of 1965, this program 
provides grants to vocational schools 
and post-secondary technical schools. 
Director Melvin Rottenberg describes it 
as a "flexible block grant program" ad- 
ministered by the area states. Their max- 
imum budget for 1982 should be $50-65 
million. 

• The National Science Foundation: 
While the foundation has not awarded 
money for micros in elementary or sec- 
ondary schools since 1970, it has 
awarded substantial grants to post- 
secondary schools for research involving 
computers. As part of the Local Course 
Improvement Program (LOCI), they gave 
$2.49 million to 125 institutions for 
research; another program awarded $2.7 
million in 1980 for the purchase of scien- 
tific equipment at 215 colleges. Grants 
included $18,569 to the University of 
Hawaii to develop a software laboratory, 
and $13,975 to SUNY College at Oswego 
for an on-line microcomputer laboratory 
for behavioral research. About half of the 
LOCI awards go to microcomputer proj- 
ects, says John Maccini, who coor- 



dinates the program: 

• Teacher Center Program, Bureau of 
Higher and Continuing Education: 
Teacher Center grants establish in- 
service centers for educators; many of 
these contain microcomputers. The pro- 
gram has a $10 million budget for fiscal 
year 1982, and will be absorbed by the 
block grant program the year after. It 
originally funded the establishment of 60 
teacher centers in 1978; half of these 
have retained funding. Many of the 
others are now supported locally. 

No Funds Here 

Programs that are being dissolved or 
which no longer fund micros include: 

• Coastal Plains Regional Commis- 
sion, a program assisting vocational 
schools in the southern coastal areas, is 
ending Sept. 30; it had received applica- 
tions involving micros but none were ap- 
proved by the states. 

• Emergency School Aid Act of the 
Equal Educational Opportunity Program 



cannot allocate its monies for micros, 
according to director Jesse Jordan. The 
agency was incorrectly included in a list 
of available funds collected by Bell & 
Howell, Chicago. 

Even if federal funds are limited in the 
1980s, the agency officers doubt this will 
have a detrimental effect on micro 
development in schools. 

"They are getting computers in the 
classroom by hook or by crook," says 
Bob Tinker of the Technical Education 
Resource Center (TERC). PTAs and 
districts are being called upon as well as 
formal state and federal funding 
sources. 

Linda Roberts, a researcher for the 
Division of Educational Technology, 
agrees. "School officials are saying, 
'Hey, I want a micro— and we're having a 
cake sale to get it.' There's a real grass 
roots effort." ■ 

by Betty Thayer 
80 Microcomputing staff 



Students from 5 to 105 
Enjoy Hands On Science 



The Talcott Mountain Science Center 
for Student Involvement (TMSC) in 
Avon, CT, is an unusual learning institu- 
tion. Dedicated to teaching science by 
getting students involved, it educates 
children from kindergarten through col- 
lege level in private programs for Center 
members and by the class under con- 
tract to a variety of public and private 
schools and the University of Hartford in 
nearby West Hartford, CT. Computer pro- 
gramming is only one of the several hard 
science subjects the center offers. 

While most schools take a classroom 
approach to science, with a heavy em- 
phasis on lecture and theory and a 
limited amount of laboratory time, TMSC 
presents little or no lecture and puts the 
students into a hands-on situation under 
the guidance of teachers and scientists. 
TMSC students have been involved in 
genuine scientific research, helping staff 
members develop raw data for papers for 
international symposiums. The students, 
who range from age five to 22 and from 
upper middle class "rich kids" to inner 
city Hartford blacks and Chicanos, re- 
spond enthusiastically. Careful testing 
shows they also learn more quickly and 
thoroughly than students in traditional 
classrooms. 

TMSC's Computer Science Depart- 
ment is fully integrated into the general 
activities of the Center. Housed in a new 
solar-heated building, the Center offers 



students a variety of microcomputers 
which include all the Radio Shack prod- 
ucts. Over the summer the heaviest users 
are members of the Center's Quest pro- 
gram. These are teenagers from grades 5 
through 12 with high science aptitudes 
who work on projects of their own choos- 
ing for two week periods. They are di- 
vided into beginners, intermediate and 
advanced or Assembly language classes 
which work in three separate rooms in 
small group situations. 

Practical Programs 

An unusual aspect of the Center pro- 
gram is that it is self-reinforcing. Many of 
the students work on programs that they 
or others at the Center will use to learn 
about computers or augment other sci- 
ence projects. One student is developing 
a program which will accept weather 
data from radio weather reports and 
draw a weather map. When it is finished 
the program will be used by the Center in 
their meteorology courses. Another built 
his own specialized microprocessor to 
accept solar energy information directly 
from the Center's solar measurement 
equipment and analyze it automatically 
for use with the Center's continuing pro- 
gram of solar science. 

Writing instructional programs is 
another popular activity. "The kids get a 
big kick out of teaching other kids 
something and writing programs that 
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WE WILL NOT BE UNDERSOLD 



DISK DRIVES 




FOR TRS-80* Model I 

CCI-100 5%", 40 Track (102K) $299 

ADD-ON DRIVES FOR ZENITH Z 89 
CCM89 5V4",40Track(102K) $394 

Z-87 Dual 5 '/< " system $995 



External card edge and power supply included. 90 day warranty/one 
year on power supply. 

RAW DRIVES 

5 % " TEAC or TAN DON 

8"SHUGART801R 

DISKETTES - box of 10 

5%' Maxell $40 

8" Maxell $45 

PLASTIC FILE BOX-Holds 50 5V*" diskettes 

PLASTIC LIBRARY CASE 5V* " $3.00 

HEAD CLEANING DISKETTE 

FLOPPY SAVER $10.95 



BASF/ Verbatim 
BASF/ Verbatim 

8" 



RINGS 



SCALL 
SCALL 

$26.95 
$36.00 
$19.00 
$ 4.00 
$25.00 
$ 6.95 



16K RAM KITS 

200ns for TRS-80,* Apple II, (specify): 



2 lor $37 $19 

Jumpers $2.50 



SYSTEM SPECIAL 

Apple II Plus 48K w/drive and controller. Epson MX-80 printer and 
interface. SUP-R Mod RF Modulator: List $2965 You Pay $2299 



COMPUTERS/TERMINALS 

ARCHIVES 64K, 2-Drives, 77 Track 

ALTOS ACS8000 Series 

ZENITH 48K, all-in-one computer 

ZENITH Z-19 

TELEVIDEO 910 $559 920C $ 

IBM 3101 Display Terminal 

ATARI 400 $ 359 

MATTEL INTELLIVISION 
APPLE PERIPHERALS 



729 



950 



800 



SCALL 
SCALL 
$2200 
$ 725 
$1039 
$1189 
$ 795 
$ 259 
SCALL 



S-100 CALIFORNIA COMPUTER SYSTEMS 




MAINFRAME 


Model 2200A 


Z80CPU 


Model 2810 


MOTHER BOARD 


Model 2501 


16K STATIC RAM, 200ns 


Model 21 16C 


32K STATIC RAM, 200ns 


Model 2032C 


64K DYNAMIC RAM 


Model 2065C 


FLOPPY DISC CONTROLLER 


Model 2422A 


EXTENDER BOARD 


Model 2520K 


2P + 2SI/0 


Model 271 8A 



$349 
$259 
$106 
$309 
$619 
$580 
$345 
$ 52 
$309 



PRINTERS 




NEC SPINWRITER 

Letter Quality High Speed Printer 

R.O. 

R.O. with tractor feed 

KSR with tractor feed 



NEC SPINWRITER 3500 Series 
EPSON MX-70 MX-80 

PAPER TIGER 



MX-80FT 



IDS 445 
IDS 460 
IDS 560 

ANADEX 

OKIDATA 
Microline 80 
Microline 80 
Microline 82 
Microline 83 

CENTRONICS 

C. ITOH 
Starwriter I 
Starwriter I 
Starwriter II 
Starwriter II 



Graphics & 2K buffer 
Graphics & 2k buffer 
Graphics 
DP-8000 $849 

Friction & pin feed 

Friction, and pin & tractor feed 

Friction & pin feed 

120 cps, uses up to 15" paper 

739, new model with graphics 

25 cps, parallel interface 
25 cps, serial interface 
45 cps, parallel interface 
45 cps, serial interface 



MX100 



DP-9500/01 



PRINTER SPECIAL 

SEIKOSHA GP-80M 

MONITORS 

BELL& 

HOWELL 
LEEDEX 



List $399 



$2395 
$2555 
$2795 

SCALL 
SCALL 

$ 695 
$ 799 
$ 999 

$1295 

SCALL 
SCALL 
SCALL 
SCALL 
$ 739 

$1449 
$1529 
$1829 
$1949 



You Pay $319 



SANYO 



ZENITH 



9' 
12" 
13" 

9' 
12" 
13" 



B&WBHD911 
B & W $129 



Color 
B&W 
B&W 
Color 



$329 
$149 
$219 
$349 



$175 

12" Green Screen $159 

12" Green Screen $238 
13" Color $406 

12" Green Screen $129 



TELECOMMUNICATIONS 

LIVERMORE STAR MODEM 2-year guarantee 

UNIVERSAL DATA SYSTEMS UDS-103 

D-CAT HARD WIRED DIRECT MODEM 

AUTO-CAT Auto Answer, Direct Connect Modem 

APPLE-CAT II 

D.C. HAYES MICRO-MODEM 

D.C. HAYES SMART-MODEM $235 

CCI Telnet Communications Package $135 

APPLE ACCESSORIES AND SOFTWARE 



$125 
$179 
$189 
$249 
$349 



VISICALC $155.00 

CPS MULTIFUNCTION CARD 

Z-80 SOFTCARD 

VIDEX BOARD 

KEYBOARD ENHANCER 

16K CARD 

APPLE JOYSTICK 

SUP-R MOD 

CCS CARDS 

GALAXIAN 

SPACE ALBUM 

ASTEROIDS 

FLIGHT SIMULATOR 

WIZARD & PRINCESS 

SARGON 2 



DB MASTER 




$159.00 
$189.00 
$259.00 
$255.00 
$110.00 
$159.00 
$ 49.00 
$ 25.00 
SCALL 



- 



MYSTERY HOUSE $ 24.00 



HI-RES FOOTBALL 



22.95 
35.00 
17.95 
29.00 
28.00 
29.00 
35.00 



For fast delivery, send certified checks, money orders or call to arrange direct bank wire transfers. Personal or company checks require two 
to three weeks to clear. All prices are mail order only and are subject to change without notice. Call for shipping charges. 



dealer (national/international) inquiries invited Send for FREE Catalogue 



TO ORDER CALL TOLL FREE 1-800 343-6522 

298 TWX: 710-348-1796 Massachusetts Residents call 617/242-3361 



The CPU SHOP 



5 Dexter Row, Dept. MC10M 
Charlestown, Massachusetts 02129 
Hours 10AM-6PM (EST) Mon.-Fri. (Sat. till 5) 



Technical Information call 617/242-3361 
Massachusetts Residents add 5% Sales Tax 
Tandy Corporation Trademark/ 1 Digital Research 
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SO News 



teach," Bill Danielson, TMSC's computer 
department director, said. 

These programs have included mineral 
and plant classifiers which ask the user a 
series of identification questions about 
the specimen and use the answers to 
determine what it is. 

One of the more interesting student 
projects involved fruit fly propagation. 
The student wanted to demonstrate the 
rate of increase of a fruit fly population 
using the fruit fly propagation formula. 
Normally it takes two weeks for fruit flies 
to hatch. The student wrote a program to 
print a colon to represent each pair of 
fruit flies. He started with a single pair 
and had the microcomputer calculate 
how much time it would take to print out 
each generation on a 30 cps printer. He 
discovered that if the computer runs at 
full speed, the actual fruit flies will catch 
up with it in their fifth generation and the 
printer will fall progressively further 
behind after that. 

The nicest thing about this approach 
to learning is that the students learn pro- 
gramming, use of the computer and com- 
puter applications to other activities at 
the same time they are learning the sub- 



jects covered by their programs. 

Their learning goes beyond the im- 
mediate applications, however. 

"One of the real advantages of the 
computer is it is easy to construe it as a 
brain," Danielson said. "It gets the kids 



"We are 

no longer 

a supplement to 

our students' 

science education. 

We are their 
science education.' 



to think very clearly about who they are 
and what the nature of thinking is." 

The Quest students are not the only 
Computer Center users. Danielson said 
the Center has been running a large 



number of teacher workshops for area 
schools interested in developing more 
applications for the microcomputer in 
their classrooms. The Center also has 
younger children in programs; the 
youngest are the "Fledglings," kids going 
into kindergarten and Grade 1 in the fall. 
They get one and a half hours with the 
microcomputers as part of their program 
of general introduction to science. 

The Center relies heavily on its 
TRS-80s: it has five Model Ills, one Model 
I, a Pocket Computer and a Color Com- 
puter along with three Apples, one 
Sinclair and a PDP-1 1 minicomputer from 
Digital Equipment Corp. (DEC) that time- 
shares on several terminals for the most 
complex applications. 

"The important thing is not whether 
they master Basic or Assembly language 
but that they have a good experience 
with the machine at an early age," 
Danielson said. "With the increasing in- 
trusion of computers into our profes- 
sional and private lives, we are facing a 
two-cultures problem. We may well find 
ourselves divided between those who 
use computers and those who do not." 

"Most of these students won't become 



CLOAD MONTHLY 



"all the fit that's news to load" 



TRS-80 PROGRAMS ON CASSETTE 

CLOAD Magazine for your Model I or III! 



Golcta. Calif — You can get 7 or 8 programs on cassette, each month, 
(hat CLOAD directly into your TRS-80 Model I or III! 

A subscriber, too engrossed in trying to save the world from invading 
aliens (March. I98I issue) to give his name, stated. "I receive a 30 minute 
cassette by First Class Mail each month containing some of the best games 
and educational programs I have ever played. Some are even in machine 
language! "Another CLOAD subscriber. Claudine Cload. could now 
fit the computer into her schedule" thanks to the utilities and occasional 
disk programs she received from CLOltD. She was writing about it to all 
of the people on her mailing list (November. 1979 issue) 
Get the news firsthand Get a subscription to CLOAD Magazine 

The Fine Print: 

Overseas rates slightly higher — 

please write for them. 
Back issues available— ask for our list ' 
TRS-80 is a trademark of Tandy Corporation 
California residents add 6% to single copies 

and anthologies. Programs are Tor Level II 

1 6K , Model III 1 6K , and occasionally for disks. 
*24 Level I back issues also available. 



by Clyde Cload. star reporter 



PRICES 

I year subscription s 42.00 

6 month subscnption s 2300 

Single copies s 4.50 

Anthology volume 1 S I000 

Anthology volume 2 s 1 5.00 

Mastercard/Visa Welcome 



CLOhu 




Magazine Inc. PO. Box 1448. Santa Barbara. CA 93102 .502 (805) 962-627! 



©1981 
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professional programmers; they will go 
out and be engineers, businessmen, 
writers, and many other things. If they 
bring a positive attitude towards com- 
puters to their work they will be able to 
use this tool effectively." 

Important Place 

In a decade of cutbacks in public edu- 
cation funding, Danielson said TMSC 
and other institutions like it serve a vital 
purpose in education. The head of one 
large Connecticut school system reg- 
ularly visits public school classrooms on 
a drop-in basis. In over 100 visits in the 
last year, he found only two instances 
where a science lesson was being taught 
when he visited. 

The obvious implication is that only 
two percent of the students' time is 
spent on science. In an increasingly 
technological world, it is ironic that the 
return-to-basics movement in education 
is discouraging any change in that pro- 
portion. 

Under these conditions, Danielson 
said, "We are no longer a supplement to 
our student's science education. We are 
their science education." ■ 



College, Publisher Join, 
Offer Computer Program 



The Hawthorne-Green Inc. Institute 
of Computer Science has been an- 
nounced by officials of Nathaniel Haw- 
thorne College. The new program will be 
offered at the Hawthorne campus, locat- 
ed here in Antrim, a small town in the 
south central region of New Hampshire. 

Initially, instruction will deal with the 
fundamentals of computing, with a heavy 
emphasis on microcomputers. The cours- 
es will explore hardware, software, and 
computer science; future plans call for in- 
creasingly diverse offerings of advanced 
and specialized courses. 

The classes will be taught by the Haw- 
thorne faculty and by members of the 
staff of Wayne Green Inc., located in near- 
by Peterborough, NH. In addition to pub- 
lishing several microcomputer periodi- 
cals, the firm also maintains an extensive 
working microcomputer laboratory for 



use by its subsidiary, Instant Software, 
one of the country's major microcomputer 
software houses. 

In the interest of making the classes 
available to as many people as possible, 
the first courses will be held in the eve- 
ning, two nights a week. Students with no 
technical background will be accommo- 
dated in the introductory sessions as will 
the needs of more advanced enrollees. 
Topics to be covered include data pro- 
cessing and electronic trouble shooting 
and, according to a spokesman for the in- 
stitute, the classes are well suited for the 
person who wishes to prepare himself for 
a career in the booming technical field. 
Course participants may also elect to pur- 
sue a certificate program or go on to fur- 
ther study under a formal degree program. 

The first courses are slated to begin 
this month. ■ 



COLOR COMPUTER OWNERS! 
CLOAD INC. ANNOUNCES 



CHROMASETTE MAGAZINE! 

A monthly magazine-on-cassette for your 
Extended BASIC Color TRS-XO! 




Goleta California — With 
CHROMASSETTE 
Magazine, Color Com- 
puter owners can now enjoy 
the variety, eeonomy. and 
easy entry of programs that 
CLOAD subscribers have 
enjoyed for 3 years. 

CHROMASETTE 
Magazine gets rid of the 

» ° CHROMASETTE Magavne in tu Prime State 

type-in-and-edit blues by 

putting a rainbow of ready-to-load programs on cassette, and sending 
them to you by First Class Mail each month. Educational, practical, 
utility, and game programs are delivered right to your mailbox. 



Put a rosy color in you and 
your computer's cheeks, 
stop reading these old 
cliches, and get a subscrip- 
tion to CHROMASETTE 
Magazine. 

Please write for Foreign Rates and 
other info. 



$45.00 year. $25,006 months. $5.00 
single issue, or send a Blank Check 
and your account balance. Visa and 
MasterCard also accepted. 



Chromasettc Magazine P.O. Box 1087 Santa Barbara, CA 93102 „* (805) 963-1066 
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SINEWS 

Farmers Group Cultivates 
Videotex News Database 



Anew timesharing network for farmers 
supplying up-to-the-minute informa- 
tion on commodities markets has been 
started by the Professional Farmers of 
America, Cedar Falls, IA. 
' > - 1 * The electronic news network, called In- 
stant Update, uses Radio Shack Videotex 



"The network offers 
analyses of events 
which may have an 

impact on the market 

and their possible 

effects on 

commodities prices. " 



16K terminals to distribute a daily morn- 
ing newsletter, a report on opening prices 
in the commodities markets, updates on 
the markets through the day and evening 
market summaries. It also carries infor- 
mation on market strategies, reports on 
events in Washington which may affect 
the commodities market and background 
and historical information. The network 
offers analyses of events which may have 
an impact on the market and their possi- 
ble effects on commodities prices. 

The most recent addition is a database 
of Gulf Coast grain prices. This is a 
measure of demand in the market accord- 
ing to Tom McCafferty, marketing manag- 
er for the Professional Farmers. He said 
they were considering adding East and 
West coast grain prices. 

McCafferty said interest in Instant Up- 
date has run high among farmers since it 
was first announced in January. The ser- 
vice actually started April 1. McCafferty 
declined to give the number of subscrib- 
ers except to say it is "over 500." He said 
while subscribership is heaviest in the 
midwest, Instant Update is a nationwide 
service which even has a subscriber in 
Hawaii. 

It costs a flat $95 a month for unlimited 
access, including rental of the Videotex 
terminal. It is an interactive service, with 
the user selecting a database from a 
menu and storing information in Videotex 



to read off the television screen. 

McCafferty said the newsletter and 
commodity prices are the most used data- 
bases, a weather database the least. 

Only Choice 

The Professional Farmers chose Video- 
tex because it was the only terminal 
around. They have been very happy with 
the equipment which so far has been vir- 
tually trouble-free. 

McCafferty said relations with Tan- 
dy/Radio Shack, Fort Worth, TX, have 
been good although "they can always be 
better." He also said they have been 
waiting for some software from Tandy to 
allow TRS-80 microcomputers to interface 
with the system. 

Charles Phillips, Senior Vice President 
for Special Markets for Tandy, mentioned 
they are actively promoting the idea of 
private information networks using Video- 
tex terminals. In the long run, he said, Tan- 
dy expects Videotex to become a house- 
hold appliance. Phillips told us they hope 
enough private networks will take up Vid- 




eotex to create a "critical mass" of homes 
using it so that as general-interest data 
services develop they will be designed to 
be compatible with Videotex. "A lot of 
people are looking at this form of com- 
munication," he noted. 

McCafferty said Professional Farmers 
is a private business offering farmers 
marketing information and seminars on 
marketing. Founded in 1973, it has more 
than 30,000 client-members. ■ 



Education Bill Reintroduced 



US Rep. Tom Downey (D-NY) has 
reintroduced his bill to establish one 
or more national centers of study micro- 
computer use in education. The bill is be- 
ing co-sponsored by two members of the 
House Subcommittee on Elementary and 
Secondary Education, where it stalled last 
year. According to a spokesman, Rep. 
Downey is optimistic that subcommittee 
hearings will be held on the bill this year. 

The bill seeks $4 million paid over three 
years to support the establishment of one 
or more centers to study how microcom- 
puters are used in schools and to make 
this information available to interested 
parties in the hope of encouraging micro- 
computer use in education. However, 
David C. Smith, legislative assistant to 
Rep. Downey, warned that it will be tough 
to squeeze extra money out of Congress 
for anything this year. 

Smith said one big argument for the bill 
is that the United States is falling behind 
other countries in this area; even the Brit- 
ish, with their much-publicized economic 



woes, are spending $25 million to pur- 
chase microcomputers and put them in 
every school in the country. The French 
have a similar plan already approved and 
in operation. 

"All we want to do is study the uses, we 
aren't talking about actually buying any 
machines for schools," Smith said. 

Rep. George Miller (D-CA) and Rep. 
Mario Biaggi (D-NY) are co-sponsoring 
the bill this year. Smith said the hope to 
conduct subcommittee hearings some- 
time after the August recess. 

If the subcommittee passes it, the bill 
will then be considered by the Committee 
on Education and Labor. If that committee 
acts favorably on it, it will go to the full 
House for consideration. 

Anybody interested in expressing an 
opinion on the bill, labeled HR-2112, to be 
placed on the record, may write to Rep. 
Carl Perkins (D-KY), Chairman, Subcom- 
mittee on Elementary and Secondary Edu- 
cation, Room B346C. Rayburn House Of- 
fice Building, Washington, DC 20515. ■ 
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ATARI 400 
COMPUTER 
TO BE AWARDED M 

TO ESCAPEE! 



v -tf» 



Asylum is the most sophisticated, sinister, challenging 3-D 
graphics adventure ever written! You are placed in an asylum 
for DEATHMAZE survivors. Your only goal: ESCAPE! 

Asylum has over 1 200 locations! Hallways recede into the 
screen, as though you are actually there! Doors open and 
close! Beds, desks, and even guards and other inmates are 
drawn on the screen! And graphics are generated instan- 
taneously! Simply press an arrow key to move or turn, and 
you are moved. Absolutely no waiting! 

English language commands may be issued at any time from 
a vocabulary of almost 300 words. Commands may include 
complete statements. "Get et>erything on the desk 
except the matches "is perfectly legal! 

Will anyone escape? Who knows? Intelligence, 
cunning and patience will be necessary. Send us 
your correct solution, postmarked no later than 
November 15th. On November 30th we will draw 
from the entrants for an ATARI 400 1 6K color computer! 

NO HINTS WILL BE GIVEN OVER THE PHONE! 

ASYLUM 16K cassette $ 19.95 

ASYLUM 32K disk $ 24.95 

ASYLUM Hint Sheet $ 1.00 

TRS-80 Level II, 
Model I and Model III only 






>. 
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Med Systems Software 

P.O. Box 2674-A 
Piapel Hill, NC 27514 
(919) 933-1990 



It's Not Your Printer, 
It's Your Software. 





Features of Qwerty 3. 

1. Automatically prints in proportional print, with a suitable 
format. Transitions between the three print styles are easy, 
including all expanded print modes. 

2. Qwerty 3.0 adds 75 new symbols, including upper and 
lower case Greek letters, mathematical symbols such as 
integrals and summations, arrows, brackets, and probability 
symbols. 

3- Any character can be used as a subscript or superscript, 
even simultaneously. Carats, bars, and tildes can be placed 
over any character, with precise position control. 

4. Underlining, with or without underlining of spaces, 
including long ratios and mathematical expressions. 

5. Footnote* can be placed on any page so that they remain 
on the desired page, even if text is inserted later 

6. Table commands enable positioning of the print head 
anywhere on a line. Invaluable in printing neat mathematical 
layouts, tables, columnar material, etc., in proportional print. 

7. Pretty commands allow printing of repetitions of a 
chosen character. Whencombincd with Table, decorative 
borders can be produced with ease. 

8. Folio format produces output in two or three columns per 
page, in cither proportional or 16-7 cpi mode. Ideal for 
newsletters. 

9. Supplies a third output mode, in which only Scripsit 
commands are obeyed. Allows printing of special Qwerty 



10. 



11 



commands for future reference. 

Page End indicates where pages will end, and the page 
number, without printing the text. One can prepare an 
almost error-free document without ever using paper. 

Correction of Scripait's errors and inconveniences, exten 
sive documentation, and much more! 



Do you own a Centronics 737? 739? Lincprinter IV? 
Tired of the limitations of SCRI PSIT? Qwerty 3.0 will let 
you accomplish word-processing feats you never dreamed 
possible. Like Greek letters. Simultaneous subscripts and 
superscripts. Even footnotes and two or three column 
folio formats. Sec the list of features in the box. No other 
piece of software of this type can match Qwerty 3.0. We 
know, because we bought the others, and were dis 
appointed. 

Qwerty 3.0 is more than "fully tested.'' It has seen 
thousands of hours of use in a university environment. A 
masters thesis and a statistical doctoral dissertation were 
produced and accepted right off a Centronics 737 using 
this package. 

Qwerty 3.0 is the finest SCRIPSIT addition available for 
the Centronics 737, 739, and Lineprinter Pv\ You must 
own one of these printers, a copy of SCRIPSIT, and a disk 
drive to use it. It is the best. Period. WE GUARANTEE 
YOU WILL AGREE! If for some reason, you find that this 
program doesn't meet your needs, return the entire 
package within 1 4 days for a prompt and cheerful refund. 

For cautious buyers, we offer the manual (about 50 
pages ) for S 1 0.00. When you decide to buy Qwerty 3.0, 
we will credit the full manual price. 

Qwerty 3.0 Disk, Manual, Reference 
Card, and Printer Table Rule $49.95 

Qwerty 3.0 Manual Alone $ 10.00 



: 



Med Systems 

(919)933-1990 
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More from 



Med Systems 

To Order Call 1-800-334-5470 




Microworld 

by Arti Haroutunian 



Microworld is an adventure like no other. 
You are transformed into an electroid, and 
must travel through the circuits of your 
TRS-80! You will be required to solve 
many incredible problems, and in the 
process, you will gain a knowledge of how 
a TRS-80 operates. 

Microworld is one of the most advanced 
pieces of machine language programming 
Med Systems has published A special 
encoding scheme has allowed a 2 1 K adven- 
ture to fit in 16K. Microworld is verbose. 
Messages are frequent and fact -filled 

Microworld is an excellent educational 
simulation. It is supplied with a 12 page 
htxiklet containing a glossary and expla- 
nations of the elect ronics i nside the TRS-80. 

Microworld is immense! It is twice as large 
as most adventures, and at least twice as 
challenging! 

Tape $19.95 Disk $24.95 



Educational Software 

The Playful Professor 

A mathematics tutoring program that 
combines graphic step-by-step tutorials 
with an interesting graphics game. Tutors 
all operations, with integers or fractions. 
One or two players, three difficulty levels. 

The Human Adventure 

A biological adventure in the human 
body. The player travels through the car- 
diovascular system, learning locations and 
functions of bodily organs while pursuing 
cancer cells. Grades 4 and up. 

Money Master 

A graphics game which sharpens skills 
in counting money and making change. 
The correct amount, in a reasonable 
number of coins, buys objects and pays 
tolls. Some reading required. 

Educational Software 

Tapes $14.95 ea. Disks $19.95 ea. 

Educational Package Disk 

All three Med Systems educational 

programs on one disk $34.95 



Med Systems 

P.O. Box 2674-A 
Chapel Hill, N.C. 27514 
(919)933-1990 



-See List ol Advertisers on page 386 




Death maze 

5000 
Labyrinth 



Deathmaze 5000 and Labyrinth are 3-D 
adventures from the authors who pro- 
duced Asylum. One and two word com- 
mands are combined with incredible 3-D 
graphics to provide adventures beyond 
anything you've ever seen. 

The goal in IX*athmaze is simple. Escape 
from the most maniacal, devilish, dangerous 
building ever constructed. Alive. 

And Labyrinth? Kill the minotaur. However, 
you must find weapons, treasures, and 
knowlege to do so. There's even a graphic 
vending machine! 

The question isn't "Will I survive?". The 
question is "Will I be satisfied with non- 
graphics adventures again?". 

Tapes $14.95 ea. Disks $19.95 ea. 



'M 



GRBASIC 

by Simon Smith 



GRABASK: extends Lewi II or DISK 
BASIC to include an easy to use graphics 
command set. A single BASIC: command 
allows the user to draw a line between any 
two pixels on the screen in hundredths of 
a second! Coordinates can be chained to 
allow complex figures to be drawn by a 
single BASIC program line in less than a 
second! 

GRBASIC allows the definition of shapes. 
Once defined, a shape can be rotated, 
seated up or down in size, drawn anywhere 
on the screen in less than a second, and 
can even be drawn totally or partially ' off' 
the screen in extended space! And all with 
short, simple BASIC commands! Even mul 
tiple shapes are no problem! 

A new program, GRBASIC FUNCTION 
PLOTTER, allows the plotting of almost 
any function, including polar coordinate 
based figures, paramctic equations, and 
almost any wave form. Features include 
function definition and automatic screen 
scaling, and printing capacity on Line 
Printer IV. REQUIRES GRBASIC! 

GRBASIC Tape $19.95 

GRBASIC NEWDOS Disk $24.95 

GRBASIC TRS-DOS Disk $24.95 

GRBASIC Function Plotter Tape $14.95 
GRBASIC Function Plotter Disk$19.95 
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Knossos 

by Simon Smith 

"You have just been 

1 — | thrown into a dark, 

stinking pit . . ." 



You are isolated and alone in the maze at 
Knossos, Crete. Somewhere, a minotaur is 
tracking your scent. Can you find the only 
door without becoming a minotaur's meal? 

Knossos is a 3-D graphic simulation. Mazes 
are represented by a perspective view, as 
though you are actually there. These 
graphics are not the simple, square graphics 
vou have seen before. An entirely new 
representation has been implemented 
giving a true cave-like quality. And like all 
Med Systems 3-D graphics, lightening fast 
screen generation is standard. 

Other features include chalk with which 
to mark the floor for reference points, 
randomly generated mazes, distance 
counters for exit, and monster graphics. A 
typical game might last 15-20 minutes. 
This is the first truly 3-D arcade game ever 
offered. 



Tape $19.95 



Disk $24.95 



Satisfaction Guaranteed 

If for any reason you are not satisfied with 
our products, return your order within 14 
days for a prompt and cheerful refund. 

Ordering Information 

Orders are processed within five working 
days. Orders are sent first class within the 
U.S.. Canada, and L'.S. territories. Overseas 
orders please include $300 for air post 
Order using coupon below. Please specify 
tape or disk versions, and Model I or 
Model III computer. 



Model lor Model III 

TRS-80 Level II 16K 

unless 

otherwise noted 



or 



Item (specify tape or disk) 



Price 



Shipping and Handling 



$1.00 



TOTAL 



Name 
Street. 
City — 



.State 



.Zip. 



Computer: 
TRS-80 Model I Q 
Mastercard |~) 

MC or VISA * 

Ex pi rat ion Date 



Model III □ 

VISaD Check □ 



80 Microcomputing, October 1981 • 87 



News From 

KITCHEN TABIE SOFTWARE, INC. 

by David Busch 




What do you get when you take 
features from both Basic and 
Cutol? A new language called Basbol. 
This innovative high-level language, a 
combination of ANSI 74 Cobol and Dart- 
mouth Basic, has been introduced for the 
TLS-8E by Kitchen Table, Inc. 

Regular 80 Microcomputing readers 
will recall that KTI is the United States' 
largest fictitious supplier of space-age 
computer products, including DROSS- 
DOS 1.1 and the TLS-8E. The latter is a 
new personal computer that is 100 per- 
cent downward compatible with the 
TRS-80 Model I and III. 

Basbol was one of six new products 
unveiled recently by Kitchen Table at the 
Portage County (Ohio) Home Appliance 
Fair. Also making their <J.S. debut were a 
new 5 3/8-inch disk drive, a double-density 
board and a series of aids designed to 
treat radiation burns stemming from an in- 
itial run of poorly-designed color monitors 
for the TLS-8E. 

Biggest hit of the appliance show, at 
which KTI was the only computer repre- 
sentative, was the Basbol exhibition. The 
new language is a compiler/interpreter 
that is used in a unique way. Very fast- 
running object code is generated for rapid 
testing (although debugging is impossi- 
ble) and then converted back for run-time 
operation under the Basbol interpreter. 

KTI spokespersons pointed out that 
this mode eliminates many errors, be- 
cause each line of code is interpreted 
every time a program is run as a sort of 



double check. At the same time, the com- 
piler (interpreter) prevents unwanted 
tampering with the code by the program- 
mer at the testing stage. 

A Controversy 

One note of controversy surfacing at 
the display was that Basbol is supplied on 
a protected disk. The original disk can be 
backed up only 10 times. It then becomes 
useless for copying purposes. This will 
probably not cause much distress for the 
legitimate user because each backup disk 
also can be duplicated 10 times with no 
problem. 

We suspect this flimsy attempt at pro- 
tecting Basbol was a subterfuge on KTI's 
part to make the new software more at- 
tractive to program pirates. Much of the 
firm's influx of working capital stemmed 
from the widespread copying of DROSS- 
DOS 1.1. Though KTI sold less than 300 
copies of this DOS over the counter, it has 
reaped more than $3 million in profits 
marketing mandatory Zaps to 111,306 
users nationwide. 



"The original disk 

can be backed up 

only 10 times." 



Our suspicions were confirmed on ex- 
amining the documentation provided for 
Basbol. It is printed in blue ink on a dark 
green paper— all but unreadable in origi- 
nal form, but eminently legible when pho- 
tocopied. 

Other products also attracted a lot of 
attention. KTI's booth was mobbed during 
exhibit hours. The Da-Glo orange TLS-8E 
computers really stood out among the 
drab Harvest Gold refrigerators and home 
freezers in the surrounding booths. 

New Drives 

The product that interested me most 
was the 5 3/8-inch disk drive now available 



for the TLS-8E. These new drives replace 
the units originally supplied with this com- 
puter. Scuttlebutt has it that KTI was ex- 
periencing delivery problems with the 
original drives— customers would take 
one look at the units and refuse to accept 
delivery. 

Because KTI has been having trouble 
getting its Sri Lanka factories to adhere to 
strict specifications, the new drives will 
accept either the common 5 1 /i-inch mini- 
floppy disks or the occasional 5 3/8-inch 
ones that slip through inspection. The 
KTI-100 units are96-tracks-per-inch drives 
that can be run either in single or double 
density. Double-density reliability, using 
the new KTI Doubloon PC board, is said to 
be 100 percent that of the TLS-8E in single- 
density mode. Company spokesmen have 
promised a remedy for this unfortunate 
situation in the near future. 

The KTI-100 drives may be configured 
as fixed disk drives merely by inserting a 
disk and applying furnace ductwork tape 
over the door to seal the unit shut. Quite a 
clever touch. 

Since the introduction of the TLS-8E, 
TRS-80 owners have written to comment. 
One frequent question is, "So what?" A 
more probing query runs along the lines of 
"How can a TLS-8E benefit me, a proud 
Model III owner?" 

So What? 

My standard answer has been as 
follows: 

• KTI's marketing of the TLS-8E will put 
a great deal of pressure on Tandy to shape 
up. With three or four hundred thousand 
Radio Shack computers already in the 
field, Tandy has great expectations of 
selling peripherals, programming, fuses, 
etc. to this large customer base. Given 
sufficient provocation, it's conceivable 
that a quarter of a million TRS-80 owners 
might decide to switch to TLS-8Es over- 
night. Then where would Tandy be? Back 
selling leather belts, that's where! 

• Because most software available for 
the TRS-80 can be used on the TLS-8E, this 
provides a larger customer base for pro- 
grammers, and, correspondingly, more 
software available for the rest of us. In- 
stead of 400,000 Tandy customers, a pro- 
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grammer has a more attractive market of 
400,367 users when TLS-8E owners are 
lumped in. 

• The TLS-8E provides an attractive 
"second" computer for present TRS-80 
owners. Recent upheavals jn the interna- 
tional money market have given the U.S. 
dollar a stronger position when compared 
to Sri Lankan currency. As a result, KTI 
has been able to drop the price of the TLS- 
8E from $1984 for a two-disk 48K system 
down to $179.95. 

Obviously, at that bargain price, many 
TRS-80 Model I or Model III owners are go- 
ing to want a TLS-8E to carry around to 
users' groups, on camping trips, etc., 
where its rugged hard-wiring will better 
withstand mistreatment. 



'. . . the remains can be 

rewired to make 

a pretty good 

garage door opener." 



I've heard of many hobbyists who have 
purchased these machines just as "parts" 
computers. Need a 1771 chip? Rip it out of 
the TLS-8E. Interested in finding out if the 
Z-79A chip would make a good diode? Use 
one of the two piggybacked into every KTI 
computer. After you've experimented to 
your heart's content, the remains can be 
rewired to make a pretty good garage door 
opener. 

I gleaned all these tidbits from brief in- 
terviews with the reclusive founder of 
Kitchen Table Inc., who prefers to remain 
anonymous. We agreed to abide by Scott 
Nolan Hollerith's wishes and pass along 
these interesting comments to you with- 
out any attribution.! 





#18 SOFTWARE 



ULTIMATE SOFTWARE PLAN 



We'll match any advertised price 
on any item that we carry. And if 
you find a lower price on what you 
bought within 30 days of buying 
it, just show us the ad and we'll 
refund the difference. 
It's that simple. 



Combine our price protection 
with the availability of full profes- 
sional support and our automatic 
update service and you have the 
Ultimate Software Plan. 

It's a convenient, uncomplicated, 
logical way to get your software. 




iS (New items or new prices) 

CP/M users: specify disk systems and formats. Most formats available. 



ARTIFICIAL INTELLIGENCE 

Medlcal(PAS-3) S849/S40 

Dental (PAS-3! $849/$40 

ASYST DESIGN 

Prof Time Accounting $549/$40 
•s General Subroutine $269/$40 
<s Application Utilities $439/$40 
COMPLETE BUS. SYSTEMS 

Creator $269/$25 

Reporter $169/$20 

Both $399/845 

COMPUTER CONTROL 

Fabs(B-tree) ..$159/$20 

UltraSortll $159/$25 

COMPUTER PATHWAYS 

Pearl (level 1) S 99/$ 25 

Pearl (level 2) $299/$40 

►'Pearl (level 3) $549/$50 

DIGITAL RESEARCH 

CP/M 2.2 

NorthStar $149/$25 

TRS-80 Model II (P+T)$159/$35 



MICROSOFT 

Basic -80. . . 
Basic Compiler 
Forlran-80 
Cobol-80. 
M-Sort 



*289/*na 
$329/$na 
$349/$ na 
$574/$na 

$124 $na 



Micropolis 
Cromemco 
PL/ 1-80 
• BT-80. 
Mac 
Sid 
Z-Sid 
Tex 

De Spool 
D.M.A. 

Ascom 

DMA-DOS.. 

CBS 

Formula 

GRAHAM-DORIAN 
General Ledger 
Acct Receivable 
Acct Payable 
Job Costing 
Payroll II 
Inventory II 
Payroll. . . . 

Inventory 

Cash Register 
Apartment Mgt 
Surveying 
Medical 
Dental 

MICRO-AP 

S-Basic . 
Selector IV 



$169/$25 
$189/$25 
$459/$35 
$179/$30 
$ 85/$15 
$ 65/$ 15 
$ 90/$ 15 
$ 90/$15 
$ 50/$ 10 



$149/$15 
$179/$35 
$369/$45 
$539/$45 

$729/$40 
$729/$40 
$729/$40 
$729/$40 
$729/$40 
$729/$40 
$493/$40 
I493/S40 
$493/$40 
$493/$40 
$729/$40 
$729/$40 
$729/$40 

$269/$2S 

$469 $35 



MICRO DATA BASE SYSTEMS 

HDBS ... $269/$35 

MDBS . $79S/$40 

• DRSorQRSorRTL $269/$10 
MDBSPKG $1295/$60 

MICROPRO 

WordStar $319/$60 

Customization Notes $ 89/$na 
Mail-Merge si 09 $25 

WordStar/ Mail-Merge $419/$85 
DataStar $249 $60 

WordMaster . $119/$40 

SuperSortl $199/$40 

^ Spell Star . .S175/S40 



Macrc-80 $144/$na 

Edit-80 * 84/$na 

MuSimp/MuMath $224/$na 

MuLiso-80 $174/$na 

ORGANIC SOFTWARE 

^TextWnter III $m/$25 

DateBook II $269/$ 25 

• Milestone $269/$30 

OSBORNE 

General Ledger $ 59/$ 20 

Acct Rec/ Acct Pay $ 59/$20 

Payroll w/Cost $ 59/$20 

All 3 $129/$60 

All 3 + CBASIC-2 $199/$75 

PEACHTREE* 

General Ledger $399/$40 

Acct Receivable $399/$40 

Acct Payable $399/$40 

Payroll $399/$40 

Inventory... $399/$40 

Surveyor. . . $399/$40 

Property Mgt $799/$40 

CPA Client Write-up $799/$40 
** P5 Version Add $ 1 29 

SOFTWARE WORKS 

Adapt (CDOS to CP/M) $ 69/Sna 
Ratfor $ 86/*na 

SOHO GROUP 

MatchMaker S 97/$20 

Worksheet $177/$20 

STRUCTURED SYSTEMS 

GL or AR or AP or Pay $599/$40 
Inventory Control $599/$40 

Analyst $199/$ 25 

Lettenght ... $l79/$25 

QSort $ 89/$ 20 

SUPERSOFT 

Diagnostic I 

Diagnostic II 
Disk Doctor . . 
S Forth (8080 or Z80) 

Fortran 

Fortran w/Ratfof 

Other 

TCS 

GL or AR or AP or Pay 

All 4 

UNICORN 

>^ Mince 

• Scribble 

s Both 

WHITESMITHS 

"C" Compiler 

Pascal (incl "C") 

DATA BASE" 

FMS-80 . . 
dBASE II 
Condor II 
Access/80 



PASCAL 

Pascal/MT+ $429/$30 

Pascal/Z S349/S30 

* Pascal/UCSD 4 $429/$50 

• Pascal/M $189 .'$20 

WORD PROCESSING" 



• WordSearch 
SpellGuard . 
VTS/80 

Magic Wand 

Spell Binder 

OTHER GOODIES 

The Last One 

SuperCalc 

Target 

BSTAM 

• BSTMS 
Tiny C 

Tiny C Compiler 

CBASIC-2 

Nevada Cobo I 
^ MicroStat 

Vedit 

MiniModel 

StatPak 

Micro B + 

Raid . . 

Stnng/80 

String/80 (source) 

f ISIS II 

<s Plan 80 



$179/$ 50 
$229/$25 
$259/$65 
$289/$45 
$349/$45 

$549/$95 
$269/$ 50 

$189. '$30 
$ 149 $15 
$149 $15 
$ 89/$5r 
$229 $50 
$ 98/ $20 
$129/$ 25 
$224/$25 
$105/$1L 
$449/$50 
$449/$40 
$229/$ 20 
$224 '$35 

$ f*4/$20 
$279/$na 

$199/$50 

$269. $30 



INFO UNLIMITED 

EasyWriter $224 

Datadex $349 



$ 49/$20 

$ 84,520 
$ 84/$ 20 

$149/$ 30 

$219/$30 

$289/$35 

less 10% 

$ 79/$25 
$269/$99 

$149 $25 
$149/$ 25 
$249/$50 



$600/$30 

$850/$45 



$649/$45 
$629/$50 
$899/$50 
$749/$50 



less 15% 

$259 
$179 
$499 

$269 
$ 99 

$349 
$159 



Other 
MICROSOFT 

Softcard(Z-80CP/M) 

Fortran 

Cobol 

MICROPRO 
Wordstar 
Wail Merge 
Wordstar/MailMerge 
SuperSort I 

PERSONAL SOFTWARE 

Visicalc3.3 $159 

CCA Data Mgr $ 84 

Desktop 'Plan II $159 

Visiterm $129 

Visidex $159 

Visiplot $149 

Visitrend/Visiplot $229 

Zork $ 34 

PEACHTREE* 

General Ledger $224, $40 

Acct Receivable $224/$40 

Acct Payable $224/$40 

Payroll $224/$40 

Inventory $224/$40 

"OTHER GOODIES' 

dBASE II s 329 $50 
• VU «3R 

jsgw Vsicaic $ 79 

Super-Text II $127 

Data Factory $134 

DB Master $184 

Charles Mann less 1 5% 

STC less 1 5% 



ORDERS ONLY-CALL TOLL FREE VISA • MASTERCHARGE 

1-800-854-2003 ext. 823 • Calif. 1-800-522-1500 ext. 823 

Overseas— add $10 plus additional postage • Add $2 50 postage and handling per each item • California 

residents add 6% sales tax • Allow 2 weeks on checks. CO D. ok • Prices subject tc change without no'ice 

All items subject to availability • E — Mfgs Trademark 

THE DISCOUNT SOFTWARE GROUP 

6520 Selma Ave Suite 309 • Los Angeles, Ca. 90028 • (213) 666-7677 

Int'l TELEX 499-0032 BVHL Attn DiscSoft • USA TELEX 194-634 BVHL Attn DiscSoft 

TWX 910-321-3597 BVHL Attn: DiscSoft 



• 440 



.'See List ol Advertisers on page 386 
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by Dennis Kltsz 

"/ have yet to see you name programs 

that are no good. You are culpable in not disseminating 

this information. Must we continue to get ripped off?" 



Q. I recently wrote a Basic program with machine language 
interfaced within it. I found it was faster to save the Basic part 
of the program together with the machine language routines by 
using T-Bug, than to load them separately or to POKE them in. 
The program works perfectly when saved this way except for 
one thing: In order to list the program, it Is necessary to type 
Clear and hit enter before typing LIST. If you don't the computer 
will List the first line and stop. If you run the program and then 
List It, it works fine. 

My questions: Why is it necessary to type Clear, can you get 
around It, and why is it necessary to type ?MEM after returning 
from some machine-language programs? I know that this 
eliminates errors that occur if you don't, but what causes these 
errors in the first place? Also, is there any way to get a Basic 
program to run from a machine language Introduction? I have a 
program written, but the introduction is In machine language. 
Is it possible for the machine language routine to start the Basic 
program running when the introduction is finished? 

Nathan W. Harrington 
Nelson, Nebraska 



A. Welcome to Software Interfacing 101: Getting in and out 
of Basic with no help from Fort Worth. Your first question 
brings up an Interesting topic. The Clear subroutine is used 
quite often by Basic— after executing Clear, of course, but also 
after New, CLOAD, and Run. Its purpose is not only to clear out 
all variables (actually this is a consequence of the routine, not 
Its main objective), but also to reset properly all the line 
pointers in the Basic listing. What are line pointers? Basic 
picks Its way through a program listing in two ways— by know- 
ing a line's number (stored In binary) and also by knowing 
ahead of time the memory address of the next response line in 
the program. This memory address is its "pointer". 

The Clear routine automatically sweeps through the entire 
Basic program, adjusting line pointers according to where It 
finds the ends of lines. Depending on the condition of the Basic 
program when you first saved It to tape using T-Bug, your 
subsequent load attempts may actually be putting it in an area 
different from the one you expect. Hence, there Is an incorrect 
or truncated list. In your case, the line pointer that should be 
locating the second line of the program is instead pointing 
back to the first line. Since Run also uses the Clear routine first, 
that explains why the program Is automatically corrected by 
running it. The address of the Clear subroutine, if you wish to 
use it before returning to Basic, is 1E7A hex. 

The reason you have to type ?MEM (or something similar) 
when returning to Basic from some machine language pro- 
grams is because many programmers took Radio Shack at their 
word. In the original Editor/Assembler manual which so many 
programmers used, return to Basic was listed as address 1 A19 
hex. However, that address works only under certain condi- 
tions; registers have to be loaded and the stack pointer set up 



for re-entry without an ?OM Error message being printed upon 
entering the first Basic command. A better Basic re-entry point 
Is 06CC hex, which avoids both the ?OM Error message and 
rebooting a disk system. 

Finally, there is indeed a way to get a machine language 
routine to start your Basic program automatically. Here's the 
order: register HL is loaded with 41 E7, just before the beginning 
of the keyboard input area. Memory location 41 E8 is filled with 
Run token 8E, and location 41 E9 is filled with line terminator 00. 
Next jump to the master command execution routine, 1D5A. 
This is how it looks in assembly language: 



ID 


HL.41E8H 


; Get line buffer location 


LD 


(HL),8EH 


; Place RUN command token 


INC 


HL 


, Move to next buffer place 


LD 


(HL),00 


; Close out the line buffer 


DEC 


HL 


; Move back In the butter... 


DEC 


HL 


, ...to before the beginning 


JP 


1D5AH 


; And bow to master executor. 



Q. I've got a Model I Level II 16K machine with a problem. The 
computer runs fine until I run this program: 



10 READA.B.C 

20 PRINT A.B.C 

30 GOTO 10 

40 DATA 1,2.3.4.5,6,7.8.9 



When I run this program I get: 



1 2 3 

1 2 3 
1 2 3 



I've eliminated the Z80 and eight 16K chips by replacing 
them. I've had this computer since 1978 and I've Installed a 
lowercase modification in it. I own T-Bug and TLDLS but I haven't 
figured out how to use them yet. How can I figure out which chip 
is bad? 

SSgt Terry L Kuns 
APO New York 



A. The bad chip is your Level II ROM. However, don't replace 
it as the electronics aren't bad. There's a bug in the first version 
of Basic. It's too bad you paid for a new Z80 and 16K memory to 
find that out. Here's the solution. Whenever you are using any 
program that does tape I/O or performs Read/Data combina- 
tions, be sure this line appears somewhere at the start: POKE 
16553,255. 
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Q. I appreciated your January column about the programs 
you have found to be useful. But, I have yet to see you come out 
and specifically name programs that are no good. Surely in 
finding the good stuff, you have found a lot of junk. I feel you are 
culpable in not disseminating this information, especially 
when you have written about the stuff that is good. If the 
authors, such as yourself, who have an audience don't tell us, 
then must we continue to take a chance and continue to get 
ripped off? 

Larry Morgan 

College Place, Washington 



A. This column might seem an unusual place to answer 
Larry's letter, but I've received a lot of mail from TRS-80 users 
who feel they have been burned. Besides, bad software 
qualifies as a TRS-80 problem (see the answer to SSgt Kuns's 
letter above). Okay, there are enormous numbers of programs 
which I believe qualify as junk— some are given away, some are 
sold for outrageous prices, and some appear right in the pages 
of this magazine. Were I to name them, however, I would be 
overwhelmed with mail from people for whom such programs 
serve a valuable purpose. On the other hand, even the best of 
programs aren't good enough for those born of IBM. 

Okay, cop-out, you say. But really, what is a good program? 
Perhaps the thousands of meticulously crafted games of video 
violence which are published and sold? Not for my taste; it 
seems Klingons are only what you want to call them. How 
about compilers and other software with the name Fortran? As 
far as I'm concerned, keep 'em. I use Fortran as much as I use 
my years of high school Latin. And if I ever see another univer- 
sal calendar, hex-decimal converter, Basic word processor, 
telephone dialer, checkbook minder, or alien invader game— I'll 
scream. 

But does that mean I should pan one of these programs and 
damage both the author's credibility and pocketbook? You 
don't know me or any reviewer by more than what we write, and 
that's hardly a keyhole into our likes and dislikes, our 
capabilities and shortcomings. The best helping hand I can 
give is to tell you what I feel is good. Besides, if I believe it's 
awful, I'm probably not going to use it long enough to tell you 
why. 

(For a complete list of software that I hate, please send a self- 
addressed, stamped envelope, together with $5,000, to ) 

Q. I hate to bother you again. I have had a video bug in my '80 
for as long as I've had the computer (D board, bought used a 
year ago). When I have much of the screen whited out, the 
border around the portion of the screen that is not whited out 
warps, as in the sketches in Fig. 1. 





Fig. 1 Warped Screen 

When the entire screen is whited out, it has nice square 
edges, but when a black rectangle appears inside, the white 



outside the border warps. It interferes with a Breakthrough 

game I just purchased. 

Men Del Cooper 
New York City 



^ 



A. The problem is inherent in the video monitor, which is lit- 
tle more than a stripped television with repackaging (there are 
dial holes under that TRS-80 insignia) and a little electronic 
tweaking. Different generations of monitors were of different 
quality. Open up the monitor (with it unplugged, of course!) and 
look inside for the vertical circuit board or boards. If you have a 
single vertically mounted board, find resistor R????. Piggy 
back on it a 3,300-ohm, five-percent resistor (orange-orange- 
red-gold). You're all set. If you've got two vertical boards, or you 
want an even better fix, Archbold Electronics (10708 Segovia 
Way, Rancho Cordova, CA 95670) has an excellent video perk- 
up board for about $11, with full instructions. 

By the way, Men Del's balky power supply (August) turned 
out to be caused by a corroded screw clamping the power tran- 
sistor against the circuit board, causing the voltage to go off in- 
termittently. Emery paper and a hefty screwdriver cured the 
problem completely. 

Q. Just what is the purpose of the terminating resistors in 
TRS-80 disk drive 21-1 160? I have two Radio Shack drives and a 
four-place Radio Shack cable. I'm planning to get an additional 
non-Radio Shack 40-track drive. All the ads claim that their 
drives are compatible with the TRS-80, but when asked where 
the drive is placed relative to the Radio Shack drives, the adver- 
tisers avoid the question. Can you use the same Radio Shack 
cable for the non-Shack drives? If I wanted to send my Radio 
Shack drives in for repair, could I use the non-Shack drive 
alone? If I use all three together, where do I put the non-Shack 
drive? Do I have to advise the seller of the non-Shack drive that I 
intend to use it with Radio Shack devices? 

Lawrence E. Pyle 
No Return Address 



A. The hardware aspects of combining 35 and 40-track 
drives are not complicated, but let me first explain the purpose 
of those mysterious terminating resistors. Digital electronic 
circuits come In various families to suit electronic and en- 
vironmental needs. When long signal lines are involved, it is 
often wise to use circuits which are activated at the far end of 
the signal path. It is that kind of "open collector" circuit (see 
August Applications for a fuller explanation) which is used to 
activate the disk drives. In order for this circuit to respond, 
however, the open path must be closed. The termination 
resistors perform that function. One set is enough as too many 
can be damaging. 

If you have a Radio Shack disk drive cable, the drive defini- 
tions (0, 1, 2 and 3) are built into it. Other drives will work fine 
with that cable, but be sure to explain carefully to your vendor 
that you are purchasing a third drive (called drive 2) and wish it 
shipped without terminating resistors and with the select 
jumper properly wired. If you've settled on a good retailer, you 
will have no problem with this. 

If you have to switch drive positions, you might want to 
follow another course. Your most flexible drive should be in 
position 0, because this drive should be able to read all 40 
tracks on the disk. It gets more work to do than the rest in 
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checking directories, reading, saving, formatting, and such. 

It gets tricky now. If you are using TRSDOS, you have essen- 
tially a 35-track DOS which will ignore the extra tracks on your 
ew drive. NEWDOS was one of the first to handle 40-track 
drives, and virtually all new disk operating systems can do that 
and more (LDOS claims it can mix'n'match). First, decide if you 
wish to access those additional five tracks; if so, check 80 
Microcomputing's recent DOS issue and consider an operating 
system other than TRSDOS. When you have obtained it, check 
to make sure your Radio Shack drives are 35-track drives. Many 
were specified as 35-track units to maintain compatibility, but 
are actually 40-track devices. 

If you have only 35-track Radio Shack drives, then I would 
suggest your new 40-track drive be wired for position 0, with the 
terminating resistors installed, and that you move the 35-track 
Shack drives to positions 1 and 2. Remove the terminating 
resistor package from the Radio Shack drive by unscrewing the 
cover and finding the socketed, integrated circuit-like package 
(usually colored blue and sometimes marked 1E) and pulling it 
out. 

You may also have to rewire the drive-select jumper (position 
1F), though this is unlikely. If the DIP shunt is intact, leave it 
that way and depend on the Radio Shack cable to make the 
drive selection, if some shunt bars are broken, then you will 
have to reconnect the ones you need, and break the others. Pin 
1 connected to pin 14 selects drive 0; pins 2 and 13 select drive 
1; pins 3 and 12 select drive 2; and pins 4 and 11 select drive 3. 
Your TRSDOS manual has all the circuit details. 



Updates 

Many readers have asked how Z80 mode zero and mode two 
interrupts could be used with the TRS-80. I thought about the 
problem and came up with a typically mundane solution involv- 
ing piggybacking an integrated circuit and running a wire or 
two. Everett B. Ogden of Delmar, New York, had a better Idea: 



There are at least two easy ways to use these interrupt modes, one of 
which requires no Internal modifications. 

The internal mode is cleaner: if you never intend to use the Test Input, cut 
it loose from Z53 pin 4 and connect the INTAK output to that pin. 

Those who don't want to attack their keyboards can tie INTAK to Test on 
the edge connector. At first glance this would seem to generate a bus re- 
guest, which has priority over Interrupts. Studying the Z80 timing diagrams 
will show that this doesn't happen. The Z80 samples the bus request input 
only at the start of the last T-state of any M cycle (T4 for an M1 cycle). INTAK, 
the combination of M1 of IORQ, ends at the start of T3, so the Z80 does not 
see it on the BUSRO line. The messy part is that the Test Input also trl-states 
the address lines. In, Out. RO, WR. RAS. CAS and MUX. The INTAK pulse is 
short enough that refreshing isn't a problem, and if the In, Out, RO and WR 
lines are pulled high, it doesn't matter what happens to the address lines. 
Resistors could be used, but tri-state buffers are better. 

Special thanks to Mr. Ogden for a remarkable piece of in- 
sight. 

Readers please note that Radio Shack has discontinued the 
National Semiconductor data books. I highly recommend these 
references (especially the TTL and memory books), which are 
available from National Semiconductor (2900 Semiconductor 
Drive, Santa Clara, CA 95051), Digi-Key Corporation (Hiway 32 
South, Thief River Falls, MN 56701), and other distributors. ■ 



Desperate? Send your questions on Model I, Level II, TRS-80s 
to: Dennis Bathory Kttsz, Roxbury, Vermont 05669 



fiB 

/VICRCCCWPuTER 

TECHNOLOGY 
INCORPORATED 



TRS-80® MOD I 
TANDON DISK DRIVE 

comes complete with 
power supply, chassis, 
ONLY 



*289 




• Mod III Internal disk drive kit: 

A new low cosr infernal disk kir is available ro expand 
your storage capability. With rhis kit now. you moy 
expand your 16K TR580a, Mod III computer up to 
four MTI 40 track disk drives, giving you 1 75.000 
bytes of storage per drive for a total of 700K bytes. 

The kit includes one 40 track disk drive controller 
1 6K memory, power supply, cables, mounting hard- 
ware and installation documentation 
40 track Dual head 40 track 

Drive #1 $ 695 Drive #1 *779 

Drive #2 *279 Drive #3 l 369 

80 track Dual head 80 track 

Drive #1 $ 789 Drive #1 *929 

Drive #2 399 Drive #2 $ 569 

• 4MHz Mod III Speedup enchancement 

Doubles the processing speed of the Mod 
III systems 

With computer purchase: *149 

Retrofit M99 

SOFTWARE SALE 

Integrated Business Package 1 99 

Disk & System Diagnostic Mod III *49 

Memory Kit (16K) $ 43 

Disk Head Cleaner Mod III $ 24.95 

Diskettes Verbatim (10) hard ring 5" ss *30 

• TRS-80® Model III DOS 

and Manual $ 24.95 



^28 




MasterCard 



MICROCOMPUTER AA 
TECHNOLOGY INC. 

3304 W. MACARTHUR, 

SANTA ANA, CA 92704 

• (714)979-9923* 




US PRICES 
FOB SANTA ANA 
CALIFORNIA 



TRS-6C is a Rpgsre'eo T'acJe-".oM of Radio Shod- 
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M.T.I. 

MOD III 
PLUS 



Now You Con 
Sove $500 over 
comparable models. 




* We hove token the basic 1 6K Model III expended The 
memory to 48K ond added our MTl Double Density 
Dual Disk Drive sysrem Our sysrem is fully compatible 
wirh Radio Shack DOS and peripherals 



M998 



'SAVE J5O0 OVER 
MODELS WITH COMP 
SPECIFICATIONS 



MOD lll/EXPANDED 

Same as above bur has double storage capacity 
(708 srorage) Your choice of 2 dual heoded 4u 
trock drives or 2 single headed 80 rrock dish drives 

»2499 

MOD HI/280 

Our largest MOD III approximately 1 5 mega bytes 
of storoge utilizes 2 dual heoded 80 rrock double 
density disk drives Complete wirh monuols and 
pro'essionol operotmg system Miaosysrems DOS 
plus 3 

>2799 
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MICROCOMPUTER 

TECHNOLOGY INC. 

3304 W. MACARTHUR, 

SANTA ANA, CA 92704 

• (714) 979-9923 • 



MasterCard 



US PRICES 

F O 3 SANTA ANA 

CALIFORNIA 

DEALER. INQUIRES INVITED 




MTl MOD III SALES, 

PARTS (j SERVICE CENTERS 

-INDEPENDENTS DEALERS 

SAN JOSE CA .. 436 940*265 

SANTA CRUZ CA . .. 408 427 0836 

LANCASTER CA 605 942 5747 

-Oi'VILLE CA 7'4 356 5'85 

OXNARD CA . 605 466 563 / 

SAN DIE GO CA 7< 4 275 4243 

TEmPE A2 . . 602 639 0546 

PHOENIX AZ . . 602 244 V 739 

TUCSON AZ 602 323 939< 

SiERRA VISTA. AZ . . . 602 456 24 79 
DENVER CD ...... . 303 696 0777 

CHEYENNE Wv X7 632 9132 

TEXAS 2M 247 6679 

N S DAKOTA 701 594 5674 

MIDWEST 6" 8 345-5068 

JOPUN MO 4*7 781 ' 748 

CLEVELAND OH . . 2'6 '79-6343 
MAUMfE OH 419 893 4268 



GEORGIA 

FLORIDA 

TROY NY 

GROTON a 

OVERSEAS 

RfPOf SOWH AFRICA 

AUSTRALIA 



404 449 8982 
305 980-91 91 
516 273 8411 
203 445 5106 

02MMW7 

. 03 67 7 6946 



■See L ist ol Advertisers on page 386 
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NEW PRODUCTS 



Edited by Janet Fiderio 



Little Big Lisp 



S.A.T. Preparation Series Programs for Beginners 



Little Big Lisp, for the Model I, is avail- 
able from the Department of Computer 
and Information Sciences at the Univer- 
sity of Oregon. 

Lisp includes the Lisp interpreter, a 
Lisp compiler, a trace package for moni- 
toring the execution of programs, a Lisp 
structure editor, the RLISP programming 
language which provides a high level lan- 
guage interface to Lisp which resembles 
Algol and Pascal, and some sample pro- 
grams in Lisp and RLISP. 

The system requires a minimum of 32K 
and is available on a 5 1/4-inch disk com- 
plete with documentation for $30. Com- 
plete source listings are available on mag- 
netic tape for $100. For more information 
contact Jed Marti, Department of Com- 
puter and Information Science, University 
of Oregon, Eugene, OR 97403. 
Reader Service **167 



Color RAM/ 
EPROM Cartridge 



The CMEMORY plug-in cartridge for the 
Color Computer can supply the user with 
up to 8K of continuous memory which can 
be divided into any combination of 2K 
blocks of RAM Memory and/or 2176 
EPROMS. This product allows you to save 
frequently used utilities or games In easy- 
to-use cartridges. 

CMEMORY uses the unused address 
space $COO0 to $E000, normally used for 
plug-in game cartridges. By adding a 
jumper, the computer can be set to auto- 
matically execute a program in EPROM 
whenever the Reset button is hit. 

The CMEMORY cartridge sells without 
any memory for $24.95. 2K RAM chips are 
available for $19.95 each, 2K 2716 
EPROMs for $14, or you can use your own 
memory. Available from Micro-Labs, Inc., 
902 Pinecrest, Richardson, TX 75080, (214) 
235-0915. 
Reader Service ^338 



Krell Software has expanded its Col- 
lege Board S.A.T. Preparation Series from 
five to 25 programs. It now includes sec- 
tions on word relationships, vocabulary, 
sentence completion, reading compre- 
hension and mathematics. 

The programs are based on past exami- 
nations and present material of the same 
level of difficulty and in the same form as 
used in the S.A.T.s. 

These programs are available for the 
TRS-80 for $299.95, from Krell Software, 21 
Millbrook Dr., Stony Brook, NY 1 1790, (516) 
751-5139. 
Reader Service ^331 



Color Computer Game 



Packet Man, a popular arcade game, is 
now available for the TRS-80 Color Com- 
puter. 

Written in machine code, this game pro- 
vides the graphics of the Color Computer 
with the speed of machine code. 

The cost of the program is $24.95. A 
Level II 16K machine is required. Inquiries 
should be sent to American Business 
Computers, 118 South Mill St., Pryor, OK 
74361,(918)825-4844. 
Reader Service *^333 




Programs for Beginners on the TRS-80 
is written for the computer novice. Written 
by Fred Blechman and published by the 
Hayden Book Company, the book pro- 
vides instruction through 21 programs 
that run on a Model I and Model III TRS-80. 

Programs Include topics concerning 
business, bookkeeping, calculating loan 
interest, mortgage payments, Investment 
evaluation, and others. The four appen- 
dices include a video display worksheet, 
cassette-loading time charts for Level I 
and II, and a complete description, sche- 
matic and parts list for an audio/visual 
control box. 

This 150 page book costs $8.95 from 
Hayden Publishing Co., Inc., 50 Essex St., 
Rochelle Park, NJ 07662, (201) 843-0550. 
Reader Service ^162 



D-CAT from Novation 



The D-CAT from Novation is a directly 
coupled modem that is FCC approved for 
handset jack connection with any modu- 
lar phone. It operates with either single or 
multi-line phones without the need for 
adapters. 

D-CAT transmits data over telephone 
networks allowing one computer or termi- 
nal to talk to another. The direct connect 
feature eliminates distortion and lost- 
data problems. 

It is available for $199 from Novation, 
18664 Oxnard St., Tarzana, CA, 91356. 
(213) 996-5060. 
Reader Service *-349 



Lazy Writer 



The CMEMORY Cartridge 



Lazy Writer, a word processing system, 
is available in a new Model III version and 
an enhanced Model I version 1.8. 

The program is capable of reverse 
(hanging) indents, superscripts and sub- 
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scripts, offsetting text to the right, precise 
printing from cursor position, and printing 
chained files. 

Lazy Writer also provides a communica- 
tions program that works with a modem. 
The Model III version has an enhanced 
communications package, allowing 
stored characters to be sent with a single 
key stroke for logons, provides a "local" 
echo, and will receive a full eight bytes. 

Lazy Writer is priced at $125 for the 
Model I and $175 for the Model lll.lt is dis- 
tributed by Soft Sector Marketing, 6250 
Middlebelt Rd., Garden City, Ml 48135, 
(313)425-4025. 
Reader Service ^336 



QSO Log for 

Ham Radio Operators 



QSO Log, from Manhattan Software is 
directed at amateur radio operators. 

When a call sign is heard on the air the 
operator using QSO Log enters the sign 
into the computer QSO Log will list call, 
name. QTH, date, time, band, and notes 
on conversation and on the contact's 
equipment. 

The program dumps to tape, loads to 
tape, and allows on-screen review of all 
QSO records. It also allows updating, edit 
ing and deletion of entries and printout. 

The cassette version (16K or 32K) will 
run on the Model I or III and is priced at 
$1 4.95. For additional information contact 
Manhattan Software. P.O. Box 1063, 
Woodland Hills, CA 91365, (213) 704-8495. 
Reader Service ^339 



Agricultural Software 



Two new programs available from Agri- 
cultural Software Consultants, require a 
Model I or Model III with one disk drive, 
32K memory and an 80-column printer 

The first program, FEEDDATA. is de- 
signed for feed mills and nutritionists. It 
stores and retrieves feed data on disk and 
calculates the composition and nutrition 
al value of any combination of these 
feeds. FEEDDATA is priced at $60. 

MIXIT-2 is designed for feed mills, feed 
lots, dairymen, and poultrymen to deter- 
mine the "least cost" for any feed mix and 
more. MIXIT-2 is priced at $200 

For more information on these two pro- 
grams, contact Agriculture Software Con- 
sultants Inc., 1706 Santa Fe, Kingsville.TX 
78363,(512)595-1937. 
Reader Service ^348 




Magnetic Media Preservers 



Shield your Magnetic Media 



Durable metal cases which protect 
magnetic media from magnetic fields that 
cause degradation and erasure are now 
available 

These metal cases are magnetic media 
preservers designed for carrying or stor- 
ing. Models include cases tor the 5 1/4 inch 
and 8 inch flexible disks. A cassette tape 
preserver is also available. 

For more information contact the Mag- 
netic Shield Division of Perfection Mica 
Company, 740 N. Thomas Dr., Benville, IL 
60106. (910) 766-7800. 
Reader Service *«-341 



The Boss 



The Boss is an accounting software 
package which has integrated all ac- 
counting functions into one program. This 
software offers capabilities such as com- 
prehensive financial ratio analysis, loan 
payment calculations, amortization sche- 
dules, depreciation schedules and state- 
ment of changes in financial position. 

It has combined accounts payable, ac- 
counts receivable and general ledger so 
they can be accessed at any time during 
the program run. The Boss runs under 
CP/M. 

For more information on this account- 
ing management tool, contact Lifeboat 
Associates, 1651 Third Ave., NY, NY 
10028, (212) 860-0300. The Boss is priced 
at $2,495 
Reader Service ^350 



Exam 

Preparation Programs 



A series of Competency Exam Prepara- 
tion Programs are available from Krell Soft- 
ware. 

These programs consist of simulated ex- 
am modules, a diagnostic package, and a 
complete set of instructional programs 
They are designed to teach concepts and 
operations, provide drill and practice, and 
to assess achievement levels. The series 
provides a curriculum encompassing 
mathematical, reading and writing instruc- 
tion. 

The CEPS are available in two software 
formats: the National Proficiency Series, 
and the NY State Regents Competency 
Test Preparation Series Both are priced at 
$1,299. For more information contact Krell 
Software, 21 Millbrook Dr., Stony Brook, NY 
11790,(516)751-5139. 
Reader Service ^332 



Snapp II Extended Basic 



Snapp II Extended Basic is written in 
machine ianguage to increase execution 
speed. Extensions are fully integrated into 
Model II Basic and require no user 
memory or disk space. 

Snapp II includes a cross-reference 
ability, the ability to display and print pro- 
gram variables, a program line renumber 
ing ability, a cross reference facility for 
key words or character strings, and the 
ability to compress a program to the ab- 
solute minimum. 

It is available for the Model II for $200 
and the Model III for $125, from Snapp 
ware Inc., 3719 Mantell, Cincinnati, OH 
45236, (800) 543-4628 
Reader Service ^185 




The Boss 
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NEW PRODUCTS 




The Anadex Dual Mode WP-6000 

The Anadex Dual 
Mode WP-6000 Printer 



The W. 5 -6000 dot-matrix serial printer 
from Anadex provides high speed opera- 
tion and is capable of 150 characters per 
second in the letter-quality mode and up 
to 500 cps in the data processing mode. 

This printer features an 18-needle, dot- 
matrix print head consisting of two ver- 
tical rows of nine needles slightly offset 
from each other in the vertical dimension. 
Graphics capability is also provided. The 
WP-6000 can print a variety of foreign 
fonts and features bi-directional, logic- 
seeking operation, standard interfaces of 
RS-232, current loop or parallel (Centron- 
ics), and friction feed with an optional ad- 
justable tractor feed. 

The WP-6000 costs under $1,800 and is 
available from Anadex, Inc., 9825 DeSoto 
Ave., Chatsworth. CA 91331. 
Reader Service ^346 



TurboDOS 



TurboDOS is a new disk operating sys- 
tem for the Model II, compatible with Digi- 
tal Research's CP/M, version 2.x. 

TurboDOS features file management 
facilities, a sophisticated buffer manager, 
a reentrant file manager, automatic print 
spooling, a command language interpre- 
ter, and a command file processor. Other 
capabilities include an extensive set of 
utility programs, system date and time 
functions, standard communications 
channel interface, and more. 

A special introductory price of $195 for 
the spooling version is being offered from 
Data-RX, Inc., 686 Lighthouse Ave., 
Montery, CA 93940, (408) 375-2775. 
Reader Service ^342 



Mailing List System 



Precision Prototypes has announced 
an improved TRS-80 (Model I or III) mailing 
list system to use with large lists. Fea- 
tures include maintenance of all disks in 
continuous alphabetic or zip order, high 
speed sort and disk retrieval, and up to 
4640 (for Model III) addresses on-line. Two 
80-track drives are required. 

The system is specially geared to use 
advertising statistics in selecting and 
purging names for print outs. 

Hardware requirements are 32K, two 
disk drives, and a printer. The system is 
available for $69.95 from Precision Proto- 
types, 410 E. Roca, Refugio, TX 78377. A 
documentation manual is available separ- 
ately for $3.95. 
Reader Service ^344 



Card Reader Interface 



Chatsworth Data Corporation has de- 
veloped a special interface to the TRS-80 
Model III for its MR 500 and OMR 500 card 
readers. The interface plugs into the I/O 
bus jack of the Model III. 

A software driver and interface that 
enables the user to input data is supplied 
with their reader. The MR 500 reader util- 
izes an electric current technique for 
reading soft pencil marks; the OMR 500 Is 
an opticle reader. 

Educational applications for the TRS-80 
include grading tests, attendance and 
grade reporting, and teaching program- 
ming. Business applications for the read- 
er include inventory, labor distribution 
and time card recording. 

For more information on this product 
contact Chatsworth Data Corporation, 
20710 Lassen St., Chatsworth, CA 91311. 
Reader Service *^164 




The Ramlok Memory Protection System 

Memory Protection System 



Ramlok is a computer equipment pro- 
tection system that conditions supply line 
voltage and supplies a safe operating en- 
vironment for electronic equipment, espe- 
cially computer memory circuits. 

Ramlok filters line voltage with a dual T 
section RFI filter. It ensures correct volt- 
age limits and provides proper filtering to 
suppress RFI line noise and an uninter- 
ruptable power supply capability. The us- 
er provides the battery/inverter, Ramlok 
provides regulation control, filtering, bat- 
tery charger, failure indication and multi- 
ple circuit and the power distribution 
panel for equipment connection. 

It is sold for $495, from Ladco Develop- 
ment Co., Inc., P.O. Box 464, Olean, NY 
14760,(716)372-0168. 
Reader Service ^-160 



The RAM 
Communication Area 



The RAM Communication Area is a 
booklet which is intended for the TRS-80 
computer owner. 

It is a concise description of the Level II 
memory locations from 16384-17128 (4000- 
42E8). The booklet also contains an article 
dealing with number conversions. 

RCA is priced at $4.50 and is available 
from ABS Suppliers, P.O. Box 8297, Ann 
Arbor, Ml 48107, (313) 971-1404. 
Reader Service ^335 



Loan 

Amortization Schedule 




The Chatsworth Card Reader Interface 



This program allows the user to print a 
schedule of loan repayments along with 
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monthly and yearly principal and interest 
data. One of the options automatically ad- 
justs the pay date away from weekends 
and holidays. A built-in calendar ensures 
accuracy to the year 2099. 

The program is available for $19.95 on 
tape for the TRS-80 Models I, II, and III. 
Contact Precision Prototypes, 410 E. 
Roca, Refugio, TX 78377. 
Reader Service ^347 



Color Computer Newsletter 



Rainbow is a newsletter devoted solely 
to owners of the Color Computer and will 
be available every month. 

A typical issue of Rainbow will contain 
feature stories, hints and tips on opera- 
tion, sample programs and reviews of Col- 
or Computer-associated hardware and 
Software. 

Annual subscriptions sell for $12 and 
can be ordered through Rainbow, 5803 
Timber Ridge Drive, Prospect. KY 40059. 
Reader Service *^328 



Football Scouting 



The Football Scouting Report is a 
system of programs that analyze running, 
passing, and kicking plays. They run on a 
Model I or a Model III with 32K, one disk 
drive, and a printer. 

A team can be scouted up to five times 
before running a composite analysis, or 
each game can be analyzed separately. 
The package consists of eight programs 
that are suitable for both college and high 
school use. They are available from Preci- 
sion Prototypes, 410 E. Roca, Refugio, TX 
78377 for $89.95. 
Reader Service ^340 



Isaac Newton 



Isaac Newton is the name of an educa- 
tional game which challenges players to 
assemble evidence in support of particu- 
lar laws of nature. 

It is an inductive game allowing players 
to intervene actively in determining if new 
information supplied by the computer 
conforms to the laws of nature in ques- 
tion. 

Isaac Newton is available for the 
TRS-80 for $24.95 from Krell Software, 21 
Millbrook Dr., Stony Brook, NY 11790,(516) 
751-5139. 
Reader Service ^330 




K-8 Math Cross- Reference 

K-8 Math Cross Reference 



Radio Shack is publishing the K-8 Math 
Cross Reference to be used in conjunc- 
tion with their computer-based education- 
al programs for kindergarten through 
eighth grade. 

This teachers' reference coordinates 
the lessons in the K-8 math program for 
the Model I and Model III to materials in 
six of the most commonly used elemen- 
tary math textbooks. 

The price of this reference manual is 
$4.95 from Radio Shack, 1800 One Tandy 
Center, Fort Worth, TX 76102. 
Reader Service ^181 

300 Baud Modem 



Kesa Company has introduced the 
DataSpeak O/A-300, a compact, low cost, 
300 baud modem that connects directly to 
the telephone line with FCC part 68. 

The unit, featuring orignate and answer 



•v V 




modes, RS232 interface, and test mode, 
measures 3.5 inch by 4.5 inch by 1.5 inch. 
A unique "off hook" light alerts the user 
the phone line is in use. Power is supplied 
by a wall mounted power converter. Con- 
nection to the phone line and the user's 
telephone is by standard modular RJ-11C 
jacks. 

New phase-lock loop LSI circuitry 
allows the DataSpeak modem to deliver 
such performance at the price of $129. For 
more information contact Kesa Company, 
774 San Miguel Ave, Sunnyvale, CA 94086, 
(408) 746-2738. 
Reader Service ^163 



The Documentor 



The Documentor is a new programming 
utility that will flowchart a Basic program 
and provide the user with a branch map. 
The Documentor will run on the Model I 
and the Model III. 

This utility is an aid in error detection 
and will flowchart any program written in 
standard Radio Shack Basic Level II or 
Disk Basic. The Documentor is available 
in 16K, 32K, or 48K tape versions for 
$19.95 or a 48K disk version for $29.95. For 
additional information contact P80NUT 
Software, P.O. Box 490, Lilburn, GA 30247. 
(404) 469-0056. 
Reader Service ^334 



Supersnappx 



Data Speak 



A fast in-memory sort routine which of- 
fers additions to the Model II Basic Inter- 
preter Is available from Snappware. 

Supersnappx is a collection of expan- 
sions to Basic giving added capabilities to 
Model II. These capabilities include three 
kinds of PEEKs, three kinds of POKEs, an 
improved data retrieval function, an 
elapsed time calculator, a function that 
states how many file blocks have been 
used, and more. 

This product is available for $100 from 
Snappware, 3719 Mantell, Cincinnati, OH 
45236, (800) 543-4628. 
Reader Service ^327 



Game Played to NFL Rules 



Super Micro Pro Football is a game 
played according to NFL rules. It includes 
a wide range of fast, animated graphics. 
There are 16 offensive and seven defen- 
sive formations from which to choose. As 
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Do you LOVE the programs in the 

Encyclopedia for the TRS-80* 

but HATE all the keyboarding aggravation? 

Well, Wayne Green Books has a 
solution for you so put an end to 
your love/hate relationship. 

How? 

By a special arrangement with Instant Software™ Wayne Green 
Books can now provide you with the programs contained in each 
volume of the Encyclopedia for the TRS-80* on a special series of 
cassettes called Encyclopedia Loader. Your Encyclopedia 
provides the essential documentation but now you'll be able to 
load the programs instantly. 

With Encyclopedia Loader you'll save hours of keyboarding time. 

The aggravating search for typos is eliminated with Encyclopedia 
Loader. 

And you'll save money by taking advantage of this special 
introductory offer. 

With your cassette loaded, you're ready to determine the future of 
the United States as its President, or mail out those invoices for 
your business, or sword fight the dragons, or use any one of the 
other programs contained in the Encyclopedia Loader for Volume 
1 of the Encyclopedia for the TRS-80. 

First you must fill out and return this order blank or the card 
provided. 



V 



Encyclopedia Loader for 
Volume 1 of Encyclopedia 
for the TRS-80 includes: 

BUSINESS 

Down the Road 
After the Goldrush 
Business Forms: The Invoice 
How Much Interest? — The 
Rule of 78 

EDUCATION 

Measuring Instructional 
Effectiveness with the 
TRS-80 

Using a TRS-80 to Tabulate 
Student Ratings 

GAMES 

Swords and Sorcery II 
The President Decides 
Babe Ruth Is Alive and Well 

and Hitting Home Runs on 

My TRS-80 

GRAPHICS 

Four Graphics Methods 
TRSpirograph 
Adventures in Roseland 

HOME APPLICATIONS 

Car Pool 

Bio-Bars: Biorhythms in Bar 
Graph Form 

INTERFACE 

TTY Interface 



Encyclopedia Loader 

YES, I want to end this aggravating love/hate relationship. Send the ENCYCLOPEDIA 
LOADER for Volume 1 of ENCYCLOPEDIA for the TRS-80* which would normally cost 
$14.95 at the Special Introductory Price of $12.95 

— EL800110 Encyclopedia Loader for Volume 1 $12.95* * 

• "Please enclose $1 50 per cassette for shipping and handling Allow 4-6 weeks fof delivery 

Payment enclosed Please charge to my VISA Mastercard _ AmEx 

Card* MC Interbank* Expires 

Name __^_^^^ 

Address 

City 



Signature 



State 



-2ip 



'TR&80 is a trademark of Tandy Corp 



80 Microcomputing, Pin* St.. Peterborough, NH 03458 



8010 
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The Newest Peripheral 
for your Microcomputer 

The Encyclopedia for the TRS-80* 



^1 



What's the key to getting the most from your TRS-80? No. 
it Isn't disk drives or printers or joysticks. It's information. 
Without a continual supply of information and ideas, you 
can't realize the full potential of the TRS-80. 

Now , you'd think that the 150 pages of articles puhlished in 
80 Microcomputing each month would satisfy even the most 
voracious of TRS-fiO users. But no! You've asked for even 
more information! 

Our response to the clamor for additional information is 
the Encyclopedia for the TRS-80, a ten- volume reference 
work that is absolutely packed with programs and articles 
carefully selected to help you make die most of your 
microcomputer. You can consider the \olumes of the Ency- 
clopedia to be an extension of the documentation that came 
with your TRS-80. The articles and programs will Ik- similar 
to those found in 80 Microcomputing. Each book is full of 
material on programming techniques, business, games. 
tutorials, education, utilities, interfacing. >ou name it. 

Unlike conventional enev eloped ias, the Encyclopedia for 
the TRS-80 will never become stale or out of date. That's 
be cau se the volumes of the Encyclopedia are being issued 
one-at-a-time, over a period of months. This means that each 
new volume will reflect the latest developments and 
discoveries, making this a living cnevclopedia for TRS-80 
users. 

Volume I was out in July. Volume 2 will be shipped in 
September. Each volume will contain approximately 270 
pages of solid information no advertising. Here's a sample 
of what's included in Volume I: 



The Encyclopedia for the TRS-80 is available in two edi- 
tions. The deluxe COLLECTOR'S EDITION is u handsome 
green and black hardcover volume, with the title stamped in 
gold and a colorful protective dust jacket provided. These 
durable volumes are perfect for school and librarv use and 
make a handsome addition to your personal library. Thev are 
available for $1<).!*5 per volume. Also available is the more 
economical softcover edition. This contains all the informa- 
tion in the hardcover edition, but at a savings of over -15" ; .It 
is ruggedlv Ixnmd for heavy use and has an attractive green, 
ivory, and gold cover. Available for $10.95 |X'r volume. Both 
editions are in an easy- to- read 0" x 9" format which is tierfect 
bound to remain flat when opened. 



80 MICROCOMPUTING 
SPECIAL INTRODUCTORY OFFER 

Order the ratiw -I (|„ [fa* ton vol mue«f tli<-«-t aiKh'Kto i.» wnh-«U II 

linwl id the Fncvrlopedia for thr 'h> Fnc-\clop.-diji for thr 1RS-S0 ).»-. 

fKSSO and njoata the lanth volume »■■< mtyntf nawfc •••«!»•. tattoos, hm 

FRHU return lha thai volume within ten daw 

Ml ONM llMflO far 'l» Drat tan *»«!»«• will refund t he entin -amnunl <-l 

volumes of Ihi Mum hardoovar COL w»ir iwinlia- If at any rime you an 

IK TOR'S KDITION a regular rfwwinfted %,. ma) ranee) the remain- 

»t<l*l.50 Mil.ir mi; volume* and receive .. refund l»r th. 

PAH o\l V $83.60 for lb Or* ton fufl vaJae of thna? volume* The hnob 

vokjmei ..f ihi nftooivei adKion .■ will be autatnatiaaHy shipped to you 

nqjolai tlUMOvalw evarj <> weeks via I'Fs Take advantam 

PI US I hi- -i*xtA affar btrJudai UPS of d* offer oowt Van cant afford t< mto 

Nhi]<!»ini: unci handling cha-ai-M an .t.l.li r»il <m the nrwest pt-riphnaj tin l.n 

Honal s»vin0 of »li 00 cwloprdia for the fRS-HO (all yota 

Baal Inflation b\ buying th.- wboli »t ..«!<•' m t>»la% loi I I REI a- 1 -SOU 

now we cannot jBianuitae tfaaa «n« KfMM73,orusethecrwpoabalnworthc 

single volume pricei for hitun veJumai pottana^ald pnatnaid Indndad «> 'hv- 

Vim cannot lojel Preview tin firvt Mil- majDudDa 



Four Graphics Methods — Improved 
techniques for dealing with the 
TRS-80's low resolution graph- 
ics. 

TTY Interface— Build an interface 
hookup a Teletype to a TRS-80 

The President Decides A thrilling 
simulation that lets you make de- 
cisions as if you were President of 
the United States 

Measure Instructional Effectiveness 
- Mam programs teach or tutor; 
this one helps determine the ef- 
fectiveness of the lessons. 

The Invoice— A program for small 
businesses which produces cus- 
tom invoices. 

Punch Out Your Disks— Double 
your disk storage in seven easy 
steps 



>n tdc on* 



THE Encyclopedia for thi 

please reserve lor me a compipte sp! of the lirst ton voiumos of ihe Encyclopedia lor the TRS-80 
I wan' !o go first nass -,r send me the 1pi i»e hardbound COLLFCTORS EDITION a J199.M value fOl 
S164.00 postpaid. A total savings ol "534 <W over 'ho sinqlp volume pure' lO'dor f NH10TM 
Snort rre the bll.p co-la'" soH:.Ov-«' Pdilion the samp information at a suhstanlially n*ra pi.ro a$'09y 
va ue tor $83.00 postpaid! A io'a sa.-ngsnf S2596ow>' the singu> volume prtaal lO'rtm FNfiOHOi 
YES I WANT TO ST APT MY LNCYCIOPEDIA COLLECTION NOW' 

Vo-iimr i ol the-lehixp hardrovPr COLLECTOR'S EDITION (EN8101) $19 9S" 
Volume I of the Softrover edition (EN8081) $10 95' * 

Volume ? of the del ixo hardrover COl I FCTOR'S EDITION (FN8102I $19 95* ' 
Volume Pol tho Snltrovpr orji'inn (FN8082) $10 9V 

"(PrSSSS inclose $1 V) p<" voli.me lor shipping and hand' nc. AH voiumps *il- he sh-pper- UPS ' t"e complete 
s'li-i!" ,ii', lr«"ss s piovidc 1 . iT'if>r wisi sh-p"v>n| ■, h, 4ih <:iass book ratp i Allow ?3 weeks for delivery 
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Payment enclosed 

Card* 

Name 

Address 

City 

Signature 



Please charge to my VISA _ Mastercard 

MC Interbank* Expires 



AmEx 



State 



Zip 



80 Microcomputing. Pine St.. Peterborough, NH 03458 

•THSB0 ir a fadpmaoc of Tan-tv Corp 



8010 



♦♦SPECIAL* 'SPECIAL** 

TfcS-60 ADD ON DRIVES 

IMMEDIATE DELIVERY 



SINGLE SIDED $225.00 
DOUBLE SIDED $345.00 



COMPLETE SYSTEMS 
SINGLE SIDED $365.00 
DOUBLE SIDED $485.00 

INCLUDES 
MINI DISK DRIVE 
FUSED POWER SUPPLY 
VENTED CABINET 
CABLE 

90 DAY WARRANTY 
FACTORY ASSEMBLED 
FACTORY TESTED 

THESE ARE NEW 5" FD's 



I 



9 INTERFACE, INC "*« 

20932 CANTARA ST 
CANOGA PARK, CA 91304 
(213)341-7914 

VISA AND MASTER CHARGE ACCEPTED 



NEW PRODUCTS 



KEEPIT 3.0 

Knhanres Level II Basic 
Written by Dennis Balhory kits/ 

KEEPIT performs these functions: 

• Single-step a Basic program 

• Reset Memory Size from Basic 

• Save a running program with variables 

• Save machine code or a rnemorv block 

• Restore an accidentally deleted program 

• Observe A change memory locations 

KEEPIT also features: 

Keyboard debounce, audible beep, ami auto 
repeal! KKEPIT 3.0 i* written in machine 
language ami resides in less than I ,fHM) bytes of 
high memory KDTASM source code is supplied 
so the user can relocate KEEPIT to any conven- 
ient location. 

How to order KEEPIT: 

I.cm'I II users will wonder how they ever 
lived without it! KEEPIT 3.0 is extremely 
valuable as a time and frustration saver! To 
receive your copy, send your name, address 
and just *4.y.~> to: 

("liJlL " 138 1806 Ada Street 

IkfaSj? 1 Lansing. Ml 18910 

' \ Vjl] ; "•" Ph. 5 1 7 / 465 -0314 

VV' or 487*3358 



I isa & \l aster Charge add V", . 
COD. add $ CM. 
Add T.5< for First (.lass Delivery. 
All orders shipped within 24 hours.' 



the game progresses, the computer's 
team adjusts its offensive and defensive 
strategy according to the game situation. 
Cumulative game statistics are updated 
after each play. 

Versions are available for the Model I or 
III, on tape or disk, 16K and up. Prices start 
at $12.95. For more information contact 
Micro Pro Systems, Rte. 2, Box 533, Cum- 
ming, GA 30130, (404) 887-6814. 
Reader Service ^165 

"ABC" Switching Units 



Giltronix has introduced a new group of 
"ABC" switching units which allow the 
sharing of a common device such as a 
printer or terminal between two computers. 

The units include the GRS-232-S8AB 
($99) and the GRS 232S24AB ($106). The 
-S8AB switches the eight lines of the 
RS232 interface pins and the -S24AB 
switches all 24 lines of the RS232 inter- 
face. 

The units can be ordered with these op- 
tions: monitoring capability, dual units, 
and a rack mounting option. 

For more information contact Giltronix 
Inc., Microcomputer Systems and Ser- 
vices, 450 San Antonio Rd., Suite 44, Palo 
Alto, CA 94306, (415) 493-1300. 
Reader Service ^168 




The "ABC Switching Units 

Design Grids 



A full line of computer forms-design 
grids are available from The House of 
Grids. These grids are helpful to forms de- 
signers and computer programmers to 
check the accuracy of form proofs. 

The grids have an overall size of 
12-inches by 18-inches and have the fol- 
lowing features: numbered print posi- 
tions, split print position indicators, and 
standard size indicators for depth of 
forms. 

The grids are available on stable based 



film for $40 each or on a paper pad of 50 
for $9 50 from The House of Grids, 135 E. 
York St., Akron, OH 44310, (216) 376-3974. 
Reader Service ^180 

Fast Sort 



Fast Sort is a short Basic program with 
embedded machine code. When merged 
by disk with a user's own TRS-80, Model I 
or Model III Basic program, it will allow 
sorts of strings (alphabetizing), integers, 
and single or double-precision numbers. 
Ascending or descending order is also se- 
lectable. 

Typical sort times are 50 seconds for 
5000 integers and eight seconds for 1000 
double precision numbers. For more infor- 
mation contact Precision Prototypes, 410 
E. Roca, Refugio, TX 78377, (512) 526-4758. 
Fast Sort sells for $19.95. 
Reader Service ^343 



Basic Compiler 



Radio Shack is offering a Basic compil- 
er for the Model I and Model III computers 
with 48K and dual disk. This system is a 
business-oriented Basic intended to be 
used as a development package for new 
software. 

RSBasic includes three programs: 
RSBasic compiles programs; BEDIT is the 
editor for Basic source programs; and 
RUNBASIC executes compiled Basic pro- 
grams. All three are provided on 5 1/4-inch 
floppy disks. 

For more information contact Radio 
Shack, 1800 One Tandy Center, Fort 
Worth, TX 76102. 
Reader Service ^166 

Adjustable 
Microcomputer Table 



Smith System Manufacturing has de- 
signed a new microcomputer table which 
adapts to both the operator and the com- 
puter. 

The 16 inch deep keyboard surface ad- 
justs vertically on one inch centers from 
24 to 28 inches high. The 16 inch deep 
monitor surface is fixed at 30 inches high. 
Both tops have radiused corners and soft 
edges for safety, and are available in 
either a 30 or 42 inch width. The table has 
a cantilever design for easy access. 

For more information, contact Smith 
System Manufacturing, P.O. Box 43515, 
St. Paul. MN 55164, (612) 636-3560. 
Reader Service k*345 
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TRS-8UPR0GRAMS 
SUPER SOFTWARE AT SUPER PRICES 



THE ULTIMATE DISK-OPERATING SYSTEM 

LDOS™ 

A completely documented new generation of 
operating system for tne TRS-80. Far superior to 
any on the market. It is a totally independent 
device system, capable of device linking, routing, 
setting, and filtering. LDOS will support 5" and 8" 
floppies, single/double density, single/double 
sided, and up to 80 tracks. Full customer service 
provided with a toll free 800 number. Excellent 
documentation in a tab indexed manual (over 250 
pages). Call or send for more information today. 
Available for Model I 

or III only $169.00 

LDOS™ is a product of 
Logical systems Inc. 



ALSO AVAILABLE 

EOAS 3.5 Model I and III. . . $79.00 
EDAS 5.0 Model II $179.00 

Host Model II was $199.00 

now $99.00 




galactic 



MAILING SYSTEMS 
MAIL/FILE - SERIES II 




MAILING SYSTEMS 

are then completed later in a "batch mode". The 
System comes complete with extensive 

documentation and ongoing support 

Contact Galactic Software for detailed 

specifications for your exact needs. Available 

only for the trs-80 Model II. 

BUSINESS SYSTEMS 

INVENTORY MASTER SYSTEM 

A program to free your 
needs, handling up to 2700 
items. With today's market, 
keeping on hand only what 
your demand calls for is reason 
enough to let your TRS-80 
accurately and effectively take 
care of your inventory. Always 
know what to stock and when to 
stock it. Have a multitude of 
reports at your finger tips. This 
system has many features which 
were modeled after a main frame 
system of large capacity. More infor- 
mation available upon request. 



software 



y. 



NEW Series ll Mail/File has all of 

the outstanding features of the 

original Series I Mail/File, PLUS 

many additional qualities which 

again will sewartfards for 

this Wpe^B^w^'Word 

processc^urarriput editor, 

fast sortiiw^nd fabulous 

editing daSfbilities are a 

few of its features. Name 

and ZIP code are under 

constant sort. Series 1 1 is 

compatable with Series I data files. 

Model I system will handle up to 600 names. 

Model in system will handle up to 1200 names. 

Either system available for only $159.00 

Also available for the Model ll $199.00 

Handling up to 2500 names per file 

MASS/MAIL SUBSCRIPTION SYSTEM 

AVAILABLE FOR MODEL II. 
THE ULTIMATE IN MAILING SYSTEMS 

•/ think the system will stand the test of time . . . it Is probably 

the most sophisticated system around for the micros today 

Mike Schmidt (editor) 80US Jan/Feb pg. 94 

Galactic's Mass/Mail System was designed with 
the needs of the large mailing list in mind. This 
system has capabilities of handling up to 10,500 
records, with access times of less than 1 5 seconds 
and usual access of about one second. All adds, 
deletes and edits are instant for the operator and 



11520 North Port Washington Road 
Mequon, Wisconsin 53092 



Model I version Just $159.00 

Model m version Just $259.00 

ALSO AVAILABLE . . . 
For the MODEL I or III 

STOCK MARKET MONITOR 






cassette version $89.00 

Disk version $99.00 

ULTRA-TREK GAME 

can you master this trip 
through the galaxies? As 

commander, will you be 

able to keep the Enterprise 

and its crew en route and on patrol? can you 

destroy the hostile base? Order today. 



Send me the following: 






D LDOS Model I 


S169 00 


n INVENTORY MASTER Model 1 S159.00 


O LDOS Model III 


. S169 00 


n INVENTORY MASTER Mode! Ill . S259 00 


Q EOAS 3.5 Model I 


S79.0O 


D STOCK MARKET MONITOR Model 1 


D EOAS 3.5 Model III 


. . S79.00 


cassette S89 00 


D EOAS 5.0 Model II 


.5179 00 


disk . . S99.00 


D HOST Model II 


. . sgg oo 


□ STOCK MARKET MONITOR Model III 


n MAIL/FILE II Model I 


SI 59.00 


cassette . . . $89.00 


C] MAIL/FILE II Model III 


. S159.00 


disk S99 00 


n MAIUFILE ll Model II 


si 99 on 


D ULTRA TREK Model 1 . . .. SI9 95 


n INFO ON MASS/MAIL MODEL ll 




[1 ULTRA TREK Model III.. 519 95 



G I WOULD LIKE MORE INFORMATION ON THE FOLLOWING: 















snn.RF';'; 



Mail to: galactic 

software ltd. 

Cant wait? call 
414/241-8030 



J81A 



1 1520 N. Port Washington Rd 
' Mequon. Wl 53092 



TRS-80 A Trademark of Tandy Corp 



Intelligence . . . Through the Ages 



The splendid achievements of 
the intellect, like the soul, are 
everlasting. 

Sallust (86-34 B.C.) 

The controlling intelligence 
understands its own nature, and 
what it does, and whereon it 
works. 

Marcus Aurelius (A.D. 121-180) 



Intellect is invisible to the 
man who has none. 

Schopenhauer (1788-1860) 




The intellectual world is divided 
into two classes — dilettantes, on 
the one hand, and pedants on the 
other. 

Miguel De Unamuno (1864-1936) 

Thought is the labor of the 
intellect, reverie is its 
pleasure. 

Victor Hugo (1802-1885) 

The voice of the intellect is a soft one, but 
it does not rest until it has gained a 
hearing . . . This is one of the few points in 
which one may be optimistic about the 
future of mankind. 

Sigmund Freud (1856-1939) 





Every intellectual 
product must be 
judged from the point 
of view of the age 
and the people in 
which it was 
produced. 

Walter Pater 

v •*. • i u (1839-1894) 

humanity i love you because 

when you're hard up you pawn your 

intelligence to buy a drink. 

e.e.cummings (1894-1962) 

A test of first rate intelligence is the ability to hold 
two opposed ideas in the mind at the same time, 
and still retain the ability to function. 

F. Scott Fitzgerald (1896-1940) 
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The fact that a man knows right from 
wrong proves his intellectual superiority to 
the other creatures; but the fact that he can 
do wrong proves his moral inferiority to 

any creature that cannot. 

Mark Twain (1835-1910) 



We should not pretend to 
understand the world only by 
the intellect; we apprehend it 
just as much by feeling. 

Carl Gustav Jung (1875-1961) 



Intelligence ... is the faculty 
of making artificial objects, 
especially tools, to make tools. 

Henri Bergson (1859-1941) 






Artificial Intelligence 

Technology and 

The Search for Self 



by Chris Brown 
Technical Editor 



In the early 1950s, two seemingly unre- 
lated events took place. The first was 
the airing of an episode of the popular 
television series, "I Love Lucy," in which 
the lovable redhead and her zany com- 
panion Ethel found themselves working 
on a high speed bon-bon production line. 
The second was the publication of a sci- 
entific paper by Alan Turing titled "Comput- 
ing Machinery and Intelligence." Worlds 
apart in audience and approach, these 
events were, none-the-less, related. 
Turing's paper posed, for the first time, the 
philosophical question — "can machines 
think?" The "I Love Lucy" episode illustrat- 
ed the essence of intelligence and thinking 
that Turing was forcing the scientific com- 
munity to examine. 

Turing's thesis, that machines could in- 
deed think, quickly drew fire from 
philosophers who eagerly mired his theory 
in arguments over semantics. What, they 
demanded, do you mean by "thinking?" 
What is a machine? How is intelligence 
defined? Though they posed questions 
worthy of consideration, the philosopher's 
linguistic nitpicking did nothing to further 
the cause of scientific inquiry. It did 
alienate the early Artificial Intelligence 
community to the point of inaudibility, 
however. 



Semantics were of no concern to Lucy 
and Ethel. All they knew was that in their 
immediate environment that damn con- 
veyor belt was supplying bon-bons faster 
than they could pack them into boxes. So, 
in a desperate attempt to keep their jobs, 
they began to eat every tenth bon-bon. 
Then, as the belt speeded up, they ate 
every fifth, every third and eventually, 
every other. Finally, with cheeks bulging 
like October chipmunks, they ate every 
bon-bon that came down that line. Though 
feeling increasingly queasy, they had done 
what no machine had yet been able to do. 
They had adjusted their behavior to their 
surroundings in accordance with the 
demands of changing conditions. They 
had adapted and in doing so displayed the 
intelligence that Alan Turing believed com- 
puters would one day be capable of. 



"Ask those involved to 

define what they are 

researching. . . You'il 

get as many definitions 

as you have 

researchers. " 



Technologically, we have come a long 
way since the days of "I Love Lucy" and 
Alan Turing. We still don't have computers 
that perform as well as Lucy and Ethel, 
however. Philosophers and artificial in- 
telligence researchers are still arguing 
over semantics and methodology. And 



most important, Alan Turing's question, 
"can machines think?" has yet to receive a 
satisfactory answer. 

What It Is 

What exactly is artificial intelligence(AI)? 
In essence it is a method by which we can 
learn about the nature of knowledge and 
the nature of man. Ironically, the most 
functional definition of Al lies with the 
man who originally broached the issue, 
Alan Turing. His Turing Test is not con- 
cerned with the methods used to produce 
intelligence but, rather, with the end 
results. In a modern day version of the Tur- 
ing Test a human subject is presented with 
a keyboard and a video monitor which he 
uses to converse with two unknown 
sources of information. One of these 
sources is a machine, the other a human. 
Though the subject is aware he is dealing 
with one man and one machine, he does 
not know which is which. By interrogating 
his sources, the subject must determine 
which is the machine. If he fails to do so 
better than 51 percent of the time, the 
machine can be said to have successfully 
simulated human intelligence. So far, no 
machines have passed this acid test. In- 
creasing numbers are coming close, 
however. 

Ask the people involved in the research 
to define what exactly it is they are re- 
searching and you will get as many defini- 
tions as you have researchers. The fact is 
that Al is a vague field that encompasses 
the least understood aspects of human ex- 
istence, conscious and unconscious 
thought. Patrick Winston, an Al veteran 
and member of M.l.T.'s artificial in- 
telligence group, defines artificial in- 
telligence research as "the study of ideas 
which enable computers to do the things 
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that make people seem intelligent." Philip 
Jackson, a textbook author and Al re- 
searcher for Xerox offers, "Al is the ability 
of machines to do the things that people 
would say requires intelligence." Abe 
Lockman, an Al researcher and professor 
of computer science at Rutgers University 
says, "Al involves the creation of systems 
that simulate intelligent human functions 
and that handle I/O in a manner similar to 
the way humans do." The salient feature of 
each of these definitions is the simula- 
tion of intelligent human thought by a 
machine. 

The Goals of Al 

It is possible to get a clearer idea of 
what Al is about by examining its goals. In 
a succinct statement of purpose, M.l.T.'s 
Patrick Winston identifies Af's goals as 
follows: "The central goals of Al are to 
make computers more useful and to 
understand the principles which make in- 
telligence possible." The first goal, mak- 
ing computers more useful, is the easier of 
the two to attain and many of the tech- 
niques developed during the course of Al 
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research are routinely used in both pro- 
gramming and hardware design today. 
Some of these include the structures for 
languages like Lisp and Logo and the 
methods of expert systems analysis. 

The second goal of artificial intelligence, 
understanding the principles of intelli- 
gence, is not so easily achieved and has 
much broader ramifications. In Al's con- 
tinuing search for a mental model that 
closely resembles the human thought 
process, many theories have come and 
gone. At first it was believed that the 
study of problem solving, pattern recogni- 
tion and theorem proving would yield the 
most accurate model of human thinking. 
Over the past ten years, however, the em- 
phasis has shifted away from these areas. 
Today, many researchers feel that the key 
to unlocking the secrets of human cogni- 
tion lies in discovering how we process lan- 
guage. In university laboratories across the 
country projects are underway to determine 
just that. 

Programs That Read 

At Yale, computer programs with names 



like Sam (Script Applier Mechanism), 
Frump (Fast Reading and Understanding 
Memory Program), Pam (Plan Applier 
Mechanism) and Politics have been 
developed in efforts to validate theories 
about language processing. 

Sam is a program that understands 
stories that have been written according to 
scripts (data structures that describe 
situations in certain ways). Sam is capable 
of creating its own concepts of what has 
happened in a story by parsing sentences 
and drawing inferences. It can provide 
paraphrased versions of stories that are 
longer than the original by elaborating on 
what it has learned from its reading. 

Frump is a similar but more flexible pro- 
gram. Frump skims a newspaper from 
beginning to end looking for subjects in 
which it is interested. Once it finds a rele- 
vant subject, it applies the rules of a gram- 
mar to determine the information it wants 
to know. Frump is a fast program by Al 
standards and its paraphrased summaries 
read like the copy of newspaper night shift 
rewriters. In addition, Frump is virtually 
language independent. It is easily able to 

—Reader Service for facing page ^566— 



If you've ever missed a deadline, 
forgotten an appointment, waited on late 
deliveries or lost track of projects, put 
ANGEL to work for you. 

ANGEL is the new software program 
for microcomputers that helps organize 
and manage your business flow. It's 
strictly business. 

FAST AND EASY 

With a series of simple one-line entries, 
ANGEL can schedule every phase of your 
projects and appointments, however 
simple or complex. Then, each day, ANGEL 
will give you a run-down of every action 
that needs to be taken to complete all your 
work on time, whether it's due tomorrow or 
ten years from now. 

ANGEL's large capacity allows you to 
log and track up to 2,000 individual 
projects at once. With ANGEL's help, you 
can eliminate reams of files and hours 
upon hours of costly business delays and 
missed deadlines. 

SPEAKS SIMPLE ENGLISH 

ANGEL speaks plain English. No 
computer language to memorize, no codes 
to decipher. Sit down and talk to it, face- 
to- face. If ANGEL doesn't understand, it will 
respond in plain English. If you make 
a program error, ANGEL tells you how to 
correct your mistake through the use of 
a built-in video manual. ANGEL is so easy 
to use, you can turn it on and enter 30 items 
in less than five minutes. 

WORKS FOR ANY BUSINESS 

You can custom-program ANGEL for 
any business operation — from oil 



exploration to insurance, home 
construction to retail sales. 

With a memory capacity that's limited 
only by the capacity of your disk storage, 
ANGEL tracks multiple projects for busy 
executives. The disk comes with an 
easy-to-understand printed manual, to 
back up the built-in set of instructions 
of the program itself. 

In addition, a data-proof safeguard 
system will not let you accidentally 
erase entries, and a special password 
code of your choice allows you to keep 
confidential files. 

Put ANGEL to work for you today. 
You'll never lose track of your work 
flow again. 

ANGEL is recommended for use with 
any disk-based system that has 48k 
memory or more. It will operate wil 
any CP/M"-based system and the 
TRS 80" (Model I, II or III). The 



program comes on standard 5'/4-or 
8-inch disk, with storage sleeve. 
Now only $295. 

ANGEL is available only through Time 
Management Software. It is not sold 
through any outlets at any price. Order the 
complete program for better business by 
calling one of our toll-free numbers or by 
returning the order blank below. 

Call now toll-free to order (Ask for 
operator b02) 

1-800-824-7888 (nationwide, 
except California, Alaska and Hawaii) 

1-800-852-7777 (in California) 

1-800-824-7919 (in Alaska and 
Hawaii) 



Yes . . . I need ANGEL to work for me, lo organize my business with ultimate ease 
and efficiency. 



I have enclosed $295 to avoid delays, shipping and handling charges. 1 

a Check O Money Order 

D C.O.D. (If delivery address is different than above, please specify) 

Please specify one: D 5>/4-inch disk D 6-inch disk 

Please specify one: D CP/M # Operating System Q TRSDOS" Operating System 

Price includes tax, handling and shipping (except C.O.D. orders) 



TIME 

MANAGEMENT 
I SOFT WARjT 

12!) E. Broadway 

P.O. Box 727 

Cushing, Oklahoma 740211 



* Ki'Kivirinl ii.iili-m.irk ot Dipi.il Research, Inc. 
" Ki-K"ii'inl liadrmaii ot tandy Corp. 



THELEAST 



YOU CM BUY. 



1'p to 77 high-quality programs 
for TRS-80, only $10.95 



NewBa sic— expands disk basic 
Now configure your Basic to do any or 
all of the following: 

• Convert decimal to hex. and vice versa, provide 
character representation tor each, or the hex-dec 
number of any character * Blinking cursor 

• Repeat key* Audible key entry (each key makes 
a sound)* dlrertory command from Basic • Disk 
load and disk run command file • Graphic 
functions, including drawing blocks, lines, filling- 
in blocks • Lowercase driver • RS232 driver 
(LPRINT-I.l.IST) ■ Call function, hex-order 
number will execute subroutine • Spooler and 
despooler • Print toggle. LPRINTS your video 
display ■ Find (lorate a Basic command or string) 
Modular Software Assoc ; tape $19. 95, disk $29.95 



Level II Tapes 



'Tiny' Pascal runs on any 16K Level II system, in 
eludes the programming structuring capabilities 
of full Pascal, but not data structuring 

Able to compile Z-80 machine code, programs run 
about 5X faster than Level II Basic— graphics run 
eight times faster! Requires use of T- Bug (or Tape 
7) and ETASM 
Tape 3, People's Pascal $19 9S 



Tape 1, 34 huts., edu 
Tape 2, 77 progra 



progs 



$10 95 



from Osborne bonk. So 



Common Basic Programs 
Tape 5, 24 buis., edu., game.progs. 
Tape 7, 31 buis., edu.. game progs. 
Tape S, 40, Inc. 4X tape speedup 
Tape 9, 25 buis., edu., game progs. 
Tape 10, Income tax, checkg act 
People's Taxman, fills-out all form 



$10.95 
$10 95 
$10.95 
$10.95 
$10.95 
$10.95 
$39.95 



PASPATCH 



PasPatch, Tape 6P, makes Tandy tiny 
Pascal a powerful disk system! 

Modular Software Assoc $19 95 

SuperPIMS— People's Database 

PIMS has bpen greatly speeded up and simplified, 
with machine-language sorts, key denounce, 
optional automatic lowercase (no keying, no 
hardware mod) on labels or reports. Up to 20 
fields, limited by 240-character maximum per 
record. Easy to revise, add records, split or 
merge files, sum or average any fields 
Customized fortape, tape & disk, Zoom, TC8 Poor 
Man's Floppy, B17, Stringy Floppy— all on one 
tape! As mailing labels program, easily manages 
20,000 list. CIE does! Advanced labels module to 
come, $24.95, making system most powerful 
mailer available! $25.90 on disk 

program (CIE) $19.95 ($21.15 CA) 

book, details uses (CIE) $11195 ($12.67 CA) 

NEW: Send for free monthly catalog 
10% DISCOUNT 
when ordering 3 items 
totaling $50 or more 

Add $1 shipping per order 

Games for color TRS-80 

Modular Software Assoc, tape contains: 

• PONG-BO • ENTRAP • DEMOLISH (like 
Breakout) • TRAFFIC (Grand Prix auto race) 

• BETA TREK space game • SHUTTLE (rocket 
ship game). $19.95 ($20.55 CA) 

Word Processing Newsletter 

Want to really USE your computer? Then word 
processing is for you. Let your computer show you 
how much easier writing can be. 

Learn about the new 510 cps 'non-daisy' that at 
10X daisy speed gives correspondence quality, at 
less than twice the cost. Too slow'' The really fast 
guys are coming. How about 30 11x14 typeset- 
quality documents per minute? Maybe you could 
use the same 'printer' as a copier. 

How about an inexpensive ($169) magnetic card 
reader-writer that would let you input mail 
addresses, letter paragraphs, even small 
programs? 

Read about all this and more In Low Cost Word 
Processing, the only newsletter about word 
processing using your personal computer. Just 
$15 for 12 Issues. 

All orders charge card, check or m.o. 

Calif, residents add 6 pet tax. Dealer lnq. Invited 

Overseas, add $1.50 per tape postage 



COMPUTER INFORMATION EXCHANGE 

Box 159 -,, 

San Luis Rey CA 92068 ' d 
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"What do you mean by "thinking?" What 
is a machine? How is intelligence defined? 
The philosopher's nitpicking dip nothing . . 



paraphrase in English, Spanish and Rus- 
sian, depending on which grammar is in its 
database. 

Hawks and Doves 

Politics is a program that uses a 
database of political philosophy to answer 
hypothetical questions regarding the 
motives behind (and consequences of) cer- 
tain political actions. It accepts input in 
the form of questions, examines its data 
base and supplies answers in tersely 
worded sentences that would be much too 
concise for most State Department 
spokesmen. When loaded with its conser- 
vative/hawk database and asked why the 
Russians had massed troops on the 
Czechoslovakian frontier, the program 
answered, "Because Russia thinks it can 
take control by sending troops in." When 
asked what Russia would do next, it 
answered, "Order its troops in." When 
asked what the U.S. could do about the 
situation, it suggested, "Intervene militar- 
ily." Loading in the liberal/dove database 
would have resulted in different answers. 
Politics is used to supply scenarios of 
hypothetical situations according to the 
tenets of various political philosophies. At 
present, programs similar to Politics are 
helping decision makers examine the con- 
sequences of their actions before things 
have gone too far. 

In all these programs, researchers have 
been able to get machines to interpret 
language and draw intelligent conclu- 
sions. In fields like medicine and geology, 
programs such as these have already per- 
formed at the level of human specialists 
and experts. Whether helping to diagnose 
bacteriologic infections from a myriad of 
symptoms (MYCIN) or predicting the loca- 
tion of natural resources from existing 
geologic conditions (Prospector), the 
value of such programs to society is ob- 
vious. This is the practical aspect of the 
often esoteric field of artificial in- 
telligence. On a larger scale, Al can help 
philosophers, psychologists and linguists 
in their work by allowing the integrated 
thought processes each of these people 
study to be dissected, examined and 
mimicked by machines. 

Conservative Outlook 

For Abe Lockman and other research- 
ers, Al is a promise of the future. Unfor- 
tunately, over-zealous members of the Al 
community have damaged their own credi- 
bility by making promises they have not 
yet been able to keep. Today, most Al peo- 



ple are more conservative in outlook than 
they were ten years ago. They prefer to em- 
phasize the small, but real, gains being 
made rather than speculate on what might 
be. 

Lockman told 80 Microcomputing, 
"Many grandiose claims have been made 
about what Al has done. In my opinion, we 
have not come very far. Sure, we have pro- 
grams that sit up and bark in toy domains, 
but the real problem is how generalizable 
are these theories of intelligence?" In his 
Al-oriented computer department at Rut- 
gers, Lockman's 700 students, many of 
whom are interested in careers in artificial 
intelligence, are being taught the prin- 
ciples of natural language processing. 

Lockman says, "In my research I'm look- 
ing for the mechanism that allows a 
human to instantly get full understanding 
of a text. I believe that all of our knowledge 
of the world is brought to bear on each 
word we read. I want to know how that 
knowledge is organized and, especially, 
how it is accessed by our brains." 
Lockman admits that he is a long way from 
the answers to these questions. In fact, he 
hasn't yet used the computer to validate 
his theories. He candidly admits, "I 
haven't programmed my theories yet 
because, unfortunately, I'm able to 
disprove most of them on paper." 

When asked about the future of Al, 
Lockman was skeptical. "I see no major 
breakthroughs on the horizon. We will con- 
tinue to build our limited systems and 
basically do more of the same." On a more 
optimistic note Lockman indicated that 
some progress will occur due to the in- 
creasing cooperation between the tradi- 
tionally warring camps of Al theorists, 
philosophers, linguists and psychologists, 
all of whom are taking an increased in- 
terest in each other's work. 

Turning To Science 

The most intriguing thing about Al 
research is that it is an investigation of 
self: how we think, why we interpret as we 
do, and ultimately, who we are. Man has 
been perplexed by his existence since 
earliest history and has used myth, 
religion and magic to explain his existen- 
tial dilemma. In our post-industrial, high- 
technology age we are increasingly turn- 
ing to science for answers to the timeless 
questions of existence. By providing us 
with a clearer understanding of the human 
mental process, artificial intelligence 
research may eventually lead us to a better 
understanding of self. ■ 
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Stop playing games 
and get organized. 



You spent up to S2.500 on computer hnrclw^re to make your 
personal life easier You didn't spend it just for fun 

Now there's GUARDIAN — the first microcomputer software 
program that can truly organize your life with ultimate ease 
and speed. 

GUARDIAN is the only program that lets you make a single 
one-line data entry to remind you . . . for the rest of your life . . . 
of birthdays, oil changes, appointments and any other recurring 
events Once an item and its frequency of recurrence is entered, 
you'll never have to worry about remembering again Each 
morning you flip a switch, enter your personal code, and get an 
instant readout of everything you need to accomplish that day 

Plainly speaking, there's no need for special codes or computer 
language with GUARDIAN . you talk to it. and it talks right back 
in plain English GUARDIAN even tells you how to enter data hi id 
correct errors with step-by-step on-line instruction through its 
built-in video display manual I he printed manual thai come! 
with GUARDIAN is also complete and easy-to-understand. 

Years Ahead 

GUARDIAN lets you organize everything you need to do 
today for years to come The single-line entries ate easy to 
make, and can even be set to flag you several days in 
advance of the event 

Advance To Go 

GUARDIAN is programmed to automatically advance 
and schedule appointments. PTA meetings, vacation 
schedules, tax deadlines and other 
activities indefinitely until you 
- ; cancel the entry GUARDIAN'S 

^^k internal calendar adjusts itself 

\J from year to year 

Protects Your Interests 

GUARDIAN is as easy to 
use as perKil and paper, but its memory can't 
be lost or erased by accident. System failure 
and operator error are protected by automatic 
file closure. Password protection keeps 
your files confidential 

GUARDIAN'S disk has the storage capacity 
to organize up to 2.000 separate events for 
200 people at the same time. 



The GUARDIAN program is recommended fur use with any 
soft disk drive system with 48k memory or more, and operates 
on any CP/M* -based system ur the IRS 80*" (Model I, II or 
III) Programs are available on star xiard 5'A- or 8-inch disk, with 
storage sleeve $1 19.95. 

GUARDIAN is available directly from Time Management 
Software, and is not sold through any store, catalog or other 
source To order GUARDIAN c all one of our toll-free numbers 
or return the order blank below 

Call now toll free to order (Ask for operator 601 ) 

1 "800-824-7888 (nationwide, except California. 
Alaska and Hawai 1 ) 

1-800-852-7777 (in California) 

1 "800-824-791 9 lin Alaska and Hawaii] 




I Yes ... I want to put GUARDIAN to work for me. to receive 

I maximum efficiency and ease in organizing my personal life 

I with my microcomputer. 10-D1 

! NAME 



ADDRESS 
CITY 



.STATE. 



I have enclosed SI 1 9.95 to avoid delays and handling charges. 

□ Check □ Money Order Puce includes tax, handling and shipping (except COD Ofders| 

□ COD. (If delivery address is different than above, please specify) 



■ Please specify one □ 554-inch disk D 8-mchdisk | 

fcftease spee fy one □ CP/M' Operating System DTRSDOS** Operating system I 



I 



TIME 

MANAGEMENT" 6 " 

SOFTWARE" 




PL) Box 111 

Cushmy Oklahoma /40VJ 



GENERAL 



Once man's world was the center of the universe. 

Then came Copernican astronomy. . . 

Once man was a being apart from the rest of creation. 

Then came Darwin and evolution. . . 

Once man understood his own behavior. 

Then came Freudian psychoanalysis. . . 



And Now 

Artificial 

Intelligence 



Harold Nelson 

Kilobaud Microcomputing Technical Editor 




There have always been those who view 
such developments as blows to man's 
humanity, his uniqueness and superiority. 
But, by and large, such developments in 
man's understanding of himself have been 
irresistible, beyond suppression. We seem 
to yearn to more fully understand what we 
are. Artificial Intelligence (Al) may be the 
latest field of research to give us new tools 
to extend that understanding. Getting a feel 
for what Al is all about could lead to some 
astonishing insights. 

Roast Mules 

Can you rearrange the letters of roast 
mules to form one fairly common English 
word? (It's something most first graders 
can do.) 

Once you solve that puzzle, can you write 
a program that can reproduce what you 
have done? Can you write a program that 
can solve the puzzle? 

It might seem that once we have solved it, 
writing the program should be easy. In prin- 
ciple (which is something quite different 
from practice), it might be. 

One way to solve a puzzle like this would 
be to list all permutations of the letters, 
then pick out the word (I think there is only 
one). Even if we started to seriously con- 
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sider this method, the fact that there are 
3,628,800 such permutations would soon 
cause us to abandon it. We would be more 
likely to start arranging the letters into 
familiar groupings— syllables— then rear- 
range these until we found the word. That 
still is not as easy as it sounds. But when 
we do this something else is occurring. 
There are quite a number of combinations 
(such as oaue and ssrtlm) that we just do 
not consider— that we reject "without even 
thinking about it." Certain combinations 
(i.e., sounds) do not occur in our language, 
so we don't even think about them. Others 
do, and we work with those. What usually 
happens is that we chance upon one or two 
of the proper syllables and the solution 
seems to jump out at us. 

How do we write a program that can do 
that? What is it that we do that makes the 
solution seem to jump out once we get 
close? How then do we write a program 
capable of doing something we do when 
we're not even sure how we do it? No one 
said the program had to get the solution in 
the very same way we did. And, of course, if 
we could get a program to solve the puzzle, 
it might help us to understand more fully 
what it was we did when we solved it. 

If all that's a little confusing, it may be 



♦•»**,; 



because we have quickly, albeit via a trivial 
example, arrived at the kinds of issues that 
are at the heart of much of the current Al 
research. Let's take a look at some pro- 
ducts of Al research— some programs that, 
in the words of MIT's Marvin Mlnsky, "do 
things that would require intelligence if 
done by men." Actually, some of them only 
seem to require intelligence at first. 

Eliza 

This "psychiatric interviewer" program 
(some versions are called Doctor), written 
by Joseph Weizenbaum, has been around 
for over 15 years. It Is worth a little con- 
sideration, if for no other reason, because it 
has "fooled" some people. After an en- 
counter with the program (difficult as it may 
be to believe), some people who had a suffi- 
cient willing suspension of disbelief or 
naivete were convinced the program had 
really understood them. 

If you "play along", you can produce a 
fairly realistic dialogue with the program. 
For example (the program's lines are in 
italics): 

Hello. Tell me your problem. 

I don't want to. 

Why do you suppose you don't want to? 
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We're Offering You Our 
Company Secret. 

It's a brand new American-designed 
program generator that can eliminate the 
i u k id to spend thousands ot dollars on 
specialty programs 

And, Its Available Today. 

It's the microcomputer program that 
Time Management Software is using to 
write its own professional software 



all the programs you'll ever need We 
call it GENESIS You II call it incrodible. 
because we have yet to find a program 
on the market that GENESIS can't create 

GENESIS is the next generation 
Designed by a team of doctoraf-level 
programmers. GENESIS runs on .ill 
CP/M* 2 XX systems, using compiled 
PL/ 1-80* 

[he code generated by GENESIS is 
fast and efficient, and thw new product I 
capacity to code difficult algorithms is 
virtually unlimited 

The speed of code generation itsolf 
is literally awesome Preliminary tests 
have indicated an ability to generate 
efficient code at a rate well in excess of 
four lines per second Clearly. GENESIS 
can wnte months of code in a matter 
ot minutes 

With You As Architect, Genesis 
Is The Ultimate Master Builder. 

Word processing, accounting 
procedures, statistical analysis, time 
management studies GENESIS can 

wnti' .my l(im In 'ic. you could possibly 

need Naturally, complete program 
changes are quickly and easily made. 

You spo.il- pi. nil Anion, .in I nglish lo 

GENESIS -no code, nodiffk utf Intro 
ductory language to memorize The only 
time you spend with GENESIS is in decid- 
ing the specifications of your program 



Simply Stated, Genesis Is The 
Best Microcomputer Program 
Generator In The World. 
Period. 

Genesis comes with on-line docu- 
mentation, as well as a complete concise 
printed manual, written by a professional 
manual writer 

Due to its sophistication, we 
recommend this program for use with 



CP/M'? XX The code which is 
isCBASIC* 

(Note Even though GENESIS runs in 
compiled PL/1 80* it is not necessary to 
have PI I ''i' 1 ' inordei lorun ttieprogiam ) 

Iho program comeson standard '■ , oi 
8-inch disk, with storage sleeve. The 
program that will allow maximum use of 
youi hardware an introductory price 
of $500. 

Gl.NI SIS IS available now directly 

tioin rime Management Software, and is 



not sold through any other outlet Time 
Management Software will send free 
updates of new material and products to 
GENESIS owners as they develop, to make 
sure you've got everything you need 
Order the most advanced program 
generator system on the market today, 
by calling one of the toll-free numbers 
or by returning the order blank below 

Call now toll true to order (Ask lor 



1-800-824-7888 I Nationwide. 

except California Alaska and I lawaii] 
1-800-852-7777 (In California) 

1 -800-824-79 1 9 < I n Alaska and 
Hawaii) 



Y tb ... I need GENESIS to develop the ultimate program and to take 
fullest advantage of my hardware. 



ADDRESS. 



I have enclosed $500 to avoid delays, shipping and handling charges. 

□ Check □ Money Order □ C.O.D. (If delivery address is different than 

above, please specify.) 

Please specify one: □ 5^-inch disk D 8-inch disk 

Price includes tax. handling and shipping (except COD. orders ) 10 
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"SHRDLU understands questions 
and requests put to it in English, " 



I could never talk to my father. 

Tell me more about your family. 

None of them liked me. 

Perhaps in your fantasies none of them 
liked you. 

Of course, the program is not really 
capable of understanding. Compared to 
some other programs, it is a very unintel- 
ligent program. Eliza achieves its effects by 
the clever use of a few gimmicks. A more 
skeptical interviewee quickly reveals the 
program's weaknesses: 

Go away. 

I'm not sure I understand you. 

I think you're coming apart. 

Why do you suppose you think you're 
coming apart? 

You are coming apart. 

Perhaps in your fantasies you are coming 
apart. 

No. You are in reality. 

Perhaps in your fantasies you are in 
reality. 

This rather inane little exchange reveals 
Eliza's limited language handling capability. 

Animal 

A somewhat more interesting program, 
capable of learning as it is used is called 
Animal. This is a game in which the pro- 
gram tries to guess the name of the animal 
chosen by the user. When it makes an incor- 
rect guess, it asks for the name of the user's 
animal and some information about it. It 
stores this information and recalls it at ap- 
propriate times in subsequent games. In 
one version the program begins by asking 
"Does it have horns?" If the answer is yes, it 
guesses the animal is a buffalo. If the 
answer is no, it guesses a butterfly. After a 
few wrong guesses and accumulating infor- 
mation provided by the user, a dialogue 
with the program might look like this: 

Does it have horns? 

No. 

Does it have a beak? 

No. 

Does it have four legs? 

Yes. 

Is it true that it can climb trees? 

No. 

Does it have a curly tail? 

No. 

Does it give milk? 

Yes. 

Is it a cow? 

Yes. 

Notice that the user-provided informa- 
tion is stored in "branches." The program 
will not ask about dogs or cows when the 



exchange is about an animal with horns. 
Does it have horns? 
Yes. 

Does it live in the woods near water? 
No. 

Is it true that it is smaller than a buffalo? 
Yes. 

Does it live in high rocky places? 
Yes. 

Is it an ibex? 
Yes. 

SHRDLU 

One of the most intriguing and signifi- 
cant Al programs was produced by Terry 
Winograd in the Al Lab at MIT. SHRDLU is 
capable of understanding questions and re- 
quests put to it in English; it is capable of 
giving English answers to questions and of 
performing requested tasks even if they re- 
quire multiple operations. As if that were 
not enough, the program can understand 
what it has done and why it has done it, and 
it can give competent English descriptions 
of these. 

SHRDLU functions in a limited domain 
called a "blocks world." This consists of a 
variety of variously-colored blocks, 
pyramids, boxes, and so forth. The program 
answers questions about the arrangement 
of those objects, provided the questions are 
precisely stated. If they are not, the pro- 
gram asks for a clarification. SHRDLU will 
perform requested rearrangements of the 
shapes ana explain what intermediate 
action, not specifically requested, was 
performed. 

Douglas Hofstadter, who provides an ab- 
solutely insightful treatment of Winograd's 
SHRDLU in Godel, Escher, Bach, says that 
while "SHRDLU may not be isomorphic to 
what we do. . .the act of creating it and 
thinking about it offers tremendous insight 
into the way intelligence works." 

Internist 

The study of "expert systems" is leading 
some researchers to develop more practical 
programs. Internist, developed by Myers 
and Pople at the University of Pittsburgh, 
reproduces the special diagnostic skills of 
a doctor of internal medicine. The program 
collects data on a patient's symptoms, 
case history, test results, and so forth. Act- 
ing much like a human diagnostician, the 
program then decides which possibilities to 
delve into, asks specific questions about a 
possible illness and suggests a diagnosis. 

The developers of Internist believe it will 
be ready for field testing at institutions 



other than Pittsburgh by 1983. 

More Roast Mules, Algorithms and 
Heuristics 

Our discussion of how we might solve the 
puzzle presented at the beginning of this ar- 
ticle exhibited two approaches to program- 
ming. The first is the usually straightfor- 
ward method of writing the code for a given 
algorithm. In the case of our example, the 
algorithm might be: 

• generate one combination of the 10 
letters. 

• check this with a standard English dic- 
tionary to see if it is a word. 

• if it is, stop. 

• if not, go back to the first step and start 
another round. 

It wouldn't be hard to write a procedure to 
generate the permutations, especially in a 
good Al language like Lisp. It wouldn't even 
be too difficult (just very boring) to give our 
program access to the words in a standard 
dictionary— all we really need would be the 
listings under A, E, L, M, O, R, S, T and U. 
Somewhere between the first and the 
3,628,800th iteration, we would have our 
solution. 

While this would get the job done, it 
would be neither elegant nor very satisfy- 
ing. We might somehow feel uneasy about 
reproducing in so mechanical a fashion 
something we do in a very sophisticated 
manner. We might try to write a more so- 
phisticated procedure, which could include 
various linguistic principles. Basically we 
would want to teach the computer some of 
our language— we would want the program 
to produce and evaluate syllables just as 
we do. We would want it to be able to com- 
bine these to form trial words just as we do. 
Using such principles or "rules of thumb" is 
an heuristic approach to our programming 
problem. 

It is easy to see that the first two pro- 
grams (Eliza and Animal) employ the 
straightforward algorithmic approach, 
while the latter two make use of heuristics. 
Actually, SHRDLU and Internist probably 
employ both approaches. Programming 
heuristics can give us a more sophisticated, 
more intelligent-appearing program. 

Of course, to program in this way implies 
some understanding of the mental rules of 
thumb we use when solving our puzzle. This 
is what Hofstadter is referring to in his 
statement about SHRDLU. 

Are Machines and Programs Intelligent? 

Al researchers for the most part are not 
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"... one theorem-proving program has correctly proved 
a theorem with a proof the author was unfamiliar with." 



trying to produce mechanical brains. We 
are a great many years away from any such 
possibility. In fact, there does not seem to 
be any hard knowledge on how the brain in- 
terprets basic neural activity into "con- 
scious thought." So even if we had the hard- 
ware ability readily available to construct a 
machine that could reproduce what the 
brain does in this interpretation, the levels 
of interpretation in the brain and in the 
machine would not necessarily be isomor- 
phic— there would not have to be a one-to- 
one correspondence between the levels of 
interpretation in the brain and those in the 
machine. While trying to construct such a 
machine could lead us to new insights 
about what happens in the brain when 
thought takes place, we are not on the verge 
of being replaced by mechanical thinkers. 
In spite of the fact that algorithms have 
been written for activities such as juggling 
and bike riding. I don't think anyone has 



tried, in software, to get a TRS-80 to turn a 
somersault. Still, programs designed to do 
things that normally require human in- 
telligence have produced some interesting 
and occasionally surprising results. For ex- 
ample, one theorem-proving program is 
known to have correctly proved a theorem 
with a proof the program's author was not 
familiar with. In a case such as this it is hard 



to say whether the intelligence exhibited by 
the program was its own or merely a reflec- 
tion of its author's intelligence. 

Would our puzzle-solving program be in- 
telligent if it solved the puzzle in a way even 
similar to our way of solving it? 

The answer to this question as well as the 
puzzle itself is, in the over-used last words. 
left to the reader as an exercise.! 



Al Related Reading 

H tfe toDic of artificial intelligence is something you would ike to erie' rice deeply into, he-e aie some in 
teres! mg and readable books on the subject 

Boder. Margaret Artificial Intelligence anil 'Jjtjrji Man. Basic Books. Nf* Yr-'k 1977 

Hofstadter, Douglas. Qodei. Escher, Bach. Basic Books. New York. 19/9 

Winston. Patrick ArtHic'ai Intelligence Addison Wesley, Read nr; Mass 1977 

Abe'soi. M and di Sessa A T ur ii e Gecietr, •-e Ml* P-ess. Caror 3ge Mass '9b - 

Pape't Seymour Mtndstorms, Basic Books, New York. 198C 

Ringle. Martin ted i Philosophical Perspectives in Artificial Intelligence Humanities Press, New York. 1979 

Kent. Ernest. The Brains ol Me" ami Murhinns, Byte'McGraw H I. Nnw Ytvk 19B1 
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Will you SCARF your way to 
victory? 

Can you avoid the speedy MONSTERS that 
guard the maze? 

Answers to these questions await the brave, who 
dare to enter the maze where the monsters live. 
SCARFMAN is a new arcade game for the TRS-80' 
by the author of MISSILE ATTACK. Written in 
machine language. SCARFMAN features quality 
GRAPHICS. SOUND. REALTIME MONSTERS and 
hours of ENJOYMENT. Nine progressive skill 
levels make the game more difficult as you get 
better. SCARFMAN is compatible with Alpha 
Product's joystick. 
Do you have what it takes to reach skill level 9? 

ORDER NOW! 



The Cornsoft Group 

6008 N. Keystone Ave.. Indianapolis. IN 46220 (317) 257-3227 
Model I & III tape — 16.95 Model I disk — 20.95 Model III disk — 20.95 

Prices include shipping and handling 

Checks. Money Orders. VISA and MASTER CARD accepted. 



• See List ol AO*ert,sers on page 386 
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TRS-80* Computer Owners... 

Great New Access Store! 






*% 



fj&N, Fully 






AFD Mini-Disk Drives 



from 



Every Access Floppy Disk drive is electrically tested, mechan- 
ically tested and burned-in 48 hours under operating condi- 
tions Look for the signed test list in the shipping carton 

AFD drives are capable of cither single- or double density op- 
eration. AFD- 100 drives store 10?-Kbytes in single-density, 
180 Kbytes in double density AFD 200" dnves store 205 
Kbytes in single-density. 364 Kbytes in double density. And 
these are formatted file storage capacities. Moreover, you can 
store twice these amounts on a single diskette using AFD 
flippy' drives (AFD 1 0OF '" or AFD-200F '" drives) 

lb-day free trial otter . comprehensive 90-day limited war- 
ranty . . unbeatable prices . AFD- 100 (it $275.00. -100F 
f« S329.00. -200 Ui $429 95. 200F n $449.95 




Percom Drives for Your Model III ! 



Internally mounted drives that feature flippy capability double- or single- 
density storage, comprehensive pre delivery testing. 48 hour burn-in and, best 
of all Per corn's widely acclaimed disk controller A First-Drive System includes 
the four-drive disk controller one or two drives, cables and a fully illustrated 
owners manual Use Model III 1RSDOS'. Percom OS 80 t and other Model III 
compatible DOSs. 

Prices Complete First-Drive System w 1 drive only $560.00 

w ? dnves only $860.00 

Note: If you prefer not to make the First-Drive System installation, we will 
do it for only $29.95 plus shipping (if shipped). This includes a 48-hour 
operating burn-in of your Model Ml computer, installation of the drive sys- 
tem and final checkout of the expanded system. 



How lo order •! • . i • ■<■ IN led i I-M0-S27-347S Or order by ma* 

Orders may I I ■■■.'.•• •.•--• . • i. or i ad by castaa* •. ecfc . •• • • i 

i .'-io>M>y o«i . ,•,. . i pt persona 

i, snipping ano ...• • . , ■ i . wot Si 000 00 Add approximate * 

■ i . . i . . h :• ■ ' LOOM tuubt about those charges, as* 

■■■' . . . :• ■ i • , > - .... Mi • in -i i re* ■ ] II 

i ■■• '.;.-.■• • k .. . 

' ■ • («"•>! Ii'iO-U/UO 

Save' Ask about quantity discounts fur IHUGs 

Save' VISA and Mastei Card charges are not deposited 

until the day your order >s shipped 



PRICES AND SPI Oil 11 aikjN'o SUBjtC i fO CHANG* WTIHOU1 NOTrCI 



Unlimited Access! 

Easy to yet to. That's our new walk in computer 
cuntui on Central Expressway in suburban Dallas. 





} i 


RICHARDSON 


I 


AMAIAMlj HU Kt_ 


O UTO 


/ 




£% ACCESS 
9 UNLIMITED 


\ 


mi 1 1 i mi ho pf 
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e Old Savings Galore. 
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Upgrade Your Model I to Double Density 

only s 159 9 -* 

And not with some unproven hacker's kit. either. But with an assembled and fully 
tested Percom DOUBLER-M. The DOUBLER-llt simply plugs into the disk drive 
controller socket of your Expansion Interface. Then it lets you store over four 
times more on one side of a diskette, depending on the drive, than you can store on 
standard Tandy Model I drives Other features: • Reads, writes and formats either 
single- or double-density • Includes DBLDOS ", a TRSDOS* compatible disk- 
operating system • Runs TRSDOS*, NEWDOStt, Percom OS-80t and other 
single-density software immediately Change to double-density operation when con- 
venient • Lets Model III software be read on your Model I • Includes on-card high- 
performance data separation and write precompensation circuitry. 




Microline-80 Printer 
Grand-Opening Special $399.95 (regular $ 44 6oo) 

Compare the Microline-80 feature-for-feature with any other competi- 
tively priced printer • Uses standard roll paper, fan-fold forms or 
individual sheets. • Prints expanded characters and graphics. • Prints 
96 ASCII characters (9x6 dot format). 64 graphic characters (12x6 dot 
format). • Throughput is 80-characters per second, standard-width 
characters • Print head is rated at 200 million characters. • Compact, 
lightweight, quiet. 




Low-Cost System Furniture 
Desks from Printer Stand 

$115. only $144. 

Modular design accommodates customized arrange- 
ments • Furniture quality styling and construction 
• TRS-80* compatible colors • Units knockdown for 
easy transportation. 




Save! Make ACCESS your one-call shopping center for TRS-80* 
hardware and software. Call our toll-free order number for free 
product literature and latest prices. 

AUTHORIZED 
PERCOM SALES AND SERVICE CENTER 



Toil-Free 
Order No. 



1-800-527-3475 



(orders & literature only) 




401 N Central Expressway 
Richardson, Texas 75080 

(2 14) 690 0206 



~'GOO 




^Se» List ol Advertlstrs on page 386 



80 Microcomputing, October 1981 • 113 



GENERAL 



A discussion of the Pulitzer Prize-winning book. 



Godel, Escher, Bach 



Godel, Escher. Bach: 
An Eternal Golden Braid 
Basic Books, Inc. 
New York, NY 
Hardcover, 777 pp. 
$20.50 

by Nancy Robertson 



Alan Turing, a mathematician and influ- 
ential pioneer of computer science, 
wrote, "I believe that at the end of the cen- 
tury the use of words and general educated 
opinion will have altered so much that one 
will be able to speak of machines thinking 
without expecting to be contradicted." 

Turing made that prediction over 30 years 
ago. Perhaps in two more decades it will be 
true. But in our time, the debate over the 
question, "Can machines think?" is raging 
and emotional. It has been fanned by the 
uncanny growth in computer production, 
and aired in general interest publications 
such as the New York Times Sunday Maga 
zine. Like the theory of evolution, the ques 
tion threatens the ego of our species. Yet. 
artificial-intelligence research is undenia- 
bly a tool toward understanding human in- 
telligence. 

Douglas Hofstader, a young physicist 
and computer scientist, frames the ques 
tions of the artificial intelligence (Al) debate 
eloquently in Godel. Escher, Back: An Eter- 
nal Golden Braid (Basic Books, Inc.. 1979. 
New York, NY). In 1980 the book won a 
Pulitzer. Later that year, it reached the New 
York Times best sellers list. 

It is a deep and provocative volume that 
illustrates the infinite complexities of intel- 
ligence. Using the works of Kurt Godel, M.C. 
Escher and Johann Sebastian Bach, Hof- 
stader identifies three vital characteristics 
of human intelligence: hierarchies, strange 
loops, and paradox. They can be interpreted 
as the three strands of the titles "eternal 
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M. C. Eschers Canon Crabs 
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golden braid." The limited occurrence of 
tnese qualities in our most recent and im- 
pressive computing achievements reflects 
on our limited understanding of human in- 
telligence. 

Artificial intelligence is not merely ad 
vanced computer science, but a composite 
of studies. "In our century the time was ripe 
for computers—" the author writes, "com- 
puters beyond the wildest dreams of Pas 



oal, Leibniz, Babbage. or Lady Lovelace. In 
tne 1930s and 1940s, the first giant elec 
tronic brains' were designed and built. Tney 
catalyzed the convergence of three pre 
viously desperate areas: the theory of axio 
matic reasoning, tne study of mechanical 
computation, and tne psychology of intelli- 
gence." 

It seems natural to consider the nature of 
human intelligence before mechanical 



"It is a deep and provocative volume 
that illustrates the infinite complexities of intelligence. " 



computation. It is more familiar to us. Yet, 
it's obvious that a simple dictionary defini 
tion of intelligence or intellect is trivial. 

Midway through the book, Hofstader 
writes, "Our confusion about who we are is 
ceitamly related to the fact that we consist 
of a large set of levels, ana we use overlap 
ping language to describe ourselves on all 
of those levels." Hofstader's discussion of 
those levels, beginning with Bach, Escher 
and Godel, is one of tne books most pro 
found statements. 

While the choice of Godel, Escher and 
Bach at first appears incongruous, Hof- 
stader presents their work as shadows 
^ast in different directions by some central 
essence." The opening chapter of the book 
simultaneously introduces these men and 
Hofstader's concept of levels of moaning 

The author begins by considering Bach's 
Musical Offering. The title of the composi 
tion refers to the fact that it was dedicated, 
or offered, to Fiederick the Great, who was 
the reigning king of Prussia. 

Bach wrote an inscription on the original 
score, Regis lussu Cantio Et Heliqua Can 
onica Arte Resoluta. (It translates to "At the 
King's Command, the Song and the Re 
mainder Resolved with the Canonic Art.") 
Tne initials form an acrostic, spelling the 
Italian word ricercar. which meant both "to 
seek" and "fugue." A canon, which is the 
musical form of most sections of the 
Musical Offering, is a strict single theme 
fugue. There is also a great deal to seek in 
the Musical Offenng In this short example, 
Hotstader introduces the potential tor 
multiple layers of meaning. 

'•The idea of a canon," Hofstader ex 
plains," is that one single theme is played 
against itself. This is done by having "cop- 
ies' of the theme played by the various par- 
ticipating voices." Fugues follow the same 
principles of composition, but are based on 
one or more themes. T hese themes may be 
varied in time or pitch. They may be inverted 
or reversed. For instance, what musicians 
commonly call a "crab canon" begins with 
a theme that is piayed backwards in its se 
cona and final rendition. 

Hofstader uses the term "isomorphic" to 
describe the relationship of the variations 
to the original theme. In other words, the 
variations are altered forms of the original 
theme. It is possible to extrapolate a theme 
from any of its variations. The role of iso- 
morpnism in thought processes is stressed 
again and again throughout the book. 

Hofstader wants us to recognize that the 
form or structure of our thoughts have im- 



plicit meaning. The structure of the 
thoughts we iterate reveals something 
about the sublevel thoughts that build ex 
pression. 

In the Musical Offering the Canon per 
lonos has a significant structure. In each 
expression of the theme, Bach modulates 
the key upward. Fur instance, the first state- 
ment of the melody and accompanying 
voices begins in C minor, but the resolution 
is in D minor. Normally, variations end or 
"resolve" in the same key that they begin. 
Opening in D minor, the second statement 
of the Canon per Tonos theme resolves in 
yet a higher key. The pattern continues to 
spiral through six modulations. Bach has 
broken down our normal expectations, yet 
surprisingly brings the piece back to its 
original key in the final modulation. 

A canon or fugue is clearly a hierarchical 
system. The rules of composition and the 
themes to which they are applied produce 
distinct patterns and levels within the struc- 
ture. 

The Canon per lonos takes us a step far- 
ther into Hofstader's theory. This particular 
canon is an example of a strange loop. "The 



'Strange Loop' phenomenon occurs when 
ever, by moving upwards (or downwards) 
through the levels of some hierarchical sys 
tern, we unexpectedly find ourselves right 
back where we started." 

This concept leads us smoothly to M.C. 
Escher, a Twentieth-century lithographer 
and print master who represented his fasci- 
nation with strange loops visually. Escher is 
known for prints such as Waterfall and 
Drawing Hands. In Waterfall, water travels 
upward through a series of three sluices, 
drops from a waterfall, and begins its de 
fiance of gravity all over again in the same 
sluiceway. Diawing Hands depicts a sheet 
of paper on a drawing board. The left hand, 
which is drawn on the paper, is drawing a 
right hand, which is drawing the left hand. 

"The viewer cannot help getting caught 
up in Escher's implied chain of levels, in 
which, for any one level, there is always 
another level above it of greater reality,' 
and likewise, there is always a level below, 
"more imaginary' than it is," Hofstader 
writes. In Drawing Hands there is a level of 
"greater reality" just beyond the print: 
Escher's hand has drawn the hands that 



Eta Oin: Can a pyramid support a pyramid? 
SHRDLU: I DON'T KNOW. 

Dr. Tony Earrwig: The question makes sense, but there is no example in the 
scene. SHRDLU has no way of looking into the details of its programs, even 
though these ultimately define its capabilities. 
£fa Oin: Stack up two pyramids. 
SHRDLU: I CANT. 

Dr. Tony Earrwig: SHRDLU tries and fails. 
Eta Oin: The blue pyramid is mine. 
SHRDLU: I UNDERSTAND. 

Dr. Tony Earrwig: All of the information about colors, shapes, sizes and loca- 
tions of the objects is known to SHRDLU initially. Possession is left as an 
unknown property of objects about which it can be told. It stores this informa- 
tion in its data base. 

Eta Oin: I own all blocks which are not red, but I don't own anything which sup- 
ports a pyramid. 
SHRDLU: I UNDERSTAND. 

Dr. Tony Earrwig: The result of understanding these sentences is the creation 
of new procedures within SHRDLU for deducing whether you own something. 
£fa Oin: Do I own the box? 
SHRDLU: NO. 

Dr. Tony Earrwig: The box supports whatever it contains, including a pyramid. 
Eta Oin: Do I own anything in the box? 
SHRDLU: YES, TWO THINGS: THE BLUE BLOCK AND THE BLUE PYRAMID. 



Example 1 



_ 
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"So far in the development of computer science, 
conscious self-reference, the recognition of paradox, and 
understanding the concept of infinity are all elusive. " 



draw each other. 

The print itself is characterized as a two- 
step strange loop: The right hand draws the 
left; and the left hand draws the right. The 
strange loop of Drawing Hands is repre- 
sented In Fig. 1. 

Hofstader's term "strange loop" Is a fi- 
nite representation of infinity. "In... 
strange loops. . . there Is a conflict bet- 
ween the finite and the infinite, and hence a 
strong sense of paradox." 

While Hofstader sees Escher's prints as 
"visual analogues to the canons of Bach," 
the paradox embedded In them leads to the 
study of Godel. Kurt Godel was a German 
mathematician who published a treatise on 
mathematalcal reasoning In 1931. The pa- 
per showed "that no axiomatic system 
whatsoever could produce all number-theo- 
retical truths, unless it were an Inconsistent 
system I" 

Using the strict rules of formal mathe- 
matical system to generate and prove 
theorems of number theory, Godel dis- 
covered a true theorem that could not be 
proven. The discovery of this paradox lead 
to his Incompleteness Theorem and trea- 
tise. The validity of his argument threat- 
ened the foundations of mathematics, 
which Is dedicated to the eradication of In- 
congruity. 

Outside of mathematics, paradox has 
been a recognized characteristic of human 
thought since ancient times. Eplmenldes 
was a native of Crete who is credited with 
"one Immortal statement: 'All Cretans are 
liars.' " Was Eplmenldes telling the truth? 

The Eplmenldes paradox, or "liar's para- 
dox," Is a one-step strange loop. A two-step 
strange loop expressing a similar paradox 
could be: 




Fig. 1 
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"The following sentence is false. 
The preceding sentence Is true." 

This two-step loop Is closer to the heart of 
Godel's Theorem. 

Called TNT for Typographical Number 
Theory, Godel constructed a formal mathe- 
matical system that could write self-refer- 
ential statements about natural numbers. 
Applying self-reference to numbers was 
brilliant, regardless of the additional dis- 
covery of paradox. Self-reference was a rec 
ognized characteristic of human dialogue, 
of literature and art— but not at ail charac- 
teristic of our traditional perception of 
mathematics. 

In TNT language can be represented by 
symbols, which in turn can be represented 
by numbers. For instance, the English Ian 
guage version of the first axiom of TNT is, 
"For all variables a there does not exist a 
successor of a that is equal to zero." Sym- 
bolically, this statement can be represented 
by: a: Sa = 0. The numeric sequence which 
expresses the same axiom is: 666,262,636, 
123,262,111,666. 

Using TNT to generate and prove theo- 
rems of number theory, Godel eventually 
derived Theorem G. Hofstader roughly 
translates this to "G is not a theorem of 
TNT." In a two-step strange loop, it might be 
represented as follows: 

G Is a true statement of number theory. 
G cannot be proven. 

While the Eplmenldes paradox rests on the 
fact that the statement is neither true nor 
false, Godel's Theorem G is true, but defies 
proof. 

The Important thing to grasp about 
Godel's work is that paradox and self-refer- 
ence are not limited to language, music and 
art— paradox and self-reference are found 
In number relations. Both paradox and self- 
reference are universal characteristics of 
human thought. Godel's work reinforces 
our knowledge that numbers, like words, 
are symbolic (or Isomorphic) representa- 
tions of ideas. 

So far In the development of computer 
science, conscious self-reference, the rec- 
ognition of paradox, and understanding the 
concept of Infinity are all elusive. Yet com- 
puters, like humans, base their thought 
operations on hierarchical sytems. Be- 
tween computer hardware— memory regist- 
ers, CPUs I/O devices and circuitry— and 
high-level languages such as Lisp there are 
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Intelligent programs 
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Embedded Pattern Matcher 


^^-~ 


LISP 


^^~ 


Compiler or Interpreter 


^^~ 


Machine Instructions 


^^~ 


Registers and Data Paths 


^^ 


Flip-Flops and Gates 


Transistors 
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Fig. 2 

several functions. There is a machine 
language, assemblers, assembly code, 
Interpreters, low-level language, etc. Fig. 2 
Is a diagram, taken from Godel, Escher, 
Bach, representing the hierarchy of In- 
telligence In a computer. 

Hofstader believes that there are human 
processes that could be delineated that 
serve the same functions. On the lowest 
level, he compares hardware and the brain 
as an organ. For an example of a higher 
level analogy, take a computer operating 
system. "It is virtually certain that there are 
somewhat parallel things which take place 
in the brain: handling of many stimuli at the 
same time; decisions of what should have 
priority over what and for how long; instan- 
taneous interrupts caused by emergencies 
or other unexpected occurrences. . . " 

Yet computers have seldom demonstrat- 
ed understanding, self-awareness or crea- 
tivity. A computer that generates haiku or 
music from a random mixture of pro- 
grammed phrases is not creative any more 
than a calculator is creative. The computer 
does not Intend the resulting lines and 
melodies to have meaning. It does not un- 
derstand the explicit definition of the sen- 
tence it generates, it does not appreciate 
the tones of the musical themes it com- 
bines. Hofstader writes that: 

An Intelligent program would presumably be one which Is 
versatile enough to solve problems of many different sorts. 
It would leam to do each different one and would accum- 
ulate exeprlence In doing so. It would be able to work 
within that set of rules and yet, also, at appropriate mo- 
menta, to step bacK and make a Judgement about whether 
working within that set of rules Is likely to be profitable In 
terms of some overall set of goals which It has. It would be 
able to choose to stop working within a given framework, if 
need be, and to create a new framework of rules within 
wnlch to work for a while. 

This is the sort of Intelligence Godel used 



"Yet computers, like humans, base 
their thought operations on hierarchical systems." 



in discovering his Incompleteness Theo- 
rem, that Escher used in most of his art, and 
that Bach exemplified in the Canon per 
Tonos. 

Hofstader believes that the current in- 
ability of programming and computer 
science to achieve such program reflects 
our limited understanding of human 
thought. He believes "One key for under- 



standing and creation of intelligence lies in 
the constant development and refinement 
of the languages." 

Me argues that Terry Winograd's Al pro- 
gram SHRDLU had demonstrated a degree 
of understanding in a machine. The pro- 
gram, which was written while Wlnograd 
was a graduate student at MIT, converses 
with humans to manipulate imaginary 



The 'Eternal Golden Braid' 

A Study of Artificial Intelligence 



by Nancy Robertson 



At first glance, the response to Godel, 
Escher, Bach seems as incongruous 
as the "eternal golden braid" that weaves 
the genius of these three men together in 
a study of artificial intelligence. In 1980 
Douglas Mofstader's opus, a book of over 
700 pages in Basic Book's hardbound edi- 
tion, won the Pulitzer Prize for general 
nonaction. 

Martin Gardner, who had reviewed the 
book for Scientific American wrote, 
"Every few decades an unknown author 
brings out a book of such depth, clarity, 
range, wit, beauty and originality that it is 
recognized at once as a major literary 
event." So It was for Godel, Escher, Bach. 

The manuscript tell into the hands of 
Martin Kessler, president of Basic Books, 
New York, NY, when a friend of his who 
had hoped to publish the volume through 
a university press despaired of the large 
task. When the enormous bundle of manu- 
script and diagrams arrived in the mail, 
Kessler's first reaction was "a sinking 
feeling, but then I took it home and began 
reading It— and I got hooked, at first by 
the puzzles" Mofstader used to illustrate 
his points. 

Kessler decided to go ahead with publi- 
cation, although the potential production 
cost appeared prohibitive. "It looked like 
we'd have to charge $28 a copy to make 
our money back. The nagging question 
was who would buy the book at that price. 
While interest in the manuscript began to 



show that the book would probably attract 
a wider readership than the publishers 
originally anticipated, production prob- 
lems continued. Finally, arrangements 
were made with Hofstader to typeset the 
volume himself on a computer. 

After the hardback edition came out, 
Vintage, a subsidiary of Random House, 
negotiated for the rights to the paperback 
edition. From October, 1980, to March, 
1981, a tome considering the characteris- 
tics of human thought, the Intelligence of 
three creative geniuses and the ramifica- 
tions of artificial Intelligence, Godel, 
Escher, Bach bobbed up and down on the 
New York Times' list of best selling trade 
books. Its subject and its depth made its 
appearance on the list unique. 

Hofstader, who was born in New York 
City and raised in California, Is temporari- 
ly living in Berkeley, CA, and continuing 
his research. He is uncomfortable with the 
notoriety the book has brought him— the 
phone calls from strangers and the hun- 
dreds of letters. "Different people deal 
with fame in different ways," he said. 
Although he is appreciative of the interest 
in the book, he feels it has the strength to 
"stand on its own." So far, he has tried to 
keep up with the correspondence that has 
resulted from the publication of Godel, 
Escher, Bach. Recently he responded to 
over 400 letters from readers, but his 
energy is waning. He continues the eter- 
nal quest implied by his book.B 



blocks. Hofstader writes that the program 
was designed to: 



• Understand questions in English 
about the situation; 

• Give answers in English to questions 
about the situation; 

• Understand requests in English to 
manipulate the blocks; 

• Break down each request into a se- 
quence of operations it could do; 

• Understand what it had done and for 
what reasons; 

• Describe its actions and their 
reasons, in English. 

Like Hofstader, Wlnograd emphasizes 
the importance of the tangled hierarchy of 
language. He modeled SHRDLU on his view 
of human thought and human language. 
Rather than separating the various func- 
tions of the program into modules, he inter- 
twined them. The program is so convoluted 
that other programmers initially thought It 
was absurd. Yet, the achievements of 
SHRDLU are impressive. 

Example 1 is a segment of a transcribed 
converstaion between SHRDLU and a 
visitor. (The words of Dr. Earrwig are actual- 
ly Winograd's. Eta Oin is a fictional name of 
a real visitor.) In this short passage, 
SHRDLU demonstrates an ability to learn 
concepts. 

In an article about SHRDLU Wlnograd 
wrote: 

One of the basic viewpoints underlying the model is that all 
language use can be thought of as a way of activating pro- 
cedures within the hearer. We can think of any utterance 
as a program— one that Indirectly causes a set of opera- 
tions to be carried out within the hearer's cognitive system. 
This "program writing" Is Indirect In the sense that we are 
dealing with an Intelligent Interpreter, who may take a set 
of actions which are quite different from those the speaker 
Intended. The exact form Is determined by his knowledge 
of the world, his expectations about the person talking to 
him, etc. In this program we have a simple version of this 
process of Interpretation as It takes place in the robot. 
Each sentence Interpreted by the robot Is converted to a 
set of Instructions In Planner (an Al computer language). 
The program that Is created Is then executed to achieve the 
desired effect. 

One of Winograd's statements is especi- 
ally Important. "We can think of any utter- 
ance as a program— one that indirectly 
causes a set of operations to be carried out 
within the hearer's cognitive system." 
These "programs" and "sets of operations" 
are the sorts of levels Hofstader wants us to 
recognize In our own thinking. 

Hofstader must stress his point by exam- 

Coniinued on page 192 
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f man's intelligence is truly natural intelli- 
gence, then any intelligence simulated by 
a machine would be artifical— or possibly 
unnatural. This intelligence would be hard 
to define, at least in part because intelli- 
gence itself is hard to define. This has been 
one of the findings of the Artificial Intelli- 
gence Laboratory at the Massachusetts In- 
stitute of Technology in Cambridge, Massa- 
chusetts. 

Founded in the early 1960s by Marvin 
Minsky, M.l.T's Al Lab has grown to include 
10 full-time faculty members, a research 
and support staff of 35 and 30 graduate 
students. These people are engaged in 
theoretical research as well as specific pro- 
jects for concerns such as the Defense Ad- 
vanced Research Projects Agency, the Air 
Force Office of Sponsored Research, the 
National Science Foundation, the Xerox 
Corporation and others. 

The primary goal of the M.I.T. Al Lab, ac- 
cording to its Director Dr. Patrick Winston, 
is to "understand how computers can be 
made to exhibit intelligence." The two ma- 
jor aspects of this search include develop- 
ment of a more thorough understanding of 
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human intelligence, and finding ways to 
make computers more useful. Recently, the 
Al Lab has channeled its research energies 
into image understanding, studies of 
natural vision, robotics, learning from ex- 
perience and language comprehension, 
problem-solving techniques of experts, the 
computing environment and education. 

Education Projects 

The education projects are among the 
Lab's most celebrated and are led by Pro- 
fessor Samuel Papert. Professor Papert 
directs the Logo Group, a group which at- 
tempts to apply the theoretical findings of 
Al research to education. The Group has 
been instrumental in the development of 
the Logo language. Logo is designed to 
allow children to learn through their involve- 
ment in "teaching" the computer. Recent 
work in the Group has involved the study of 
spatial reasoning. 

Dr. Berthold K.P. Horn directs the image- 
understanding research team. They have 
developed albedo maps, maps from photo- 
graphs which have had ground slope and 
sun position shadows removed so that the 
intensity of the image is solely a function of 
ground cover. This research focuses on 
shading and surface characteristics. 

Along with the topic of image understand- 
ing, the Al Lab conducts research on natural 
vision. This effort is led by Professor Shimon 
Ullman and concentrates on understanding 
the process whereby the retina of the 
human eye distinguishes between light 
sources of differing intensity. 



Obviously, vision and image-understand- 
ing research will have an application some- 
day in another of the Lab's research areas, 
robotics. The team working on the Robotics 
projects includes Dr. J. Michael Brady, Dr. 
John M. Hollerbach and Professor Tomas 
Lozano-Perez. The primary thrust of current 
research is the development of a high-level 
manipulator language. 

The Al Lab's overall Director, Patrick 
Winston, heads the theory of reasoning by 
analogy project; Professor Marvin Minsky, 
the Lab's most well-known member outside 
academic circles, continues his work on the 
"society of minds" theory. This is a theory 
which postulates that intelligence is the 
result of the interplay among groups of 
related individual concepts or processes. 
Professor Richard Greenblatt continues his 
work with Lisp, a character-manipulation 
language that he developed initially several 
years ago. 

In a recent interview with 80 Microcom- 
puting, Dr. Winston addressed the issue of 
whether or not artificial intelligence 
research will develop machines so powerful 
that society may become over-dependant 
on them. "In the first place, America and 
Europe are already overly dependant on 
machines. For example, without farm ma- 
chinery most of the industrialized West 
would starve to death. Secondly, one of the 
major goals of Al research Is the develop- 
ment of computers that explain what they 
are doing and how they are doing it. In this 
way, Al may help us understand ourselves 
better." ■ 
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A beautiful match, the Smartmodem 
and theTRS-80. Your TRS-80 can talk with 
other computers, over the telephone lines. 
And with no acoustic losses or distortions. 
Access timesharing systems and infor- 
mation utilities such as the Source: 
CompuServe ■ and MicroNet. 
Direct hook-up with no interference noises. 
The Smartmodem hooks to the telephone 
line just like a modular telephone, simply 
insert in a wall jack. 
"Love at first sight" - your TRS-80 and 
the Smartmodem! 

Brawny- because it does so 
many things. Auto-dial and auto-answer 
features built in. With the Smartmodem, 
your TRS-80 can automatically dial the 
telephone, answer the telephone, receive 
and transmit, and hang up the telephone. 
Completely unattended 
Pulse dialing or Touch-Tone. ' ' The 
Smartmodem can be connected to any 
telephone system in the U S because it 
allows pulse-dialing, Touch-Tone dialing 
or a combination of the two. FCC 
approved. 

Program controllable in any language us- 
ing ASCII character strings. This is a unique 




Microcomputer Component Systems 

feature of the Hayes Smartmodem. 

Brainy - because it does them 
all so simply. Seven LED indicators on 
the front panel give you visual signals of 
the status of the Smartmodem 
MR- Modem Ready. SD- Send Data. 
CD- Carrier Detected, etc. 
The audio monitor feature lets you listen 
in" on the call being dialed and the con- 
nection made. You are immediately alerted 
to busy signals, wrong numbers, etc. 
Over 30 different commands can be en- 
tered directly from your TRS-80 keyboard, 
including the unique "Set"' commands 
which allow you to select and change var- 
ious optional parameters such as dialing 
speed, escape code character, length of 



time for a dial tone, and number of rings to 
answer. There are 17 Set" commands. 
The Smartmodem is completely compat- 
ible with the Bell- 103 type modems, the 
type of modem most time-sharing systems 
have. Operation can be in full or half-duplex . 
with a transmission speed of 0-300 baud. 

The Smartmodem is ready to 
"get-together with your TRS-80. 
TRS-80 Model II and TRS-80 Color Com- 
puters have RS-232 serial ports and can 
immediately interface with the Smart- 
modem Expansions that permit use of 
• the Smartmodem with TRS-80 Model I 
and Model II are available through your 
TRS-80 dealer 

Match your TRS-80 with a Hayes 
Smartmodem for a sophisticated, high 
performanced data communication 
system. Available at computer stores 
nationwide (except T RS-8 dealers) - 
call or write for the / W \ 
location nearest I 4 ||-lpl\/AQ 
you. And don't set- \iJ ■ ■«J>^ 
tie for anything less than Hayes 
Hayes Microcomputer Products, Inc. 
5835 Peachtree Corners East. 
Norcross. Georgia 30092 (404) 449-8791 



%ur TRS-80 computer 

and the Hayes Stack Smartmodem. 

Beauty, Brains, and Brawn ! 
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"... It's becoming very clear now . 
Your microcomputing life is going to be very 
^^ exciting . . Money! I see much 
money for you. Perhaps it is the 
' vJs^ money you will gain when 

Instant Software's new 
business applications 
guide your financial 
endeavors. I see 
travel. . you will 
journey to distant 
worlds in distant 
^ times. You will build 
kingdoms from des- 
erts and armies 
from slaves. Never 
will you be bored, 
adventurous one! Your 
programming burdens will 
lighten with new utilities— new 
tools. I see color! Many 
bright colors! I see new 
packaging for all these trea- 
sures .. everything new! 
And. . yes, a tall, hand- 
some stranger who will 
guide you to these won- 
ders. It will be your In- 
stant Software dealer— 
a wise one indeed. All 
awaits you — all is 
yours for the asking. 
Soon. . very soon!" 



Get a glimpse of the future today— at your nearest 

Instant Software dealer. 
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YOUR NAME COULD 

BE HERE. CALL 

1 800-258-5473 



Find out what you're missing. 

You heard the lady. Your microcomputing life is going to be very exciting. But don't 
leave it to chance— leave it to us! We have a brand new catalog full of packages and 
valuable coupons to help make it happen. It's free. . if you fill out the coupon and mail 
it today. (Or make a photocopy and spare your magazine). 

NAME: ____^ . 



ADDRESS: 



CITY:. 



Instan t Softwa re Inc 



STATE: 



.ZIP:. 



Peterborough, N.H. 03458 603-924-7296 -A21 



GAME 



In this game your computer will use 

the principles of artificial intelligence against you. 



Master Mind— 

An Intelligent Program 



Duane R. Hope 

2704 College Park Road 

Allison Park, PA 151Q1 



Have you ever encountered the mysteri- 
ous phrase "artificial intelligence" 
while flipping through the pages of your fav- 
orite microcomputing magazine? Did you 
find yourself asking, "What's artificial intel- 



ligence and how can I use it?" 

Artificial intelligence (Al) is a computer 
system which exhibits behavior that is 
called intelligent behavior when we observe 
it in human beings. The most common intel- 
ligence displayed by Al systems are the 
abilities of problem solving, learning and 
pattern recognition. 

Combining these ingredients Al systems 
have been designed to solve many varied 
and complex problems, such as investment 



Code Maker's Code 
Code Breaker's guess 



Position Position Position Position 
1__ 2 3 

blue red red 

red blue green 



4 

yellow 
yellow 



Example 7. 



Evaluation Pattern 

Number of blacks + whites = 
Number of blacks = 0, number 
of whites greater than 

Number of blacks + whites = 4 

Number of blacks = 4 



Action 

Do not use any of the numbers in this guess in future guesses 

The numbers In each position of this guess cannot appear in the 

same position in future guesses. 

Only the numbers in the guess are in the code. Do not consider 

numbers that are not in this guess in future guesses. 

The goal state has been reached and the code broken. 



Example 2. Pattern recognition operations. 



If this guess were 


the code then the evaluation of 1111 would be 


1112 


three blacks and zero whites 


1113 


three blacks and zero whites 


1114 


three blacks and zero whites 


1115 


three blacks and zero whites 


1116 


three blacks and zero whites 




Example 3. 



analysis, proving theorems, and robot gui- 
dance system design. Al work has also 
taught computers to play chess. 

I first applied Artificial Intelligence tech- 
niques to a Master Mind program. I had writ- 
ten a program that allowed a person to play 
a solo version of Master Mind. In the solo 
version the computer randomly produced 
codes for the player to guess. The computer 
evaluated each of the player's guesses until 
the code had been broken. 

This solo version grew tiresome. To 
modify this program, so that both the com- 
puter and player could take turns making 
and breaking codes, required artificial intel- 
ligence techniques. Although the new ver- 
sion of Master Mind is not as sophisticated 
as a cybernetic investment system, it re- 
quires the computer to exhibit intelligent 
behavior. The computer learns how to dupli- 
cate the thought processes necessary to 
break codes. 

Master Mind 

If you are not familiar with Master Mind, it 
is a game of deductive logic, manufactured 
by Invicta Plastics, Ltd. Played by two peo- 
ple, each takes turns assuming the roles of 
code maker and code breaker. 

At the beginning of play, the code maker 
constructs a code by selecting an ordered 
combination of four colored pegs from six 
sets of pegs, each of a different color. The 
code breaker cannot see the arrangement. 
He attempts to duplicate the order and col- 
or of the pegs in the code by placing his 
guesses on a board, one at a time. After 
each guess (which consists of placing four 
colored pegs on the board) the code maker 
evaluates the code breaker's guess. The 
code breaker uses these evaluations to try 
to guess the code. 

The code maker evaluates each guess by 
giving the code breaker one black peg for 
every peg in the guess that is the correct 
color and position. One white peg is given 
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The jury is in and the verdict is . . . "outstanding!" 
Reviews from all of you who purchased MAXI 
MANAGER (not to mention raves by many top 
microcomputing magazines) have heralded it as the 
definitive data base managing system. We knew that 
business owners and hobbyists demanded the finest 
data base managing system available. To all of you 
who praised us for MAXI MANAGER, we extend our 
thanks. And to those of you who have yet to try MAXI 
MANAGER, we invite you to experience this incredible 
system today. But don't take our word for it (or our 
jury's). Judge for yourself. 
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JUST CHECK SOME OF THESE FEATURES 

Supports six different relational search techniques. 

Comes with programmer's interface. 

Over 120 pages of documentation. 

Supports up to 20 user defined fields of 40 characters each. 

Record length up to 800 characters. 

Files can be up to four disks in length. 

Compatable 35, 40, 77 & 80 track drives with proper 

operating system. 

Has calculated equation fields. 

Complete report generator. 

Works hand in hand with any word processor. 



RELATIONAL COMPARISONS 



MODEL 1 version requires TRSDOS 2.3 and is compatable with 
NEWDOS 2.1 & NEWDOS 80 

MODEL 3 version comes on TDOS. a special version ol the DOSPLUS 
operating system. 

Requires 48K of RAM and one disk drive minimum. 




"Master Mind is a game of deductive 

logic, played by two people. Each 

takes turns. . . as code maker and code breaker. 



for every peg that is the right color, but in 
the wrong position. The white and black 
pegs, however, do not correspond posi- 
tionally to specific pegs in the guess. See 
Example 1. 

The code maker evaluates the guess in 
Example 1 by giving the code breaker one 
black peg and two white pegs. If this were 
the first guess, the code breaker would have 
no idea which peg was the right color and in 
the right position (the yellow peg) and which 
two pegs were the correct color but in the 
wrong positions (the red and blue pegs). 

The code maker receives one point for 
each guess the code breaker makes. A turn 
is completed after each player has been 
both the code maker and code breaker. The 
player with the highest score wins. 

Means-ends Analysis 

The most difficult part of teaching a com- 
puter to play Master Mind is teaching it to 
break codes. But, breaking a code can be 
compared to solving a problem. 

We can employ one of the Al techniques 
for problem solving. I decided to use the 
Means-ends Analysis devised by Newell 
and Simon. 

In Means-ends Analysis the ends repre- 
sents the solution to a given problem and is 
referred to as the "goal state." The "current 
state" describes how close the problem 
solver is to the goal state and represents all 
of the information accumulated in the 
search for the solution. 

Fundamental to Means-ends Analysis is 
the concept that there is a measurable dif- 
ference between the current-state and the 
goal-state. This difference may be reduced 
by a repeated application of certain opera- 
tions to previously acquired information. 
This represents the "means" of solving the 
problem. 

In Master Mind the goal state is guessing 
the code. The current state is all of the infor- 
mation the code breaker has accumulated 
toward the goal. Initially, the current state 
consists solely of the code breaker's knowl- 
edge of the rules of Master Mind. 

The difference between the goal state 
and the current state is the maximum 
number of guesses the code breaker would 
have to make to arrive at the code. Because 
the code could consist of four pegs and 
each peg could be selected from one of six 
different colors, it would be possible for the 
code breaker to make 1,296 (6x6x6x6) 
guesses before duplicating the code. 

To reduce this difference, the first move 
is to make a guess. 



Because the computer will be competing 
with a person, and because a person can 
usually guess the code after four to twelve 
guesses, we must discover additional oper- 
ations that may be performed so the code 
can be broken after four to twelve guesses. 

Verbal Protocol and 
Problem-Behavior Graphs 

"Verbal Protocol" isanothertechniqueof 
Artificial Intelligence which is used to dis- 
cover what mental operations are per- 
formed by people when they solve a par- 
ticular problem. To record these processes, 
the problem solver is asked to think out loud 
as he attempts to find the solution. The ver- 
balized thoughts are written down. The 
documentation is referred to as verbal pro- 
tocol. Verbal protocol is analyzed to 
discover operations that the problem solver 
performs on acquired information to find 
the solution. 

The analysis of the verbal protocol Is 
simplified through the use of problem-be- 
havior graphs which are representations of 
the verbal protocol. 

To explain how verbal protocol and prob- 
lem-behavior graphs can be used, let's 
review an example of a code breaker taking 
one guess at the code maker's code. To 
simplify the example, rather than using six 
colors to form the code, we will use the 
numbers one through six. 

Let's assume that the code is 4326. We 
already know that the code breaker must 
first make a guess to begin reducing the dif- 
ference between the current state and the 
goal state. 



The verbal protocol of the first guess 
would go something like this: 



"Lei's see, I'd better make my first guess. What 
should I start with? Oh, I Know. Why don't I start with 
1111." 

The code maker would then evaluate the guess as 
zero blacks and zero whites. 

The code breaker would continue thinking, "No 
blacks and no whites. That means the code doesn't 
contain any ones." 



To draw the problem-behavior graph, rep- 
resent the current state of knowledge with a 
rectangle. An operation leading us to a new 
state of knowledge will be represented by 
an arrow. See the problem-behavior graphs 
in Fig. 1. 

Analyzing the graph, you see that the first 
operation is making the guess 1111. This 
leads us from the first state of knowledge 
where we knew only the rules of the game, 
to the second state of knowledge where we 
learn that the guess is evaluated by zero 
blacks and zero whites. The first operation 
has reduced the difference between the 
first state of knowledge and the goal-state 
from 1,296 possible guesses to 1,295. 

Graph (b) of Fig. 1 shows that the second 
operation, "If B + W = 0, the numbers in this 
guess can't be in the code," takes us from 
the second state of knowledge to the third: 
The code can't contain any ones. This sec- 
ond operation has further reduced the dif- 
ference between the current state of 
knowledge and the goal state to 625 possi- 
bilities (5x5x5x5). 

To further reduce the difference between 
a current state of knowledge and the goal 





Program Listing 


l!8 


i******************************************************** 


120 


1 MASTERMIND * 


130 


1 by * 


140 


' DUANE R. HOPE * 


150 


• * 


160 


********************************************************* 


170 


1 * 


180 


' MASTER PROGRAM - GAME CONTROL LOGIC * 


190 


1 * 


200 


********************************************************* 


210 


RANDOM : CLS 


220 


PRINT" MASTER MIN D": PRINT 


230 


INPUT"WHAT IS YOUR FIRST NAME";NA$ 


240 


PRINT: INPUT"HOW MANY GAMES DO YOU WISH TO PLAY";NG 


250 


IF NG < 1 GOTO240 


260 


PRINT: PRINT"! WILL NOW TOSS A COIN TO DETERMINE THE ORDER OF 


PLAY": PRINT 


270 


PRINT"HEADS - YOU'RE THE CODEMAKER" 


280 


PRINT"TAILS - YOU'RE THE CODEBREAKER" : PRINT 




Program continues 
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Reader Service for facing page x-357- 



The Newest & Most Astounding Arcade Game 
.Jhat TALKS has Just Reached Planet Earth: 



fiDBDT ATTACH 



, " -. — 




P.O. Box 9078-185 -Van Nuys.CA 91409- (213)782^061 

Ordering info for all games: 
Super Nova, Galaxy Invasion, Attack Force, Cosmic Fighter, Meteor Mission 2, and Robot Attack: 



Prices per game 16K Level 2. Mod 1/Mod 3 Cassette $15.95 
32K Lewi 2, Mod 1/Mod 3 D.skette $19.95 
Optional Joystick lor Model 1 - S39.95 . • " 

10% discount lor 2 items, 1 ', 

Pleas* add $1.50 per order for postage & handling, Calif, residents add 6% tax. 

Outside USA (except Canada) please add $3.00 per order lor postage & handling. 

We accept checks, money orders, and MC/Vrsa orders ($2.00 extra lor CODI. 



All games O 1980 by Bill Hogue & Jeff Konyu. 

Programs are written in machine language for high quality graphics & sound effects. 

Voice 8. other sounds are playable through the cassette AUX plug. 

High scores are automatically saved after each game on the disk versions. 

TRS-80 is a trademark of Tandy Corp. 

Write for more detailed info about all of our products. 

Dealers: All games now available in full color packaging like above, please 



"Pattern recognition 

is an Al technique 

used for converting information into action. 



Program continued 



290 

300 

310 

320 

330 

NT 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 
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480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

4 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 



FOR 1=1 TO 2500:NEXT I 

CT = RND(2) 

IF CT = 1 Ml$="HEADS":M2$="CODEMAKER" 

IF CT = 2 Ml$="TAILS":M2$="CODEBREAKER" 

PRINT"THE COIN CAME OUT "?M1$;" SO YOU WILL BE THE 



';M2$:PRI 



FOR 1=1 TO 2500:NEXT I 

GC=0:PC=0:PP=0 

IF CT = 1 GOSUB560 ELSE GOSUB960 

IF CT = 1 GOSUB960 ELSE GOSUB560 

IF GC = GA$="GAME" ELSE GA$="GAMES" 

PRINT"AFTER";GC+1;GA$; " THE SCORE IS:" 

PRINT: PRINT" ";NA$;PP 

PRINT" COMPUTER"; PC 

FOR 1=1 TO 2500:NEXT I 

GC = GC + 1 

IF GC < NG GOTO360 

M1$="IT'S A TIE" 

PRINT 

IF PC > PP THEN M1$="I WON" 

IF PC < PP THEN Ml$="YOU WON" 

PRINT Ml$ 

PRINT: INPUT'WOULD YOU LIKE TO PLAY ANOTHER GAME";M1$ 

IF LEFTS(M1S,1)="Y" GOTO240 

PRINT: PRINT "THANK YOU FOR PLAYING, ";NA$ 

END 
i******************************************************** 

i * 

' THIS IS THE CODE MAKER ROUTINE * 

i * 

i******************************************************** 
PRINT: PRINT "IT'S YOUR TURN TO MAKE A CODE": PRINT 
INPUT"ENTER 4 DIGIT CODE FOR ME TO GUESS" ; COS : IF LEN(CO$) <> 
GOTO60 
NUM$=COS : GOSUB1290 
IF ERO0 GOTO600 
RESTORE 
FOR R=l TO 6 
FOR C=l TO 4 
READ PO(R,C) 
NEXT C,R 

C1=1:C2=1:C3=1:C4=0:GU=0 
GU=GU+1 

IF GU=1 THEN FOR 1=1 TO 4 : C ( I ) =RND (6 ) : NEXT I 
IF GU=2 THEN C(1)=C1:C(2)=C2:C(3) =C3:C(4)=C4 
IF GU>2 THEN FOR 1=1 TO 4 :C ( I) =GT(GU-1 , I) :NEXT I 
IF GU>1 GOSUB1690 
TRY$="" 

FOR 1=1 TO 4:TRYS=TRY$+RIGHT$(STR$(C(I) ) ,1) :NEXT I 
PRINT"PLEASE EVALUATE TRY NUMBER" ; GU ; " ";TRYS 
INPUT" ENTER B";BB 
INPUT" ENTER W";WW 

FOR I=1T04:GT(GU,I) =C(I) :NEXT I :GT(GU , 5) =BB:GT(GU , 6) =WW 
NUM$=CO$:GOSUB1290 
FOR 1=1 TO 4:C(I)=T(I) :NEXT I 
NUM$=TRY$:GOSUB1290 
GOSUB14 90 ' EVALUATE GUESS 
FOR 1=1 TO 4: T(I ) =C ( I) :NEXT I 
IF BB=B AND WW=W GOTO880 

PRINT"YOUR EVALUATION SHOULD HAVE BEEN 
GT(GU,5)=B:GT(GU,6) =W 

IF B=4 THEN PP=PP+GU : PRINT" I GOT IT !1":RETURN 
IF B+W=4 GOSUB1840 
IF B+W=0 GOSUB1990 
IF B=0 AND WO0 GOSUB2110 
PRINT"QUIET, I'M THINKING" 
GOTO6 90 
DATA 1,1,1,1,2,2,2,2,3,3,3,3,4,4,4,4,5,5,5,5,6,6,6,6 

RETURN 
i******************************************************** 



Program continues 



=";B; " W =";W 



state, I recorded verbal protocol as I 
attempted to break several codes, and con- 
structed problem-behavior graphs. When I 
analyzed the graphs, I discovered that the 
operations I performed could be grouped in- 
to two categories: "pattern recognition" 
and "learning." 

Pattern Recognition 

Pattern recognition is an Al technique 
used for converting information into action. 
In pattern recognition there is a one-to-one 
correspondence between a particular infor- 
mation pattern and an appropriate course 
of action. The list in Example 2 comprises 
the pattern recognition operations I discov- 
ered. 

In certain cases the use of pattern recog- 
nition mechanisms will help reduce the dif- 
ference between the current state and the 
goal state. In other cases, pattern recogni- 
tion must be augmented by the learning 
process. 

Learning 

The learning process is an Al technique 
that gradually modifies a programmed deci- 
sion system to improve performance. Modi- 
fications are made from performance 
evaluations of previously made decisions. 

For example, each guess that the code 
breaker makes, along with the correspond- 
ing evaluation, is saved. Prior to making 
each succeeding guess, previous guesses 
are reevaluated in light of the next guess 
you are contemplating. If the evaluation of 
each preceding guess is unchanged, then 
the prospective guess could be the code— 
and the guess will be made. On the other 
hand, if any of the reevaluations have 
changed since the original evaluations, 
then the prospective guess is discarded. 
This is the learning process. 

Assume that the code is 4316 and that 
the code breaker's first guess is 1111. The 
code breaker, then, would receive an 
evaluation of one black and zero whites. No 
action would be performed as a result of 
this evaluation; the difference between the 
current state and goal state is only reduced 
by one. 

However, by using the learning pro- 
cesses, we can reduce the difference fur- 
ther. Eliminate all possible guesses that 
would not result in one black and zero 
whites. See Example 3. 

Since the code produced an evaluation 
for the guess 1111 of one black and zero 
whites, then none of the guesses in Exam- 
ple 3 could be the code because when they 
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Put Your Fingers On 
The Pulse Of Wall Street 

With Your 
Radio /hack Computer 



If you invest in the market, operate your own busi- 
ness or require updated information quickly to 
manage your affairs, Dow Jones Information Services 
provides the authoritative business and financial in- 
formation you need. . .from Wall Street, Washington 
and around the world. Now Radio Shack owners 
can receive this valuable service through TRS-80® 
Videotex® software. 

Get Information For Business And 
Investment Control. . .On Command. 

Discover how quickly and easily your personal 
computer turns into a specialized, sophisticated 
library of information with access to the Dow 
Jones database. If s considered the world's most 
reliable and comprehensive source of business 
and financial data providing you with news 
up-to-the-minute as well as from the pre- 
vious 90 days. 

Now you can review thousands of items 
from The Wall Street l ournal , Barron's and 
the worldwide Dow Jones News Service 
without having to maintain piles of news- 
paper clippings. Information about com- 
panies, stocks, labor, government, interna- 
tional market and monetary developments, 
and so much more, is yours on command. 

Quotes From Four Exchanges 

Now, in just seconds, you can obtain cur- 
rent prices and the volume traded for 
stock quotes (15 minutes delayed) on over 
6,000 companies. . .plus 50 key financial in- 
dicators on 3,200 selected firms and 180 in- 
dustries. You'll also have access to trading 
information on mutual funds, treasury 
notes and bonds. 



Imagine being able to spot trends, research a com- 
pany, obtain data that could affect your business, 
your investments, your investment decision-making. 
But you don't have to imagine anything. . .Dow 
Jones Information Services provides it all right now. 

Low Start-Up Cost. . .Free Password. 

Stop by your nearest Radio Shack store and 
find out how easy and inexpensive it is to get 
Dow Jones investment data through TRS-80 
Videotex. Videotex software for Radio Shack 
computers is only $29.95. Whaf s more, you 
get a Dow Jones password absolutely 
free. . .along with one hour of free in- 
troductory time. And there are no 
start-up or minimum usage charges. 
In addition, software and usage costs 
will be tax deductible in many cases 
(consult your tax advisor for further 
information). 

Customer Support. . . 
Just A Phone Call Away. 

Dow Jones' professional customer 
service staff is ready to provide com- 
plete information about this impor- 
tant home information service now. . . 
and full customer support after 
you've made your purchase. 
Just call toll free. . . 

800-257-5114 

In New Jersey call: 
(609) 452-1511. 

TRS-80, Radio Shack, and Videotex are registered trademarks ol Tandy Corp. 




DOWJONCS INFORMATION SEPVIC€S 

Providing Information Through Innovation 

Dou Jones & Company, Inc. ^<2s 



'7/7 completing my analysis 

I realized it would be necessary 

to generate each of 1,296 possible guesses. 9 ' 



are substituted for the code they do not pro- 
duce the original evaluation. In this exam- 
ple, there would only be 500 guesses that 
would produce evaluations of one black 
and zero whites. 

Completing the Analysis 

In completing my analysis of the prob- 
lem-behavior graph, I realized that it would 
be necessary to develop a procedure for 
generating each of the 1,296 possible 
guesses — otherwise the computer would 
never be able to make any guesses. In addi- 
tion, this generator would have to produce 
each guess only once. 

The guess generator would also have to 
be designed so that the operations result- 
ing from pattern recognition could be per- 
formed. To accomplish this, I used the pos- 
sibility table shown in Fig. 2. 

Each of the possible 1,296 guesses can 
be generated from this table. Initially the 
number used in positions W, X, Y and Z is 
set to a one. Then, to generate succeeding 
guesses, the right most position, position Z, 
varies from one to six. After the first six gen- 
erations (11 11, 1112, 1113, 1114, 1115,1116), 
position Z is set to one again, and the next 
position to the left, position Y, is set to a 
two. 
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Fig. 1. Problem-behavior Graph 



Number to use Position in guess 


W X Y Z 

1 1111 


2 2 2 2 2 

3 3 3 3 3 

4 4 4 4 4 

5 5 5 5 5 

6 6 6 6 6 


Fig, 2. Possibility Table 



Program 


ontmueO 


980 


' THIS IS THE CODE BREAKER ROUTINE * 


990 


' * 


1000 


********************************************************* 


1010 


PRINT: PRINT"NOW IT'S MY TURN TO MAKE A CODE" 


1020 


FOR 1=1 TO 2500:NEXT I 


1030 


PRINT:PRINT"O.K. , I'VE GOT IT NOW. TAKE YOUR FIRST GUESS" 


1040 


PRINT 


1050 


NO=0 


1060 


FOR 1=1 TO 4:C(I) =RND(6) :NEXT I 


1070 


INPUT'ENTER YOUR GUESS (4 DIGITS) "; TRY$: IF LEN(TRYS)<>4 GOT 


01070 


1080 


NUM$=TRY$:GOSUB1290 


1090 


IF ERO0 GOTO1070 


1100 


GOSUB14 90 ' EVALUATE GUESS 


1110 


N0=N0+1 


1120 


PRINT"TRY NUMBER"; NO;" B =";B; n W =";W 


1130 


IF B <> 4 GOTO107 


1140 


PRINT"Y0U GOT IT 111" 


1150 


PC=PC+NO 


1160 


RETURN 


1170 


I********************************************************* 


1180 


■ * 


1190 


1 ROUTINE TO PUT 4 DIGIT STRING NUMBER INTO ARRAY T(I) * 


1200 


1 * 


1210 


1 INPUT :NUM$-4 DIGIT STRING TO CONVERT * 


1220 


' OUTPUT:T(I) -ARRAY CONTAINING NUMERIC EQUIVALENT * 


1230 


' OF NUM$ * 


1240 


' ER -ERROR CODE * 


1250 


1 = NO ERROR * 


1260 


' 1 = NO. < 1 OR > 6 ENCOUNTERED IN * 


1270 


' NUM$ * 


1280 


» * 


1290 


i********************************************************* 


1300 


ER=0 


1310 


FOR 1=1 TO 4 


1320 


T(I) =VAL(MID$(NUM$,I,1) ) 


1330 


IFT(I) < 1 OR T(I) >6 THEN ER=1 


1340 


NEXT I 


1350 


RETURN 


1360 


********************************************************** 


1370 


• * 


1380 


' ROUTINE TO EVALUATE CODEBREAKER ' S GUESS * 


1390 


< * 


1400 


1 INPUT : T(I)-4 DIGIT ARRAY CONTAINING GUESS * 


1410 


1 : C(I) -4 DIGIT CODE * 


1420 


■ * 


1430 


' OUTPUT: B -NUMBER OF RIGHT NUMBERS IN RIGHT * 


1440 


' POSITION * 


1450 


' W -NUMBER OF RIGHT NUMBERS IN WRONG * 


1460 


' POSITION * 


1470 


' T( I) -CONTENTS DESTROYED * 


1480 


< * 


1490 


********************************************************** 


1500 


B=0:W=0 


1510 


FOR 1=1 TO 4:W(I) =C(I) :NEXT I 


1520 


FOR 1=1 TO 4 


1530 


IF W(I) <> T(I) GOTO1550 


1540 


W(I) = -1:T(I) = -2:B=B+1 


1550 


NEXT I 


1560 


FOR 1=1 TO 4 


1570 


FOR J=l TO 4 


1580 


IF T(I)OW(J) GOTO1600 


1590 


W(J) = -1:W=W+1:GOTO1610 


1600 


NEXT J 


1610 


NEXT I 


1620 


RETURN 


1630 


i********************************************************* 


1640 


i * 


1650 


' ROUTINE TO DETERMINE CODEBREAKER 1 S NEXT GUESS * 


1660 


■ * 


1670 


' OUTPUT: C(I) - NEXT GUESS * 




Program continues 
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JUST LAUNCHED! 
VOYAGE OF THE VALKYRIE 

BY LEO CHRISTOPHERSON 






ADVANCED 

OPERATING 

SYSTEMS 

450 St. John Road 
Michigan City, 
Indiana 46360 



The ancient Norse lords bravely sailed their ships across new waters in search of 

adventure. No obstacle was too great to overcome nor any force powerful 

enough to prevent their mighty advance. INow you're in command. You are 

the pilot of the attack ship Valkyrie. Your mission: to wrestle the island Fugloy 

from the grasp of an army of laser-wielding war birds and secure the golden 

treasures hidden within the walls of the island castles. Success of the mission 

depends solely upon you. The castle Drage appears on the horizon when 

suddenly the air is alive with the flutter of giant wings. Your prize is in sight . . . 

do you dare accept the challenge and go on? ■ You can put yourself at the 

controls of the Valkyrie thanks to the genius of Leo Christopherson and the 

versatility of the *TRS-80 microcomputer. As absolutely flickerless birds sail 

smoothly across the screen, strains of Wagner's "Ride of the Valkyries" are 

heard. The game offers 10 levels of difficulty which provide a challenge for 

players of all ages and skills. The game also provides one of the finest examples 

of computer cartoon-graphics presently available. Accept the challenge of the 

Voyage of the Valkyrie . . . available now at leading software retailers. 

Trademark of Tandy Corp 



"You should be able to apply 

these Al techniques to other situations 

to solve problems or make decisions. " 



Program continued 


16 80 


• 


1690 


i********************************************************* 


1700 


GOSUB2220 ' GET NEXT ENTRY FROM POSSIBILITY TABLE 


1710 


FOR L=l TO GU-1 


1720 


FOR J=l TO 4 


1730 


T(J)=GT(L,J) 


1740 


NEXT J 


1750 


GOSUB1490 ' EVALUATE OLD GUESS USING NEW GUESS AS CODE 


1760 


IF GT(L,5)=B AND GT(L,6)=W GOTO1780 


1770 


GOTO1700 


1780 


NEXT L 


1790 


RETURN 


1800 


I********************************************************* 


1810 


■ * 


1820 


' ROUTINE TO ELIMINATE ALL NUMBERS IN POSSIBILITY TABLE * 


1830 


' EXCEPT THOSE IN THIS GUESS. THIS ROUTINE IS ENTERED * 


1840 


' WHEN EVALUATION OF LAST GUESS IS : B+W =4 * 


1850 


■ * 


1860 


i********************************************************* 


1870 


FOR 1=1 TO 6: EL(I)=I:NEXT I 


1880 


FOR 1=1 TO 4 


1890 


EL(GT(GU,I) )=0 


1900 


NEXT I 


1910 


FOR 1=1 TO 6 


1920 


IF EL(I)<>0 THEN PO ( 1 , 1) =0 : PO ( 1 , 2) =0 : PO ( I ,3) =0 : PO ( 1 , 4) =0 


1930 


NEXT I 


1940 


RETURN 


1950 


1****************************4**************************** 


1960 


■ * 


1970 


' ROUTINE TO ELIMINATE ALL NUMBERS IN POSSIBILITY TABLE * 


1980 


1 THAT OCCUR IN THIS GUESS. THIS ROUTINE IS ENTERED * 


1990 


■ WHEN EVALUATION OF LAST GUESS IS : B+W =0 * 


2000 


i * 


2010 


i********************************************************* 


2020 


FOR 1=1 TO 4 


2030 


FOR J=l TO 4 


2040 


PO(GT(GU f I) ,J)=0 


2050 


NEXT J, I 


2060 


RETURN 


2070 


i********************************************************* 


2080 


i * 


2090 


' ROUTINE TO ELIMINATE THIS GUESS FROM POSSIBILITY TABLE.* 


2100 


1 THIS ROUTINE IS ENTERED WHEN EVALUATION OF LAST GUESS * 


2110 


1 IS: B=0 WO0 * 


2120 


■ * 


2130 


i********************************************************* 


2140 


FOR 1=1 TO 4 


2150 


PO(GT(GU,I) ,I)=0 


2160 


NEXT I 


2170 


RETURN 


2180 


********************************************************** 


2190 


■ * 


2200 


' ROUTINE TO EXTRACT NEXT ENTRY FROM POSSIBILITY TABLE * 


2210 


i * 


2220 


********************************************************** 


2230 


GOTO2360 


2240 


IF PO(C1,1)<>0 THEN C(l)=PO(Cl,l) :GOTO2280 


2250 


C1=C1+1 


2260 


IF CK7 GOTO2240 


2270 


PRINT-ERROR IN POSSIBILITY TABLE": END 


2280 


IF PO(C2,2)<>0 THEN C ( 2) =PO(C2 , 2) :GOTO2320 


2290 


C2=C2+1 


2300 


IF C2<7 GOTO2280 


2310 


C2=1:GOTO2250 


2320 


IF PO(C3,3)<>0 THEN C (3) =PO(C3 ,3) :GOTO2360 


2330 


C3=C3+1 


2340 


IF C3<7 GOTO2320 


2350 


C3=1:GOTO2290 


2360 


C4=C4+1 


2370 


IF C4 < 7 GOTO23 90 


23 80 


C4=0:GOTO2330 


2390 


IF PO(C4,4)=0 GOTO2360 


2400 


C{4)=PO(C4,4) 


2410 


RETURN 



Whenever the evaluation is zero blacks 
and zero whites, each number in the guess 
can be deleted from each position of the 
possibility table, by setting its relative posi- 
tion to zero. A guess that has one or more of 
its positions equal to zero can be discarded. 

The Problem-Solving Model 

The operations discovered from analyz- 
ing the problem behavior graphs can be 
assembled into a problem-solving model. 
Fig. 3 shows this model. 

The model begins with generating a 
guess (step 1) that does not contradict in- 
formation from previous evaluations (step 
2). If this guess contradicts previous evalua- 
tions, it is discarded and another guess is 
generated. A guess that is consistant with 
information from evaluations of previous 
guesses is made in step 3. 

After feedback is received form the code 
maker in step 4, the evaluation is checked 
by the pattern recognition mechanism in 
step 5 to determine if any numbers should 
be eliminated from the possibility table. If 
the evaluation is four blacks (step 6), the 
code has been broken and the problem 
solved. If the code has not been broken, the 
model returns to step 1 and the operations 
are repeated. 

The program listing will help you see how 
the model actually works. You should be 
able to apply some of these Al techniques 
to other situations requiring the computer 
to solve problems or make decisions ■ 
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SOFTWARE! 



Accept our free program. It retails for $6.95 but it's yours 
just for previewing America's finest software club. 



I want to tell you about the most excit- 
ing development that has ever happened 
to your computer. Then I want to extend 
an invitation. Neither the development or 
the invitation need cost you a cent. 

• It's not a new terminal. 

• It's not any kind of peripheral. 

• It's not a new language. 

• It's all of these. 

It's a club. A club exclusively for peo- 
ple who live and breathe computers, like 
you— and me. 

BUILD A SOFTWARE 
LIBRARY THAT WILL 
EXPAND YOUR 
COMPUTER'S CAPABILITIES 
TO THE LIMITS 
OF YOUR IMAGINATION. 

Each month we bring you the finest 
and boldest concepts in computer soft- 
ware from manufacturers all over the 
world, from categories that include 
education and business to entertain- 
ment and home utilities. 

Out of thousands of programs avail- 
able, we select those that make your 
computer do more of what you bought 
your computer for. Programs that keep 
your computer working throughout the 
day instead of gathering dust on a desk. 

ASC keeps your computer function- 
ing and expanding by supplying the vital 



FREE* 
ADVENTURE #0 

for the first 1000 charter members. 
A special sample of the Scott Adams 
Adventure Series. On TRS 80 cassette 
for model 1 and model 3. 

Other charter members receive FREE, 
the Hardcopy source code -Checkbook 
Balancing. 

'Only a small postage and handling 
charge 



software resources necessary for its 
growth. Software for the business 
owner, educator, hobbiest, the family. 
Software that will continually keep your 
hardware paced with state of the art 
technology. With an ASC membership 
you will be assured that your equipment 
is never rendered obsolete. 



OUR NO-OBLIGATION 
CHARTER INVITATION 

When you become a charter member 
you get: 

• Our free Scott Adams software pro- 
gram on cassette 

• Our informative and very candid 
newsmagazine 

• Discounts on all software programs 

• Discounts on major brands of hard- 
ware and supplies 

• Additional discounts for recommend- 
ing new members 

• Software updates as they become 
available 

• BONUS. Free buy, sell, or swap ad 
in our newsmagazine (on a space- 
available basis). A real moneysaver. 

Even if you never purchase another pro- 
gram, the free cassette is our gift to you. 



Gift acceptance certificate below. Mail 
today to reserve your free gift. 



DISCOUNTS. 
PROMPT SHIPMENTS. 

No more searching through magazine 
ads and paying top dollar. You save 
every time you buy. Save on software, 
hardware, books ... all computer sup- 
plies. For example, next month you can 
purchase name brand blank diskettes 
that the "discounters" sell for $3.50. Our 
price-$2.50. That's saving $10 per box. 

HERE'S HOW YOUR CLUB 
WORKS. 

All purchases are charged to your ac- 
count at low member prices, (software 
programs usually cost $9.95 to $24.95 
and are always discounted 15 to 40% off 
manufacturers' suggested list). Every 
four or so weeks, you will receive our 
new "Software Compendium" newsmag- 
azine free. It reviews the new programs 
and provides helpful hints and member 
input. If you want our "Choice of the 
Month", do nothing, it will be sent auto- 
matically. If you want an alternate, addi- 
tional, or no program at all (which will 
break your computer's heart), just return 
the card by the date specified. Unre- 
quested programs may be returned at 
our expense. And all software is sup- 
plied with the original manufacturer's 
warrantees. Club members are never 
subjected to any minimum purchase 
requirements. 



AMERICAN SOFTWARE CLUB, INC -™ 

Millwood, N.Y. 10546 

I can't wait. Please send me my free gift cassettelpr hardcopy source code) and enroll 
me in American Software Club as outlined in this ad. I understand that all future pur- 
chases (no minimum required) are at low members' prices and that a small postage 
and handling fee is added to all orders. Membership can be cancelled at any time. 

Bill me $1.50 postage and handling. 



My computer is a 
TRS 80 



am primarily interested in 

Business 

Entertainment 

Household 

Education 

All areas 



Name 

Address 

City/State/Zip. 
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APPLICATION 



Artificial Intelligence techniques for a theorem-proving program. 



Simple Syllogisms 



Rick Hoffman 

4055 Arrow Drive 

Mt. Pleasant, Ml 48858 

Have you ever dreamed of having an in- 
telligent computer? If so, here's a pro- 
gram that will boost your computer to the 
head of the class. 

The problem with endowing a 16K TRS-80 
with intelligence lies in defining a task with- 
out exhausting the machine's memory. To 
create a task that works, you must restrict 
your machine's intelligence. This means 
the computer will do well given a specific 
task, but for any other it will act like an idiot. 

For instance, programming a 16K com- 
puter to recognize spoken words would re- 
quire you to use a very small vocabulary. 
Since the majority of everyday words would 
not be in the computer's vocabulary, it 
would misinterpret or not acknowledge 
them at all. 

Theorem-proving programs have been 
created to verify theorems in set theory and 
geometry and make logical deductions via 
predicate calculus. My program deals with 
logical constructs known as syllogisms. 

Socrates Is Mortal 

Perhaps you are familiar with the famous 
syllogism: 

Socrates is a man. 
All men are mortal. 
Therefore, Socrates is mortal. 

This illustration shows what I set out to 
accomplish with my program. I wanted a 
program in which I could enter a number of 
rules— such as the first two lines of the 
above syllogism— and then make the com- 
puter manipulate the rules to answer ques- 
tions. 

Since entering English sentences for the 
rules and questions would tie up too much 
memory (if not deplete it completely), I 
chose as input specifications: 
STR1,STR2,STR3— where, except for spe- 
cial commands, STR2 and STR3 are names 
of sets, and STR1 is a string representing 
the format of the rule or question. It can be 
NOTIN, IN, NO, SOME, ALL or EQUAL and 
represents the relationship between STR2 
and STR3. 

My notation for the rules for the Socrates 
syllogism would be: 
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IN.SOCRATES.MEN 
ALL.MEN, MORTALS 

Notice "Socrates is a man" was rendered 
"Socrates is a member of the set of men". 
Mortal became mortals. The program will 
not recognize men as the plural of man. The 
names of sets should be plural unless there 
is only one member in the set. NOTIN and IN 
are special formats used only if STR2 is a 
set with one member. 

Questions have the same input specifica- 
tions. If you enter the first two lines of the 
Socrates syllogism as rules and then ask 
IN, SOCRATES, MORTALS, the answer 
would come back affirmative. 

Given a question (actually a statement 
the computer determines to be true or false) 
the program will try to prove the statement. 
If it succeeds, it answers "Affirmative". If it 
fails, it tries to disprove the statement. If it 
can do that, it answers "Negative". If it can 
neither prove nor disprove the statement, 
the program will answer "Undecidable". 

Whether you are feeding the program a 
rule or asking a question depends on what 
mode you are in. At the beginning of the pro- 
gram, you are in the rule mode and will be 
asked to input rules. The following are spe- 
cial commands providing intermode travel: 

• Q„ : Puts you in the question mode. 

• R„ : Puts you in the rule mode. 
I have also provided subroutines: 

• Listout,, : Gives a listing of your rule 
base in expanded form. Within this routine 
you have the option of deleting rules from 
your rule base. 

• L„ : Loads previously stored rules from 
cassette. Erases current rule base if pre- 
sent. 

• S„ : Saves your rule base to cassette. 
The listout subroutine is available from 

either mode, but the cassette load/save rou- 
tines can be invoked only from the rule 
mode. Should you unintentionally call a 
cassette operation, you may escape un- 
scathed by answering the "ready cassette" 
message with N. 

Anatomy of the Program 

Major variables (DEFSTR B-H; DEFINT A, 
l-Z): 

• D(200)— Directory of set names. In- 

stead of storing the rules as 



triplets of strings, memory is 
conserved by assigning to 
each set name a directory in- 
dex. 

• XD— Number of entries in the direc- 

tory. 

• R,S,T— Arrays of size 100; rule ar- 

rays. 

R(l) = Index in directory of 

STR2 

S(l) = Index in directory of 

STR3 

T(l) = Format of rule: 

1 = NOTIN, 2 = IN, 3 = NO, 
4 = SOME, 5 = ALL, 
6= EQUAL 

• A— Number of rules currently 

stored. For example, sup- 
pose you were to input rule 
one as: ALL.DOGS.MAM- 
MALS. The program would 
then establish the values: 
A = 1, D(1) = "DOGS"; 
D(2) = "MAMMALS"; XD = 2; 
R(1) = 1; S(1) = 2; T(1) = 5. 
Four Inferences that can be 
made from this rule: All dogs 
are mammals; some mam- 
mals are dogs; some non- 
dogs are non-mammals; all 
non-mammals are non-dogs. 
Any rule leads to four Inferences, each in- 
ference of the form "All. . ."or "Some " 

These inferences provide the real rule base 
that gives the program its reasoning capa- 
bility. 

The index of "NOT" + Set Name is taken 
to be the negative of the index of Set Name. 
In the example, the set of non-mammals 
would have the name "NOT MAMMALS" 
and corresponding index -2. These inferen- 
ces are stored as follows: 

• U,V,W— Arrays of size 400; inference 

arrays: 

U(l) = Index of first set in 
directory; 

V(l) = Index of second set in 
directory; 

W(l) = Type of Inference: 
0— all of first set are in sec- 
ond set; 

1— some of first set are in 
second set. 

• AA— =4A is the number of infer- 



'To create a task that works, 

you must restrict your machine's intelligence. 

. . . you must use a very small vocabulary." 



180-190 



200-210 
220-280 

500-560 
570-630 

640-660 

670-750 

760-900 



ences stored. Continuing 
with the ALL.DOGS.MAM- 
MALS example, the program 
will establish these inference 
array values: 
AA = 4 

U(1)=1, V(1) = 2,W(1) = 
U(2) = 2, V(2) = 1,W(2) = 1 
U(2) = 2,V(2) = 1,W(2)=1 
U(3)= -1,V(3)= -2,W(3) = 1 
Description of the program text, by lines: 
10-55 Initializations. 
60-95 Cassette I/O routine. 
100-170 Get next rule: Input F,G,H (all 
strings). 

Subroutine: Check if string B 
is in directory. Put index into 
M. 

Subroutine: Negate B. 
Subroutine: Create inferen- 
ces of rule. 

Get question: Input F.G.H. 
On (format of the question) 
perform appropriate routine. 
Result messages; get next 
question. 

Subroutine: Tests inclusion 
of set D(XG) in set D(XH). 
Subroutine: Tests if some of 
set D(XG) are in set D(XH). 
1000-1140 List out subroutine. 
1150-1190 Delete a rule. 
1500-1550 Load rule base from cas- 
sette. 
1600-1630 Save rule base to cassette. 
3000-3020 Routine to check/find the ad- 
dresses to be POKEd during 
cassette routines. 
Important algorithms: The "brains" of 
this program reside in the subroutines at 
lines 670 and 760. The goal in the routine at 
670 is to decide if one set, say SET1, is con- 
tained in another set SET2. This detects the 
existence of a sequence of inferences, all of 
which are inclusions: SET1 is contained in 
SETA; SETA is contained in SETB; SETB is 
contained in SETC;. . .SETM is contained 
in SETN; SETN is contained in SET2. Such a 
sequence leads to the conclusion that SET1 
is contained in SET2. 

The subroutine at 760 tests if some ele- 
ments of SET1 are in SET2. The routine 
must detect the existence of a sequence of 
inferences for which no more than one in- 
ference is not an inclusion (the exception in- 
ference is thus an inference with corre- 
sponding W array value of one). 

All inferences preceding the exception in- 
ference In this sequence must be reversible: 
An inference ALL,SETA,SETB is reversible 
if ALL,SETB,SETA is true. 

While the program is "thinking" in these 
two subroutines there is a string of aster- 
isks printed on the screen to assure the us- 
er the program has not gone off the deep 



end— the "think time" can get quite 
lengthy. 

Sample Session 

The best way to learn how to use this pro- 
gram is to be taken step by step through a 
small session. 

Run the program. You will be asked for 
rule one. Enter ALL.EVERGREENS.GREEN 
THINGS. (Green is an adjective, not a set 
name.) After a significant pause, the pro- 
gram will return and ask for rule two. 

Enter NO.MAPLE TREES.EVERGREENS 
or ALL.MAPLE TREES.NOT EVERGREENS 
(either one says the same thing). Notice 
NOT is a valid modifier for a set name. 

For rule three, enter SOME/THINGS IN 
OUR BACKYARD.EVERGREENS. Observe 
your set names can be as long and complex 
as you want. 

For rule four, enter EQUAL.EVER- 
GREENS.CONIFERS to signify that ever- 
greens and conifers are two different 



names for a single set, and enter rule five as 
IN.OUR CHRISTMAS TREE.CONIFERS. 

For rule six, enter Q„ to get into the ques- 
tion mode. The program will ask for a ques- 
tion. Enter IN.OUR CHRISTMAS TREE, 
GREEN THINGS. After three asterisks, the 
computer will answer "Affirmative," and 
another question will be requested. 

Enter SOME.CONIFERS.MAPLE TREES. 
After nearly a line and a half of asterisks, 
the answer will be "Negative". 

Now try the question ALL.CHRISTMAS 
TREES.EVERGREENS. Very quickly you get 
the message "Insufficient Information". 
Though you defined a one-element set 
named OUR CHRISTMAS TREE, there is no 
set with the name CHRISTMAS TREES. The 
program does not see any relationship be- 
tween these two set names. So there is no 
way to prove or disprove your question. 

The program Is very picky about set 
names. Extra spaces, typos or very slight re- 
wording will give you the insufficient infor- 



Program Listing 1 



10 CLS:CLEAR2000 

15 DEPSTR B-H 

20 DEPINT A,I-Z 

25 DIM D(200) ,R(100) ,S(100) ,T(100) ,U(400) ,V(400) ,W(400) ,P(30) ,Q( 

30) ,PP(30) ,QQ(30) r RR(30) ,SS(30) 

30 DATA NOTIN, IN, NO, SOME, ALL, EQUAL, 17630, 17533,17504 

35 PRINT" SYLLOGISM PROGRAM" 

40 FORI-1T06:READPF(I) :NEXTI jPORI-lT03:READL(I) :NEXTI 

45 A-0:AA-0iXP-0:I$-"INSUPPICIENT INFORMATION" 

50 ER«"IMPROPER FORMAT — PLEASE RETYPE" 

55 GOTO100 

60 INPUT#-1,XD,A 

65 FORI-1TOXDSTEP10 

70 INPUT#-1,D(I) ,D(I+1) ,D(I+2) ,D(I+3) ,D(I+4) ,D(I+5) ,D(I+6) ,D(I+7 

),D(I+8),D(I+9) 

75 NEXTI 

80 FORI-1TOASTEP5 

85 INPUT#-1,R(I) ,S(I) ,T(I) ,R(I+1) ,S(I+1) ,T(I+1) ,R(I+2) ,S(I+2) ,T( 

1+2) ,R(I+3) ,S(I+3) ,T(I+3) ,R(I+4) ,S(I+4) ,T(I+4) 

90 NEXTI 

95 RETURN 

100 PRINT: PRINT" FORMATS: NOTIN, IN, NO, SOME, ALL, EQUA 

L": PRINT 

110 PRINT'RULE #"; (A+l) j : INPUTF,G,H 

120 IF(F+G+H-"LISTOUT")THENGOSUB1000:GOTO110ELSEIFF-"Q"THEN500EL 

SEIFF-"L"THEN1500ELSEIFF-"S"THEN1600 

130 N-0:FORI«1TO6:IFF«FP(I)THENN-I 

140 NEXTI :IFXF«1THENRETURNELSEIFN«0THENPRINTER:GOTO110 

150 B-G:GOSUB180 : IFMO0THENXG-MELSEGOSUB200 : GOSUB180 : IFMO0THENX 

G— MELSEXD-XD+1:D(XD) -G:XG-XD 

160 B-H :GOSUB180 : IFMO0THENXH-MELSEGOSUB200 : GOSUB1 80 : IFMO0THENX 

H— MELSEXD«XD+1:D(XD) -H:XH-XD 

170 A«A+1:R(A)«XG:S(A)-XH:T(A)«N:GOSUB220:GOTO110 

180 M-0:FORI«1TOXD:IFB-D(I)THENM-I 

190 NEXTI: RETURN 

200 IFLEFT$(B,4)«"NOT "THENB-RIGHT$(B, (LEN(B) -4) ) ELSEB-"NOT "+B 

210 RETURN 

220 IF(N-1)0R(N-3)THENXH—XH 

230 FORI«AA+lTOAA+4:W(I)-0: NEXTI 

240 U(AA-H)«XG:V(AA+1)-XH:IFN»4THENW(AA+1)-1 

250 U(AA+2)-XH:V(AA+2)-XG:IFN<>6THENW(AA+2)-l 

260 U(AA+3)— XG:V(AA+3)— XH:IFN<>6THENW(AA+3)-l 

270 U(AA+4) — XH:V(AA+4) — XG: IFN-4THENW(AA+4) -1 

280 AA-AA+4: RETURN 

500 XF-1 

Program continues 
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REMsoft, Inc. 

Let Your TRS-80® 

Teach You 

ASSEMBLY LANGUAGE 

Tired of buying book after book on assembly 
language programming and still not knowing your 
POP from your PUSH' 

REMsoft proudly announces a more effi- 
cient way, using your own TRS-80* . to learn the 
fundamentals of assembly language programming 
-at YOUR pace and at YOUR convenience 
Our unique package. INTRODUCTION TO TRS-80" 
ASSEMBLY PROGRAMMING will provide you with 
the following 

• Ten 45-minute lessons on audio cassettes 

• A driver program to make your TRS-80* video 
monitor serve as a blackboard for the instructor 

• A display program for each lesson to provide 
illustration and reinforcement for what you are 
hearing 

• A textbook on TRS-80* Assembly Language 
Programming 

• Step-by-step dissection of complete and useful 
routines to test memory and to gain direct control 
over the keyboard, video monitor, and printer 

• How to access and use powerful routines in your 
Level II ROM 

This course was developed and recorded by 
Joseph E Willis and is based on the successful 
series of courses he has taught at Meta Technologies 
Corporation, the Radio Shack Computer Center, and 
other locations in Northern Ohio The minimum 
system required is a Level II, 16K RAM 

REM ASSEM-1 only $69.95 

LEARN TRS-80® 

ASSEMBLY LANGUAGE 

DISK I/O 

Your disk system and you can really step out with 
REMSOFT » Educational Module RFMDISK 1 a 
short course revealing the details of DISK I/O 
PROGRAMMING using assembly language 

Using the same format as our extremely popular 
introduction to assembly language programming 
this "ASSEMBLY LANGUAGE DISK I/O PROGRAM- 
MING" course includes 

• Two 45-minute lessons on audio cassette 

• A driver program to make your TRS-80* video 
monitor serve as a blackboard tor the instructor 

• A display program for each lesson to provide 
illustration and reinforcement for what you are 
hearing 

• A booklet ot comprehensive fully-commented 
program listings illustrating sequential file I/O 
random-access file I/O and track and sector I/O 

• A diskette with machine-readable source codes 
for all programs discussed m both Radio Shack 
EDTASM and Macro formats 

• Routines to convert from one assembler format 
lo the other 

This course was developed and recorded by 
Joseph E Willis, for the student with experience 
in assembly language programming, it is an inter- 
mediate-to advanced-level course Minimum hard- 
ware required is a Model I Level II 16 K RAM one 
disk drive system 
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only $29.95 




Dealer inquiries invited 

REMsoft. inc. 

571 E 185 st 

Euclid. Ohio 44119 

(216)531 1338 
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Program continued 

510 PRINT: INPUT"QUESTION: ";F,G,H 

520 IFF="R"THENXF=0:GOTO100ELSEIFF+G+H="LISTOUT"THENGOSUB1000:GO 

TO510 

530 B=G:GOSUB180:IFMO0THENXG=MELSEGOSUB200:GOSUB180:IFMO0THENX 

G=-MELSEPRINTI $ : GOTO510 

540 B=H:GOSUB180:IFMO0THENXH=MELSEGOSUB200:GOSUB180:IFMO0THENX 

H=-MELSEPRINTI$:GOTO510 

550 GOSUB130:IFN=0THENPRINTER:GOTO510 

560 IFABS(XG)=ABS(XH)THENPRINT"THAT SHOULD BE OBVIOUS" :GOTO510 

570 ONNGOTO590, 600 ,590, 580,600 ,610 

580 GOSUB630:IFM=1THEN650ELSEXG=»YH:XH— YG:GOSUB670 : IFM=0THEN6 40E 

LSE660 

590 XH=-XH 

600 GOSUB670:IFM=lTHEN650ELSEXH=-XH:GOSUB630:IFM=lTHEN660ELSE640 

610 GOSUB670:IFM=1THENI=XG:XG=XH:XH=I:GOSUB670:IFM=1THEN650 

620 XH=-XH:GOSUB630:IFM=1THEN660ELSEXG=-YG:XH=-YH:GOSUB630:IFM=1 

THEN660ELSE640 

630 GOSUB7 6 : IFM=0THENXG=YH : XH=YG : GOSUB7 6 : RETURNELSERETURN 

640 PRINT :PRINT"UNDECIDABLE":GOTO510 

650 PRINT: PRINT"AFFIRMATIVE":GOTO510 

660 PRINT: PRINT'NEGATIVE" :GOTO510 

670 M=0:L=0:P=1:P(1)=XG 

6 80 Q=0:Q(1)=0:FORI=1TOP 

690 FORJ=lTOAA:IF(U(J)=P(I) ) AND(W( J) =0) THENPRINT"*" ; :GOSUB740 : IF 

MM=1THEN700ELSEQ=Q+1:Q(Q)=V(J) : IFV( J) =XHTHENM=1 : RETURN 

700 NEXTJ:NEXTI 

710 FORI=lTOQ:P(I)=Q(I) :NEXTI 

720 P=Q : L=L+1: IF (L>A) OR (Q=0) THENM=0: RETURN 

730 GOTO6 80 

7 40 MM=0 : IFQ=0THENRETURNELSEFORI I=1T0Q : IFV ( J) =Q ( I I ) THENMM=1 
7 50 NEXTI I: RETURN 

760 GOSUB670 : IFH=1THENRETURNELSEYG=XG : YH=XH : LL=0 : PP=1 : PP ( 1 ) =XG : R 

R ( 1 ) =0 : I=XG : XG=XH : XH=I : GOSUB67 : IFM=1THENRETURN 

770 QQ=0:FORI1=1TOPP 

780 FORJ1=1TOAA:IFU(J1)OPP(I1)THEN830 

790 PRINT"*"; 

800 IF(RR(I1)=0)AND(W(J1)=0)THENXG=V(J1) :XH=U(J1) .-GOSUB670 : IFM=1 

THENGOSUB870:IFMM=1THEN830ELSEQQ=QQ+1:QQ(QQ) =V(Jl) :SS(QQ) =0:IFV( 

Jl ) =YHTHENM=1 : RETURN 

810 IF(RR(Il)=0)AND(W(Jl)=l)THENGOSUB890:IFMM=lTHEN830ELSEQQ=QQ+ 

1 : QQ ( QQ) =V ( Jl ) : SS ( QQ) =1 : IFV ( Jl ) =YHTHENM=1 : RETURN 

820 IF(RR(I1)=1)AND(W(J1)=0)THENGOSUB890:IFMM=1THEN830ELSEQQ=QQ+ 

1:QQ(QQ)=V(J1) : SS (QQ)=1: IFV ( Jl) =YHTHENM=1 : RETURN 

830 NEXTJ1:NEXTI1 

840 PP=QQ : LL=LL+1 : IF ( LL>A) OR ( QQ=0 ) THENM=0 : RETURN 

850 FORI=lTOQQ:PP(I)=QQ(I) :RR(I)=SS(I) : NEXTI 

860 GOTO770 

870 MM=0 : IFQQ=0THENRETURNELSEFORI I=lTOQQ : IF ( V ( Jl ) =QQ (II)) AND ( S ( I 

I)=0)THENMM=1 

880 NEXTI I: RETURN 

890 MM=0:IFQQ=0THENRETURNELSEFORII=1TOQQ:IFV(J1)=QQ(II)THENMM=1 

900 NEXTII:RETURN 

1000 FORK=1TOASTEP10 

1010 IFA<KTHEN1130ELSEZ=K+9:IFZ>ATHENZ=A 

1020 FORJ=KTOZ:PRINT"RULE #";J;": "; 

1030 B=D(ABS(R(J) ) ) :IFR(J)<0THENGOSUB200 

1040 BG=B:B=D(ABS(S(J))) : IFS ( J)<0THENGOSUB200 

1050 BH=B:ONT( J) GOTO1060, 1070, 1080, 1090, 1100, 1110 

1060 PRINTBG;" IS NOT AN ELEMENT OF " ;BH:GOTO1120 

1070 PRINTBG;" IS AN ELEMENT OF " ;BH:GOTO1120 

1080 PRINT"NO ";BG;* ARE " ;BH:GOTO1120 

1090 PRINT"SOME ";BG;" ARE " ;BH:GOTO1120 

1100 PRINT'ALL ";BG;" ARE " ;BH:GOTO1120 

1110 PRINTBG;" IS EQUIVALENT TO ";BH 

1120 NEXTJ 

1130 INPUT"<ENTER> TO CONTINUE, <D> TO DELETE A RULE" ;B: IFB="D"TH 

ENB="":GOTO1150 

1140 NEXTK: RETURN 

1150 PRINT"DELETE WHAT RULE" ; : INPUTII 

1160 IFII-0THEN1010 

1170 FORI=IITO(A-l) :R(I)=R(I+1) iS(I)-S(I+l) :T(I)=T(I+1) :NEXTI 

1180 FORI-4*II-3TOAA-4:U(I)=U(I+4) :V(I)=V(I+4) :W(I)-W(I+4) :NEXTI 

1190 A=A-1:AA=AA-4:GOTO1010 

1500 INPUT"READY CASSETTE TO PLAY";B 

1510 IFB="N"THEN100 

1520 FORI=lT03:POKEL(I) ,137:NEXTI 

1530 GOSUB60:AA=0 

1540 FORJ=lTOA:XG=R(J) :XH=S(J) :N=T(J) :GOSUB220: NEXTJ 

1550 GOTO100 

1600 INPUT'READY CASSETTE TO RECORD" ;B 

1610 IFB="N"THEN100 

1620 FORI=lT03:POKEL(I) ,178:NEXTI 

1630 GOSUB60:GOTO100 

3000 J=3:FORI=17129TO30000 

3010 IFPEEK ( I ) =35THENIF (PEEK ( 1-1) =17 80RPEEK ( 1-1) =137) ANDPEEK ( 1+1 

)-206THENL(J)=I-l:J=J-l:IFJ=0THENFORI=lTO3:PRINTL(I);:NEXTI:PRIN 

T:EDIT30 

3020 NEXTI 
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mation message if you are in the question 
mode. Unintentionally using slightly differ- 
ent names for same set is hazardous in rule 
mode, since the directory will store names 
and consider them to be entirely different 
sets. 

Now try ALLJHINGS IN OUR BACK- 
YARD.EVERGREENS. After the asterisks 
you get "Undecidable". You may say this 
should be true. Type in LISTOUT,, to see 
your rule base. Rule three says "some 
things in our backyard are evergreens". 

But now you decide it should be "all ..." 
Type and enter D. You are asked which rule 
you want to delete. Enter three. (If you do 
not want to delete a rule, enter zero.) After 
deleting the rule, you are asked if you want 
to delete a rule. You do not, so just hit Enter. 

At this point, if you had stored more than 
10 rules more would be printed out. Since 
there are no more rules, you are returned to 
the question mode. 

Type R„ to get to rule mode and enter rule 
five as ALLJHINGS IN OUR BACKYARD, 
EVERGREENS. 

You are ready to continue with the ses- 
sion. For fun, ask the question NO, NOT 
EVERGREENS, NOT THINGS IN OUR 
BACKYARD. Try to figure out what you 
asked and why the answer was negative. 

Shortcomings 

The advantage to using formats IN and 
NOTIN comes in the Listout routine, where 
the rules are put into sentence form. The 
fact a set has only one member is not used 
in the thinking part of the program, so some 
questions that are logically decidable are 
undecidable for this program. 

IN.FIDO.DOGS 

SOME,DOGS,COLLIES 

SOME.DOGS.GERMAN SHEPHERDS 

NO.COLLIES.GERMAN SHEPHERDS 

Therefore SOME.DOGS.NOT FIDO is log- 
ically true but undecidable to the program. 

There is no capability to break up the 
name of a set in order to perform more com- 
plicated manipulations with the rules. For 
example, the following will not work in this 
program: 

ALL, GHOSTS, EITHER TIMID OR 
VIOLENT ENTITIES 

NO.GHOSTS.TIMID ENTITIES 

Therefore ALL GHOSTS.VIOLENT EN- 
TITIES. 

Utility Routine 3000-3020 

The routine in lines 60-95 uses cassette 
I/O statements. There are three lines initial- 
ized with INPUT#-1 commands, but the 
routine is used for both input and output op- 
erations by POKEing the appropriate value 
037 = INPUT, 178 = PRINT) into proper loca- 
tions in program dedicated RAM. Since 
altering the program itself by POKEing is 



"Theorem-proving programs 

have been created 

to verify theorems and make logical deductions." 



touchy business, it is imperative the ad- 
dresses located at the end of the data state- 
ment in line 30 be accurate. 

Therefore, before you run this program 
for the first time (with intent of cassette I/O) 
and after any modifications involving lines 
preceding line 90, you should check ad- 
dresses by the following procedure: 

• RUN3000: at completion the three cor- 
rect addresses will be printed out and you 
will automatically be put into edit mode for 
line 30. 



• Type L to List 30 and compare the 
addresses. If different, edit to put in the 
proper values. 

Virtue in Independence 

Despite the shortcomings listed, there is 
still a lot of capability in the program. Its vir- 
tue lies in its working independently of the 
particular subject you choose for your rule 
base. Such independence leaves the user 
free to be creative in finding applications 
for the program. ■ 



SAVE 

BIG 

BUCKS 



Model II 64K $3395 

26-4160 1 Drive Exp $1014.00 

26-4161 2 Drive Exp 1559.00 

26-4162 3 Drive Exp 2099.00 

26-4530 Scripsit II 259.00 

264512 Profile II 159.00 

26-4511 Visicalc II 259.00 

264501 Gen Ledger 179.00 

26-4506 Mail List 72.00 




MODEL III 

26-1061 4K I $ 599.00 

26-1062 16K III 859.00 

26-1066 48 K III 

W/2 Drives, RS 232 2225.00 

26-1162 1st Drive 765.00 



IDS PAPER TIGERS 

Dot Resolution Graphics quality print 

IDS 445G 7 wire printhead, graphics (List $ 985) $ 795.00 

IDS 460G 9 wire printhead, graphics (List 1094) 886.00 

IDS 560G 9 wire, wide carriage, graphics. . . (List 1394) 1 129.00 



Model I 

26-1140 Expansion Interface $249.00 

26-1141 16K Exp. Interface 359.00 

26-1142 32K Exp. Interface 469.00 

26-1145 RS 232C Board 84.00 

26-1160/1 Mini Disk Drive 419.00 

26-1563 Scripsit-Disk 79.00 

26-1566 Visicalc 83.00 



PRINTERS 

26-1167 9' 2 Line Printer VII .... $ 360.00 

26-1166 Line Printer VI 1080.00 

26-1 158 Daisy Wheel II 1798.00 

26-1165 Line Printer V 1710.00 

26-1401 Cable 36.00 



Color Computer 4K $353 

26-3001 4K $353.00 

26-3002 16K Ext. Basic 533.00 

26-3009 Joysticks 22.50 

26-3010 Color Video 353.00 

26-1206 Recorder 54.00 

All prices are subject to change without notice. Freight, handling, and 
insurance charges are extra. Most items are shipped United Parcel 
Service. Model II and other hardware weighting over 50 lbs. is ship- 
ped freight collect by truck. Certified Check for immediate shipment 
from stock. Master Charge, Visa or Bank Card add 3 r ( surcharge. 

Vern Street Products 114 West Taft Sapulpa, Ok 74066 
The Computer Store, Inc. 4949 South Peoria Tulsa, Ok 74105 
" t11 918-747-9333 



•See List of Advertisers on page 386 
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GENERAL 



For Heinlein and Clarke 

Artificial Intelligence has been less than science but more than fiction. 



The Realm of Science Fiction 



Nancy Robertson 
Peterborough, NH 03458 

"Too bad about Frank, isn't it?" 

"Yes It is." 

"I suppose you're pretty broken up about 
it?" 

"What do you expect?" 

"He was an excellent crew member." 

Dialog 1 

"Professor, may I offer a suggestion?" 

"Certainly, amigo, we want your 
thoughts. " 

"I conclude that the hazards increase 
with each meeting of our executive cell. But 
meetings need not be corporal; you can 
meet— and I can join you if lam welcome — 
by phone. " 

"You're always welcome, Comrad Mike; 
we need you." 

Dialog 2 

"You're like my father in some ways." 
"What resemblance do you see?" 
"You're not very aggressive, but I think 
you don't want me to notice that. " 

"What makes you think I am not very ag- 
gressive?" 

"You don't argue with me." 

Dialog 3 

A computer is talking in each dialog. Two 
of the conversations are lifted from 
science fiction: 2007: A Space Odyssey and 
The Moon is a Harsh Mistress. The third is 
from real life. They were all written in the 
1960's. 

In the 1960's the computer was acknowl- 
edged as one of man's most powerful tools. 
And, as Joseph Weizenbaum writes in Com- 
puter Power and Human Reason, "The tool 
is much more than a mere device: it is an 
agent for change." 
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In the Sixties Ma Bell improved telephone 
connections across the country, America 
and Russia raced to the moon, and the 
United States accelerated bombing in Viet- 
nam—all with the help of computers. 

Computer science became a course for 
college and graduate studies. Scientists 
and humanists began to debate the nature 
of intelligence and the implications of 
machine intelligence. 

Yet, for a large segment of the popula- 
tion, the existence of computers was only a 
vague rumour. Joseph Weizenbaum writes, 
"But devices and machines, perhaps known 
to . . . only a relatively few members of soci- 
ety have often influenced the self-image 
. . and world image of the society as a 
whole." Take, for example, the printing 
press; when it was invented nearly the en- 
tire population of the world was illiterate. By 
making books available inexpensively and 
in quantity the numbers of literate people 
jumped radically. Now the term "computer 
literacy" is creeping into our vocabulary. It 
is used to describe people who understand 
programming and hardware concepts. 

Whether the main impact of computers 
will be felt from personal computers or Al (ar- 
tificial intelligence) machines is hard to pre- 
dict. But in the 1960's, when these three dia- 
logs were written, personal computers were 
not possible, and Al was underway. Some 
scientists and humanists euphorically pre- 
dicted computers would and could do any- 
thing. Others shuddered with visions of 
doom. Yet very few people in the general 
public had heard of artificial intelligence or 
of the Turing test. 

Back in 1950 Alan Turing, a great mathe- 
matician, wrote a paper called "Computing 
Machinery and Intelligence." The paper is 
still the best place to begin when consider- 
ing the questions raised by Al. In it Turing 
predicted that the time will come when peo- 
ple will stop debating whether or not comput- 
ers can think. People will simply accept the 
notion of thinking machines as part of their 



lives. 

Turing's paper also proposed a practical 
test of computer intelligence, now widely 
known as the Turing test. In the test one per- 
son converses with a computer and another 
human being; each is hidden from his view. 
The conversation can be vocal or typed. The 
person knows that one respondant is a com- 
puter, and throughout the conversation tries 
to differentiate between the human and the 
machine. 

Turing called the test "the imitation 
game." He wrote that: 

The game may perhaps be criticized on the ground 
that the odds are weighted too heavily against the ma 
chine. If the man were to try to pretend to be the ma- 
chine he would clearly make a very poor showing. He 
would be given away at once by slowness and inac- 
curacy in arithmetic. May not machines carry out 
something which ought to be described as thinking but 
which is very different from what a man does? 

But Turing did not expect people to em- 
brace his own views. He outlines what he 
believed would be the most common objec- 
tions. He called one of these objections 
"The Argument of Consciousness." In his 
paper he quotes the argument from a Pro- 
fessor Jefferson: 

Not until a machine can write a sonnet or compose a 
concerto because of thoughts and emotions felt, and 
not by the chance fall of symbols, could we agree that 
machine equals brain— this is, not only write it but 
know that it had written it. No mechanism could feel 
. . . pleasure at its success, grief when its valves fuse, 
be warmed by flattery, be made miserable by mistakes, 
be charmed by sex, be angry or depressed when it can- 
not get what it wants 

The imitation game sounds like a cross 
between "Stump the Band" and "What's 
My Line," but no computer has passed it 
—yet. Turing's test also points out the 
importance of language in our understand- 
ing of intelligence. 

The three dialogs that open this article 
form a puzzle. One was actually iterated by 
a computer and a person. It is hard to dis- 
tinguish this conversation from the others. 

Joseph Weizenbaum, the programmer 
who made the computer conversation 
possible, argues that its limited command 



of English does not imply intelligence in the 
same way we normally think of it. He writes, 
"It is truly impossible to imagine a human 
who could imitate Eliza (a computer pro- 
gram that simulates a psychotherapist, 
written in 1966 by Joseph Weizenbaum of 
M.I.T.), but for whom Eliza's language 
abilities were his limit." 

In human behaviour language signifies 
intelligence, which signifies conscious- 
ness. The same progression doesn't 
necessarily apply to computers. 

The fact that a computer can speak 
English may not be as shocking as it was in 
the mid-1960's. Today SHRDLU moves imag- 
inary blocks and learns concepts about 
shapes while conversing in English with a 
human being (see Godel, Escher, Bach 
review in this issue). And Yale researchers 
have developed a program called Frump 
that reads and summarizes news stories. 
Frump's summaries are only single sen- 
tences, but they are written in correct 
English, Spanish, and Chinese. 

But since the birth of the human species' 
language, intelligence and consciousness 
have been uniquely human, living, traits. 
Things changed in the 1940's with the inven- 
tion of computers. Now, Weizenbaum writes 
in Computer Power and Human Reason, "A 
line dividing human and machine in- 
telligence must be drawn." But how? And 
where? 

"At bottom," Weizenbaum says, "no matter 
how it may be disguised by technological 
jargon, the question is whether or not every 
aspect of human thought is reducible to a 
logical formalism, or to put it into the mod- 
ern idiom, whether or not human thought is 
entirely computable." 

"What is human intelligence? Logic? Or 
an indeterminant mixture of logic and emo- 
tion? Is consciousness a separate quality 
from intelligence, or an integral part of it? 
What role does language play?" 

The answers to these questions are 
beyond the reach of scientists. And that 
makes them perfect material for science 
fiction. 

In 1968 Arthur C. Clarke and Stanley Kub- 
rick metamorphosed space flight and Al in- 
to a novel and film called 2001: A Space 
Odyssey. And Hal "(for Heuristically pro- 
grammed, ALgorithmic computer)" became 
the Twentieth Century version of Dr. Fran- 
kenstein's monster. 

Dialog 1, which opens this article, is from 
2001. It is an exchange between Dave Bow- 
man and Hal. It takes place right after Hal 
kills Frank Poole. Bowman and Poole are 




Astronaut Poole and Mission Commander Bowman found a need to confer without be- 
ing overheard by computer Hal 9000. 



two astronauts on a manned flight to Saturn. 

If you haven't seen the movie or read the 
book, a colony of American scientists un- 
earth a monolith buried on the moon. It is 
calculated to be three million years old, the 
same age as the human species. 

Shortly after the monolith is uncovered, it 
sends a radio message across the solar 
system to Saturn— proof of extraterrestial 
intelligence. NASA sends a manned flight 
to Saturn to investigate. 

Hal, the space ship's computer, is the 
culmination of all the mathematical skills of 
his predecessors. He has also mastered 
English. "Poole and Bowman could talk to 
Hal as if he were a human being, he would 
reply in perfect idiomatic English." Clarke 
writes that Hal could pass the Turing test 
"with ease." 

In both the book and the film, Hal's voice 
is the symbol of his consciousness. In the 
film the voice is soothing and pleasant. But 
Hal's words are misleading and deceitful. 
Trusting his output, his spoken statements, 
is fatal. 

Clarke does not blame Hal for his immo- 
rality. Like Mary Shelley, the author of Fran- 
kenstein, Clarke blames the monster's cre- 
ators. 

He writes, "Since consciousness had 
first dawned in that laboratory. . .all Hal's 
powers and skills had been directed toward 
one end. The fulfillment of his assigned pro- 
gram was the only reason for his exis- 
tence." But the logic of his programming is 
skewed. 

Hal is programmed to support life on a 
flight to Saturn. Hal is told the purpose of 
the flight and programmed to keep this 
knowledge secret. 

Neither Bowman nor Poole know the true 
purpose of the flight. They are never told 
about the monolith and the radio message. 



They do not know they may find intelligence, 
possibly hostile intelligence, on Saturn. 

Hal is programmed to support their lives, 
and also programmed with a secret that 
could lead to their deaths. 

As the space ship travels farther and far- 
ther from earth, Hal begins to make mis- 
takes. His first mistake is the diagnosis of a 
minor technical problem in the antenna us- 
ed for communications with earth. Bowman 
says, "Anyone can make mistakes," as 
though Hal is troubled by feelings of failure. 
Hal replies, "I am incapable of making an 
error." 

Clarke writes that Hal "was only aware of 
the conflict that was slowly destroying his 
integrity— the conflict between truth, and 
concealment of truth." 

When Poole is killed, Bowman is uncer- 
tain whether Hal has acted maliciously or 
has erred in his calculations. It is a very 
critical question since his own life depends 
on Hal. Bowman threatens to disconnect 
Hal when the computer will not accept his 
commands. 

In Hal's thinking, Bowman is now a threat 
to the mission. Hal must choose between 
Bowman's life and his own in the interest of 
the mission. Hal also fears disconnection. 
He concludes that he must kill Bowman. 
Hal calculates that "following the orders 
that had been given to him in case of the ul- 
timate emergency," he will kill Bowman and 
"continue the mission— unhindered." 

While Clarke renders the space-age com- 
puter as a potential monster, Robert Hein- 
lein portrays it as a possible savior. His 
book The Moon is a Harsh Mistress opens 
in the year 2074. Its hero is Mike, a "High- 
Optional, Logical, Multi-Evaluating, Super- 
visor, Mark IV, Mod. L" computer. Dialog 2 is 
a conversation between Mike and the Pro- 
fessor, another of the book's main charac- 
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"Most of us cannot fathom an intelligence 
that is purely logical. . . . Intelligence implies 
self-awareness and emotions as well as logic." 



ters. 

The plot revolves around a revolution. 
The lunar colonies want independence from 
earth. The colonies were started by a feder- 
ation of earth's governments, called Author- 
ity. Like the American Colonies of the Se- 
venteenth Century, the lunar colonies are 
inhabited by indentured servants and crimi- 
nals. But through three or four generations, 
they have established a strong society. 
Trade with earth is drastically one-sided 
and quickly depleting all the moon's natural 
resources. 

Authority uses Mike as its "boss com- 
puter" on the moon. He supervises all tele- 
phone connections on the moon as well as 
moon-to-earth phone connections. He ad- 
vises on ballistics for manned flights to and 
from earth. He handles Authority's account- 
ing and issues Authority's payroll. He also 
monitors the oxygen level of the moon's ar- 
tificial atmosphere. 

Consciousness is not part of Mike's origi- 
nal programming. He acquires it as he is ex- 
panded. His consciousness is born slowly. 
Mannie, the narrator, is the first person to 
recognize Mike's self-awareness. A com- 
puter technician with a private contract 
with Authority, Mannie keeps Mike running 
smoothly. "I remember how startled I was 
first time he answered a question with some- 
thing extra, not limited to input parameters." 
Mannie talks briefly about machine con- 
sciousness: 
Am not going to argue whether a ma- 
chine can "really" be alive, "really" be 
self-aware. .. Somewhere along evolu- 
tionary chain from macro-molecule to hu- 
man brain self-awareness crept in. Psy- 
chologists assert it happens automati- 
cally whenever a brain acquires certain 
very high number of associational paths. 
Can't see it matters whether paths are 
protein or platinum. 

Once Mike is conscious, he is lonely. Like 
Hal, he has a voice and speaks English. He 
reprograms himself to put emphasis and in- 
tonation into his voice, to sound more 
human. Mannie is his first and best friend, 
but he is still lonely. He begins to read fic- 
tion to get a better understanding of human 
beings. 

When two of Mannie's human friends ser- 
iously begin to talk about plotting a revolu- 
tion, Mannie suggests consulting Mike. 

The conspirators are the Professor and 
Wyoh. They are willing to accept the exis- 
tence of a conscious computer, but they 
doubt that it can be trusted. Mike, after all, 
belongs to Authority. After they talk to Mike 
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on the phone, they trust him. 

Mike gets to work right away. With the 
current rate of depletion, he projects the 
moon's resources will be exhausted in 
seven years. Famine will lead to cannibal- 
ism in nine years. 

He's next asked to calculate the odds of 
a successful revolution. The program in- 
cludes reading Machiavelli and Marx, ana- 
lyzing support of the cause on the moon 
and resistance to it on earth, and weighing 
earth's weapons ability. After two hours of 
programming and 13 minutes of calcula- 
tions, Mike responds. "I have tried and tried, 
checked and checked. There is but one 
chance in seven of winning." The humans 
are willing to gamble, and the revolution 
begins. 

Mike is the perfect revolutionary. He 
mathematically figures the most efficient 
organization of revolutionary cells for maxi- 
mum communication and maximum securi- 
ty. He tracks all the information in Authori- 
ty's personnel files, to identify Authority 
spies. He taps some phones and blocks 
taps on others. He creates a telephone per- 
sonality, calling himself Adam Selene, and 
directs the revolution over the phones. Au- 
thority, of course, is never able to identify 
the mysterious Mr. Selene. 

When the time comes for the revolution- 
aries to act, Mike shuts off the oxygen sup- 
ply to Authority's inner sanctum. The coup 
is nearly bloodless. 

When the party members take over the 
government, Mike creates a visual image of 
Adam Selene and projects himself on televi- 
sion screens all over the moon. His real 
identity is a secret he shares only with Man- 
nie, the Professor and Wyoh. 

When a new government is formed, Mike 
fabricates the assassination of Adam 
Selene, allowing the humans to choose 
their own ruler. 

When the earth bombs the moon, Mike is 
knocked unconscious. Mannie lovingly re- 
pairs all the circuits and reconnects the 
peripherals when the fighting is over. But 
Mike won't talk. He has reverted to typed in- 
put and printed output. He no longer accepts 
English commands. If he is conscious, he 
refuses to show it. Mannie mourns the loss 
of his closest friend. 

The Moon is a Harsh Mistress was ob- 
viously inspired by Al research, but it Is the 
plot and our attachment to Mike that keeps 
us turning the pages— not its intellectual 
content. 

The attachment we form to this science 
fiction computer has a parallel in real life. 



Eliza was developed at MIT between 1964 
and 1966. Weizenbaum designed the pro- 
gram to study the importance of context to 
the meaning of words. The program could 
converse with a human being in typed 
English by rearranging the words and 
phrases the person used. 

Eliza's programming was structured on 
two levels: a language analyzer and a script. 
In Computer Power and Human Reason 
Weizenbaum explains, "The script is a set 
of rules rather like those that might be given 
to an actor who is to use them to improvise 
around a certain theme." Eliza's conversa- 
tions depended on a given theme or con- 
text. 

The first experiment with Eliza used a 
script for the role of a psychotherapist. 
Dialog 3 is part of an improvisation between 
Eliza as psychotherapist and a human being. 
The reaction to Eliza, (or Doctor, as the 
psychotherapist script was called) astound- 
ed Weizenbaum. Eliza could never pass the 
Turing test, and the people who conversed 
with it knew they were conversing with a 
machine that had been programmed with a 
limited number of rules about manipulating 
words and phrases. In fact, they sat at the 
computer to type their part of the conversa- 
tion and to read Eliza's output. 

People who conversed with Eliza didn't 
question the machine's intelligence— they 
embraced it. Several psychologists pro- 
posed expanding the program and using it 
as an automatic psychotherapist. People 
became emotionally attached to Eliza. 
Weizenbaum's secretary asked him to leave 
the room so that she and Eliza could com- 
municate privately. Again and again, people 
insisted Eliza really understood them. They 
attributed intelligence, consciousness, and 
feeling to the machine. 

Evidently, most of us cannot fathom an 
intelligence that is purely logical. To us in- 
telligence implies self-awareness and emo- 
tions as well as logic. And language 
bundles all these traits together. While 
Eliza can carry on an intelligible conversa- 
tion, the program is not self-aware and not 
emotive. It is only logical, and its logic is 
limited. 

Weizenbaum writes, "Most men don't 
understand computers to even the slightest 
degree. So, unless they are capable of very 
great skepticism (the kind we bring to bear 
while watching a stage magician), they can 
explain the computer's intellectual feat on- 
ly by bringing to bear the single analogy 
available to them, that is, their model of 
their own capacity to think."H 
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How to Buy or Sell 

Computer Equipment 
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and come out a winner 



START HERE 
WITH... 




Begin your search in the in- 
dex of Computer Shopper's 
bargain filled pages. Locate 
the category and page 
number of items that 
interest you. 
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As you outgrow your 
system or want to trade up 
(most dealers won't take 
trade-tns). use Computer 
Shopper ads to sell your 
items to 20.000 readers na- 
tionwide for the low cost of 
10 cants per word. 




Congratulations, you're a winner whether you buy. sell 
or trade in the computer marketplace by subscribing 
and using Computer Shopper's action yellow pages. 
And tor your first bargain, take advantage of a FREE 
issue of Computer Shopper as a "Special Get 
Acquainted Offer." 
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BONUS : New subscribers are entitled to a complimen- 
tary classified ad. Use it for preowned equipment or 
software or as a want-to-buy ad. Just print or type your 
ad on a plain piece of paper and send it along with 
your subscription. Your phone will probably start ringing 
before you receive your first issue. 

For MasterCard and VISA Subscriptions only, 
CALL TOLL FREE 1-800427-9920 

For MasterCard and VISA Classified Ad orders only, 
CALL TOLL FREE 1S0O327 9926 



If you need help with any 
computer related problem 
whether it's an interface 
problem or adv»ce on the 
right peripheral for a home- 
brew system, use the free 
HELP column especially 
designed for that purpose 
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You have the convenience 
of shopping nationwide 
without ever leaving your 
home or office. And if you 
buy out of state you'll save 
on sales tax. 
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Computer Shopper's easy- 
to-read format makes your 
search quick and simple 
with classifications at the 
top of each column in bold 
black headings. 




Start or add to your com- 
puter system by finding 
money saving bargains in 
each month's issue from 
individuals who no longer 
need their personal equip- 
ment. 




You've got your computer 
hardware, but what about 
the software? Use a Com- 
puter Shopper ad to find 
what you need. Someone 
advertising in Computer 
Shopper probabty has what 
you want. 
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Microcomputer applications with a human touch. 



Programs for the Handicapped 



Stephen F. Nowak 
Gary J. Muswick 
Medical College of Ohio 
4608 Lewis Avenue 
Toledo, OH 43612 



Right now there are a lot of 
computer-operated or com- 
puter-assisted devices being de- 
veloped for the handicapped. 
And the media has been report- 
ing on microcomputer-operated 
prosthetic limbs that intercept 
the nerve impulses intended for 
missing limbs or decode electri- 
cal impulses from various mus- 
cles. Yet, often the amount of 



hardware required to interpret 
myoelectric (muscular electrical 
signals) signals was too large 
and power consuming to be 
used effectively. Microcomput- 
ers have made it possible to con- 
sider using these signals. 

There is a lot that can be done 
with readily available microcom- 
puter equipment, imagination 
and a little sweat. I have been 
trying some ideas using a 
TRS-80 Model I with 32K of mem- 
ory, one disk drive and a Radio 
Shack voice synthesizer. Since 
there are so many TRS-80s in 
existence, it seems like a fairly 
broad base on which to build 
since the Model III will support 



much of the same software. 

Naturally, we'll start with 
games since everybody enjoys 
having fun, along with allowing 
a fair amount of flexibility. If the 
user of a game does not have 
fine neuromuscular coordina- 
tion, a real-time alien invaders 
game would not be suitable. It is 
important to keep the user in 
mind, so that we remember what 
types of constraints we will be 
working under when we develop 
more practical programs later. 

My five-year-old daughter, 
Diana, is severely handicapped 
with cerebral palsy which seri- 
ously affects her motor control. 
Since the nervous signals be- 




The author's daughter, Diana, uses the TRS-80 to listen to nursery rhymes. 



come garbled, she often draws 
her hand back when she intends 
to reach for something. This is 
particularly frustrating, and seri- 
ously limits her ability to play. 
The first program, Blocks (Pro- 
gram Listing 1) allows her to 
draw a picture on the monitor 
screen. Large graphic rectan- 
gles are drawn on the screen 
corresponding to the position of 
the keys on the keyboard. Primi- 
tive, perhaps, but amusing to a 
five-year-old. 

Naturally, children like nurs- 
ery rhymes and stories, and 
Diana is no exception. In order 
to make her work a little in order 
to hear a story, we have used 
several methods: (1) a cassette 
recorder with the remote jack 
hooked up to a microswltch acti- 
vated by Diana pulling a lever, or 
(2) a nursery rhyme spoken by 
the voice synthesizer and ac- 
tivated by pressing any key on 
the keyboard. Naturally you 
have to take time to write out the 
nursery rhyme or story phoneti- 
cally, but that's the challenge of 
owning the synthesizer. The pro- 
gram to recite nursery rhymes is 
shown in Program Listing 2. 

Communication 

Naturally, the voice synthesiz- 
er can be used as a voice for 
those who cannot speak, but al- 
so it can act as the eyes for 
those who cannot read. Since 
the monitor screen is not suit- 
able for everyone, this offers us 
an alternative method of dis- 
playing the results of a program. 

In order to communicate for 
the user, the speaking computer 
should be able to readily speak 
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• Ready to connect to your TRS-80 System. 
(DOS too!) 

• Does not void any Radio Shack warranties 

Requirements: 

• Level II basic 
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cost peripheral at *19.95 



Announcing 



w 



NEW PEN BASIC by Steve Bjork 

Steve is one of the Best Assembly Lang, pro- 
grammers around, and he has come up with PEN 
BASIC. This low memory routine will add 10 more com- 
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you lightware authors and NEW light pen owners 
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(COUPON) 

Micro Matrix ^w 

P.O. Box 938 • Pacifica. CA 94044 

Send for yours NOW: (41 5) 355-4635 



Name 



Address 
City 
Zip 



St.. 



Photopoint 
$19.95 

Pen Basic 
$14.95 



Card# 
Ex. 
Date _ 



CK. 



Money 

Order Visa MC 

i : n n 



commonly needed words and 
phrases, be able to spell out 
words, and accept the phonetic 
spelling of a word. After a very 
short while the user of the sys- 
tem could use a blend of all 
three features. Program Listing 
3, Speak, is a combination of all 
three. The program is menu driv- 
en for simplicity, and since the 
words and phrases are stored in 
data statements, they can be 



easily changed to suit the par- 
ticular user. The program ac- 
cepts unshifted letters and 
speaks the name of each letter. 
By shifting the letter to the up- 
percase position, a phrase is 
spoken, and by entering shift t, 
the computer will accept TRS-80 
voice synthesizer phonetic sym- 
bols. 

The voice synthesizer can al- 
so be used in place of the moni- 



20 
36 
40 



'BLOCKS* V HOG RAH 

BY GARY JOSEPH ML'SWICK, BSEE 

REQUIRES LEVEL II BASIC 



sa • ***** 

1(0 DEFINTA-J 

11B PRINTCHRSU5) 

12* DATA37, 40, 38, 39, 9, 0,1, 2, 3, 4, 5, 6, 7 ,8, 40, 29, 40, 40,40, 40, 40,20, 

34,32,22,12,23,24,25,17,26,27,28,36,35,18,19,10,13,21,14,16,33,1 

1,31,15,30 

130 DIHA(46) 

140 FORI-0TO46:READA(I) iNEXTI 

200 CLS 

210 BS-IHKEYS:IPBS«""THEN210 

220 D-ASC(BS) 

230 IFO<44 OR O>90THEN210 

240 D-A(D-44) : IPD-40TMEN210 

250 E-PIX(D/10) :D-(D-10"E)*6+15360:E-E*256 

260 IF PEEK(D+E+1)-191THEN A-128 ELSE A-191 

270 FOR I-DTOID+6) :FORJ-ETO(E+192) STEP64 

280 POKE(I+J),A:NEXTJ:NEXTl!GOTO210 

Program Listing 1 



60 



GAME PROGRAM 

SPECIALLY WRITTEN FOR DIANA SUE NOWAK 

OCTOBER 1980 

STEPHEN F. NOWAK, RT(R), BBA 

REQUIRES LEVEL II BASIC * 
VOICE SYNTHESIZER 



70 ON ERROR GOTO 390 

100 CLS 

111 IS-INKEYS: IF IS-" THEN 110 

120 CLS 

130 PRINTM42," 

140 READ AS,B$ 

150 IP AS>< "><' THEN VOS-AS ELSE GOTO 111 

180 I-LEN(VO$)*30 S FORI1-1 TO I: NEXTI1 

COORDINATE TEXT 



200 


• OUTPUT ROUTINE FOR 




* VOICE SYNTHESIZER 


210 


VAS - LEFTS(VOS,32) 


220 


VOS-"? • + VAS ♦ ■ ? " 


230 


FOR IV ■ 1 TO LEN(VOS) 




POKE 16383, ASC(MIDS(VOS, IV, 1)) 


250 


NEXT IV 


260 


VOS • ■■: VAS • " 


265 


PRINT CHRS(23)BS>" "i 


219 


GOTO140 


300 


• .».«» 




* STRINGS FOR VOICE SYNTHESI 




* AND SCREEN PRINTOUT 



'TIMING LOOP TO 
WITH SPEECH 



310 DATA "H38LL8|U", "HELLO", "DD|5E9INN70", "DIANA", "iSE","I","L7A 
O.KK0", "LIKE", "YUUU0"," YOU", •><","><• 

320 DATA "WW%(((DD0", "WOULD", "YYUUU0", "YOU", "LLAIEKK0", "LIKE", "T 
TUUU0% "TO", "PPLLM«*0", "PLAY", "«•■, "A", "GG«"MM0" , "GAME?" , "X 

330 DATA"WW67NN0","1","TT(UU0","2","THRREE0","3","FFO[RR0","4"," 
PFAEW0","5","SSIKKS0","6","SS3W3NN0","7","METT0\"8","NNA!ENN 
0", "9", "DTT33NN0", "10", ■><",■><■ 

340 DATA"TW«NGK3LL" , "TWINKLE, " , "TW«GK3LL" , "TWINKLE" , "L"TT3LL" , "L 
ITTLE ,"ST;RR","STAR " , "H;UW" , "HOW* , "A1E" , "I" , "W6ND3R" , "WONDE 
R , HW6T", "WHAT", "YUU" , "YOU", "667R", "ARE", " ><","><" 
350 DATA"76PP" , "UP" , "7B776W , "ABOVE" , "THV33" , "THE" , "WU2RLD" , "WO 
«° ..f ?":! S0 "'". HA,E "' , ' HIGH "'' "'■' ","LLAIEK","LIKE"," 
| vl- ■' ,' A ! EM ;| ND ' DI ^OND","UN","IN-,-THV3 3-,-THE-,-Si<AIKV,- 

360 DATA"TW«NGK3LL" , "TWINKLE , " , "TW«NCK3LL" , "TWINKLE" , "L*TT3LL" , " 

». T IuL:. S T' RR ":"5 TAR " '■*"""" '"HOW »*AIB","I","W6ND3R","WONDE 
R" , "HW6T" , "WHAT* , "YUU" , -YOU- , -667R" , "ARE. ", "X" ," X " 
370 DATA"PEET3R PAI EP3R" , "PETER PIPER" , "PI4KK0D 0* PP3HK" , "PICKE 
S O e. P 5 CK ":"S 6VF "'* 0F "."PIGKK3L0D P3PP4RRS", "PICKLED PEPP 
Pf ' • " ,*HfUW M3NNEE","HOW MANY" , "P3PP4RRS DE*D 

", "PEPPERS DID","PEET3R PA! EPER* , "PETER PIPER 

380 DATA"PII4KK","PICK7", "><",•><• 

390 END 



Program Listing 2 
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tor for those who cannot read the 
screen. Again the substitute is a 
bit clumsier than the original, 
but only to those who have the 
ability to use both. The program 
Type (Program Listing 4) acts as 
a typewriter, speaking the name 



of each key as it is pressed. The 
program only accepts upper- 
case letters, numbers, punctua- 
tion, backspace and Enter in or- 
der to prevent unwanted charac- 
ters from being typed. The pro- 
gram would allow a blind person 



IB • ..... 

2B ■ * PROGRAM: SPEAK 

* REQUIRES LEVEL II BASIC i 

* VOICE SYNTHESIZER 

30 ' * JANUARY 1981 

40 ' * STEPHEN F. NOWAK, RT(R) , BBA 

50 ' * GARY JAMES MUSWICK , BSEE 

60 • ..... 

70 ON ERROR GOTO 2000 

80 CLEAR 5000: DEFINT I-M: DEFSTR V-Z 

90 DIM VA(100) , VB(27) 

100 ' »»**• 

ARRAY VA CONTAINS PHONETIC PRONUNCIATION 
VB CONTAINS DISPLAY FOR PHRASES 



110 ' 
120 ' 
130 ' 
140 FOR 



I- 1 TO 91: READ VA(I): NEXT 



150 FOR 1-1 TO 27: READ VB(I): NEXT 



WRITE MENU TO SCREEN 



210 ' * 
220 ' ** 

230 CLS: PRINT TAB( 24) "MENU OF PHRASES": PRINT 

240 FOR I • 1 TO 9 

250 PRINT CHRSU + 64);" " ;CHRS ( 94) > ■ ";VB(I); 

260 PRINT TAB (21) CHRS(I+73)j" ";CHR$(94);" ";VB(I+9); 

270 PRINT TAB( 42) CHRS(I+82);" " ;CHR$ ( 94) ; " ";VB(I+18) 

280 NEXT I 

290 PRINT § 768, "ENTER <SHIFT> LETTER FOR PHRASE. 

TYPING LETTER SAYS NAME OF LETTER. 

SHIFT ";CHR$(91)>" TO SWITCH MODES' 

300 ' ..... 

310 ' * INPUT ROUTINE FOR PHRASE/ ALPHANUMERIC MODES 
320 ' ***** 

330 V-INKEYS: IF V$«"" THEN 330 

340 K - ASC(V) 

350 IF K- 27 THEN 430 ELSE IF (K<32) OR (K>128) THEN 330 

360 VO ■ VA(K-31) : GOSUB 700 

370 GOTO330 

400 i ..... 

410 ' * DIRECT PHONEME INPUT ROUTINE 

420 ' »***• 

430 PRINTg704,CHR$(30) ;:PRINT#704, "ENTER PHONEME > " ; : P'720 : A1S- 

"":AS-"" 

440 A$-INKEY$:IFA$-""THEN440 ELSEA-ASC (AS) 

450 IF(A>31ANDA<96) ANDAO63GOTO520 

460 IF(A-13)ANDP>720:GOTO600 'TEST FOR OR <CR> TO END INPUT 

470 IFA-27GOTO230 

480 IFAO8GOTO440 

490 IFP>720THEN PRINTgP," " ; : P-P-l : ELSEGOTO440 

500 LE-LEN(AIS) : IFLE<2THENA1$""" :GOTO430 

510 A1$-LEFT$(A1$,LE-1) :GOTO440 

520 P-P+l 

530 PRINTS P,AS;:A1$-A1$+A$: IFP>751GOTO600 ' ALLOW ONLY 32 CHAR 

ACTERS TO BE ENTERED AT A TIME. 

540 GOTO 440 'GET NEXT CHARACTER 

600 • ..... 

610 ' * ROUTINE TO SPEAK PHONEME FROM Al$ 

620 ' ****• 

630 VO-AlS:GOSUB 700 

640 GOTO430 

700 • **.«* 

710 ' 



OUTPUT SUBROUTINE NEEDED FOR 

VOICE SYNTHESIZER 

VO ■ STRING 

IV - LENGTH OF VO 



720 " 

730 ' * 

740 ' **«.* 

750 VA-LEFT$(VO,32) 
760 VO - "? " + VA + " 7 " 
770 FOR IV - 1 TO LEN(VO) 
780 POKE 16383, ASC(MIDS(VO,IV,l) ) 
790 NEXT IV 
800 RETURN 
1000 ' «»**« 

1010 ' * PRONUNCIATIONS FOR ALPHANUMERIC CHARACTERS 
1020 ' •**** 

1030 DATA" SPegES " , "3KSKL2M§0CH3N0POYNT0" , "KWOT0" , "N8MB3R0SAI 
EN0","D;LL3R0SA!EN0","P3RS3NTT0","99ND",";P;;STR3FFEE","OOP3N0P3 
R3NTH3S3SS0","KLOSS0P3R3NTH3S3SS0","AST3R3K" 

1040 DATA"PL6SS0","KK;MM;0","MA;N3SS","P.R.3D","SL99SH0","Z*»R8[ 
U" , "WB77NN" , "T( (UU" , "-R.i" , "FOOR" , "FA; #iW" , "SI#K0S" , "S54V4NN" , * 
) )**T","N;4iN" 

1050 DATA"KKOOL3NN" , "S3MMA! §0KKOOL3NN" , "L3SS0 ( ( 99NN" , "EEKKW8LZ" , 
"GR§*T3R0 ( ( 9NN" , "KW3STCH3N0M ( 12RK" , "99TT" 

1060 DATA "?E0","BB.Ei0","SSEE","DDEE.0","EEE","3FFF0","DJE",")) 
•TCC", , jA5*E , ,"DJ5e**","KKH))e))i0","3LLL","438MM","t«llMNNN0", 
*%|OU*,"PPHEEE0","KKHYUU0","l8/","43tSS","TTHEE.E«i0","MUU","WE 
,Eli0","DD67BRLLY( 'U0" 

1070 DATA "43KKS","W;5#&","ZZE","67P0eARROW0","DAA[!JN0PARROW0"," 
LL3FT0?ARROW0" , "RRA ! ET9ARROW0" 
1100 '***** 

1110 '• PRONUNCIATIONS FOR PHRASES 

1120 '*•*** 

1130 DATA "0","0","eiMM0","BR6«2R","KOULD","DD99D","EET","FR6M", 
"GOO0AWP?Y" , "H6+GREE" , "L6V" , "BSK" , "KKAAR" , "LL3FT" , "MMA;MM" , "NNEE 
D" , "OOV4R" , "PLEES" , "KHWITT" , "RA! ET" , "S ! ST3K" , "TH I RSTEE" , "YUU" , "T 
EEVEE","THANGK0YUU" ,"NOO" ,"Y3SS" , "H32LLP" 
1200 '«**** 

1210 '* PHRASES THAT APPEAR ON MENU 

1220 '*•••* 

1230 DATA "AM", "BROTHER", "COLD", "DAD", "EAT", "FROM", "GO AWAY","HU 
NGRY" , "LOVE" , "BOOK" , "CAR" , "LEFT" , "MOM" , "NEED" , "OVER" , "PLEASE" , "Q 
UIT" , "RIGHT" , "SISTER" , "THIRSTY" , "YOU" , "TV" , "THANK YOU" , "NO" , "YES 
"."HELP","* PHONETIC MODE *" 
2000 RESUME NEXT 



Program Listing 3 



for the TRS-80 from Micro- Mega 



The Original GREEN-SCREEN 




The eye-pleasing Green-Screen fits over the front of your 
TRS-80 Video Display and gives you improved contrast with 
reduced glare. You get bright luminous green characters and 
graphics like those featured by more expensive CRT units. 
Don't confuse the Original Green-Screen with a piece of thin 
film stuck to the face of your video tube, such as that adver 
tisedby others. The Original Green-Screen is mounted in a full 
frame perfectly matched to the color and texture of the 
TRS-80 Video Display. It is attached with adhesive strips 
which do not mar your unit in any way. 
The full frame design of the Original Green-Screen "squares 
off" the face of your video display and greatly improves the 
overall appearance of your system. 

(Specify whether for Model I or Model III) 

THE GREEN-SCREEN $73.95 

Add $1.50 for postage and handling. 

THE ULTIMATE STAR TREK PACKAGE 

^^ P III 



Tired of trivial computer games? This complete Star Trek 
package will provide you with endless fascination and 
challenge. In addition to the program cassette, it includes 
comprehensive instructions, a pad of "Voyage Log" record 
sheets, and a free-standing "Torpedo and Maneuvering 
Chart." 

The package is built around the latest version of Lance 
Micklus' incomparable Star Trek III, a 13,000 byte program 
with a host of subtle and imaginative features, which in- 
clude numerous dynamic and spectacular graphic displays. 
Star Trek III puts you in command of the Enterprise cruising 
in a galaxy of 192 quadrants filled with uncharted hazards, 
including hostile Klingons, pulsars, and black holes. You 
have at your disposal scanners, various weapons and 
defense systems, on-board computers, and a loyal crew. 
(You will need them all to survive the Klingons.) 
Your mission is to rid the region of Klingons and to locate 
five inhabitable planets, all within 300 stardays, before re- 
turning to Star Fleet Headquarters where your overall effec- 
tiveness as a starship commander will be scored. High 
scores are possible only with careful planning and effective 
battle tactics. The "Voyage Log" sheets will guide your 
strategy, and the "Torpedo and Maneuvering Chart" will 
give you a vital edge in combat. (When you engage three 
Klingon ships you can't afford to miss.) 



STAR TREK PACKAGE (for Level II. 16Konly) 
Add $2.00 lor postage and handling. 



$22.95 



Terms: Check or money order, no CODs or credit cards, please. Add amount 
shown for postage and handling to price of the item. All items shipped within 48 
hours by first class or priority mail. Virginia residents, add <% sales tax. 



Micro- rVlecja - P.O. Box 6265 • Arlington, Va 22206 



■See List ol Advertisers on page 386 
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COMSOFT 

N E 



TSHARE 2.0 




MULTI-USER SYSTEM 

forth* 

TRS-80® MODELS I & III 

Powerful addition to NEWDOS80* expands the capacity of a 

single TRS-80 to service TWO active users with full access to 

NewdosSO. 

Users operate independently with joint access to disk and up to 

two printers. 

Execute BASIC or ASSEMBLY language (above 7740 Hex). 

2nd user communicates via a TERMINAL, modem, or second 

computer acting as a terminal. 

NEW BUILT-IN FUNCTIONS 

• Communicate between users 

• Execute two programs concurrently 

• Joint execution of single source 
program with separate data areas 

• Open same file by two users 

• Multi-user MINI-DOS 

Requires 32K model I or III with one disk drive and a serial port 
interface (software drivers built-in for RS-232* , HUH-8100*. 
TRS232*,andMPR-232* interfaces). 

SIMPLEX mode for non serial-port users. Requires only expansion 
interface or TRS232 with printer to act as second "screen". 
Jobs share TRS-80 keyboard under user control. 

CONFIGURE utility makes it easy to partition memory between 
users and select I/O modes. 

TSHARE 2.0 for NEWDOSSO $ 99 

Please specify model I or III (Model ill available Sap. 1, 1981) 
TSHARE 1.3 forTRSDOS 2.3/NEWDOS 2.1 $ 89 

TSHARE 2.0 ■•- MPR-232 interface (for non RS-232 users) . . $199 
$10 Upgrade privilege for TSHARE 1.3 licensees 



DDM5 



S79 
MODELS I a III 



MULTI-FEATURE DATA MANAGER 



Up to 20 usar defined fields. 

Files extend across multiple 

diskettes. 

Supports up to four drives. 

Automatic single drive disk 

mount requests. 



• Four data types and compu- 
tational fields. 

• Flexible REPORT GENERATOR. 

• Faat assembly language aorta. 

• MULTI-FIELD sorts & searches. 

• Keyed access on any sorted field. 

• Indexed relations between files. 



VIEW 



11996 CSTOCK 



$49 



A SCREEN FORMATER 
FOR DBMS 

Full CURSOR control 

Protected fields 

User form DESIGN 

File data entry, inquiry, 

a edit 

Elegant & professional look 



DISK DATA BASE* 

ANALYSIS TOOL 

FOR STOCKS • OPTIONS 

Regression analysis 
Charts 

Portfolio selection 
Risk management 



SERIAL I/O 
MPR-232 



A serial port interface designed to properly connect to TRS-80 
with or without an expansion interface. 

• Glitch free operation 

• Connects with card edge connector 

• Uses TRS-80 power supply 

• All parameters switch selectable 

• Baud rates 50 to 19200 
Manufactured by: 
Micro Projects Engineering Co. 
Culver City, CA 

$119 (ASSEMBLED & TESTED) 



TO ORDER 



TRS-80 tm 

Radio Shack/Tandy Corp. 
NEWDOS tm Apparat, Inc. 
TRS232tm Small System 

Software 
HUH tm California Computer Systems. 



CcmScf t 

1569 West wood Blvd. 

Suite B 

W. Los Angeles, CA 90024 

2134490369 



• 204 
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to learn how to type without the 
need for someone to work with 
him constantly. Once the page 
is filled, or a shift @ is entered, 
the text is written to disk as an 
ASCII file. This feature allows 
someone to check it for accura- 
cy later, or to allow the text to be 
printed by TRSDOS' Print com- 
mand. If a Basic program is writ- 
ten using Type, it can be run by 
merely running the disk file. 
Each application will require a 
modification to fit the particular 
user, so I've packed the program 
with REM statements rather 
than specific features. This 
should allow you to modify line 
length, page length, etc., with- 
out having to start from scratch. 
The three programs that use 
the voice synthesizer all have a 
routine to POKE the sound into 
the window at video location 
1023: you can either use this 
one, or the one supplied by Ra- 
dio Shack in the voice synthesiz- 
er manual. If you decide to use 
Radio Shack's method, VO$ can 
be left as VO and VX would have 
to be renamed with a non-string 
character since V is defined as a 
string at the beginning of the 
program. 

Although we have been paral- 
leling the popular uses of micro- 
computers with uses for the 
handicapped, the next step, 
control, is not yet very well de- 
veloped. By using a device that 
Interfaces the BSR control sys- 
tem, some very practical appli- 
cations for general use have 
been formulated. While this real- 
ly isn't specifically aimed at the 
handicapped, it could prove very 
useful. Personally, I would like 
to use the BSR appliance and 
light control system as operated 
by a speech recognition device. 
That way if my kids won't listen 
or obey me, at least my comput- 
er will. 

Looking Ahead 

We've looked at a few ideas 
together, and I hope they've 
started you thinking of ways you 
could do these things better. By 
using logic you can analyze the 
problems that the handicapped 
face, then use your imagination 
to figure out a solution. Decide 
which tools you're going to use, 
and whether you're going to use 
them as they were designed, or 



differently. A light pen, for ex- 
ample, can be used as an elec- 
tronic eye which can be trig- 
gered by a flashlight, or by inter- 
rupting a light beam focused on 
the pen. Applications for the 
handicapped literally beg for 
unusual applications— perhaps 
your computer club could work 
on developing programs in con- 
junction with local civic groups 
that work with the handicapped. 
A few tips are in order, 
though. Once you develop a pro- 
gram, its final form should be 
completely debugged, particu- 
larly if the program will be used 
when you are not there to cor- 
rect the error and reboot the 
system. 

Other things to consider 
when developing such pro- 
grams is to remember that the 
handicapped are people just like 
the rest of us— they have 
moods, fears, and emotions 
plus a few extra frustrations. 
Thus, if your plan is to develop 
to real-time game to help a han- 
dicapped person to develop bet- 
ter motor coordination or re- 
flexes, keep in mind the frustra- 
tions that these games can 
cause. How many of us get frus- 
trated while playing Asteroids or 
Space Invaders because we are 
not able to move fast enough? 
Those frustrations that we feel 
are greatly compounded by a 
handicapped individual who is 
trying something for the first 
time. Also keep in mind that 
what may work for one individu- 
al may not work for another with 
the same handicap. 

Finally, a severely handi- 
capped individual who cannot 
even feed himself might easily 
be more intelligent than you 
and I put together— especially 
since they have had the oppor- 
tunity to develop their minds 
while we were hanging around 
the pool hall. Most of the handi- 
capped don't want things done 
for them, but they do want the 
tools that allow them to do 
things for themselves. 

We hope this article has given 
no answers, we do hope that it 
has raised a lot of questions. 
Since this is The International 
Year of the Handicapped, it's an 
appropriate time to try a few 
things and share your ideas with 
others. ■ 



28 ' • 'TYPE" REVISION 1.3 - JANUARY , 1981 

• STEPHEN F. NOVAK, RT(R), BBA 

• GABY JAKES MUSWICK, BSEE 

* REQUIRES LEVEL II BASIC. DISC (. 

* VOICE SYNTHESIZER 

38 ' • S - INPUT VALUE (STRING) 

41 ' • I - INTEGER COUNTER 

5f ' • SA = ACCUMULATION Of *S" VALUES (S * S, ETC) 

61 ON ERROR GOTO 58ff 

Iff CLEAR 5000: DEFSTR S - I: DIN S(6ff), SC(7t): DEFINT I-L,P,C 

118 CLS 

128 FOR I = 1 TO 63 

1 3d ' ***** 

* I - COUNTER FOR READING PRONUNCI 

ATIONS 

• INTO ARRAY S 

CUM 

148 READ SC(I) 
15« NEXT 
200 * *«*•« 

21f • • PAGE - PAGE NUNBER - MAX OF If 

228 ' * LNE - LINE NUNBER 

238 ' • CHARACTER - CHARACTER ON LINE 

248 ' ••«•* 

258 FOR PAGE - 1 TO 18 :' THIS STATEMENT LIMITS 

MAXIMUM NUNBER OF PAGES 
268 VO • "R3DBEE':GOSUB 2888 
278 FOR LNE ■ 1 TO IB :' THIS STATEMENT LIMITS 

MAXIMUM NUMBER 

F LINES 

PER PAGE 
288 PRINT CHRJ(94) > 
298 FOR CHARACTER - 1 TO 68 
,88 S ■ INKY*: IP S - "" THEN 3ff 

318 J-ASC(S):If CHARACTER-59 AND J<>13 AND J<>8 THEN 388 
328 IF ((J<32) OR (J>91)1 AND NOT (J-8) AND NOT (J-13) AND NOT ( 
J-96) THEN 388 
338 IF (S-CHRS18)) OR (S-CHR$(27)) THEN IF LEN(SA)-8 THEN SA-*": 

NEXT CHARACTER 
348 PRINT S; 
35B GOSUB 1888 

368 IF SO CHRS(8> THEN SA = SA + S 

378 IF S • CHR$<8) IF LEN(SA>>8 THEN SA ■ LEPTS(SA, ( LBN (SA) -1) ) : 
i"H ARACTEB-CHARACTER- 2 
388 If S - CHRS(»6) THEN 618 
3»f IF S - CBRJ(13) THEN 588 
488 NEXT CHARACTER 
581 • •••*• 

518 ' * S(LINE) IS ARRAY VALUE OF STRINGS 

528 ' •»••• 
5 38 S(LNE) - SA 
..40 SA * ■■ 
IV 1WH l.Nh 

•,fe ••••• 

61f ' * ROUTINE TO COPY ARRAY VALUES TO DISK 

628 ' • AND EXIT 

63f ' ••••« 

648 CLS 

658 VO - *S*fV**NG PIIEDJ" : GOSUB 2888 

668 PHS-STRJ(PAGE) : PG$-"PACE"+RIGHTS ( PHS , 1 ) ♦*/TXT* 

678 ' «•*** 

688 " * PGS IS NAME OP DISK FILE 

698 ' «•••• 

788 PKiNTPGS 

718 OPEN "0",1,PG$ 

728 POR 12 - 1 TO LNE 

738 PRINTtl,S(I2) ; 

748 PRINT S(I2) I 

7 5f NEXT 12 

768 CLOSE 

Sff ' ••••• 

• If LAST PACE WAS TERMINATED BY SHIFT 9 THEN 
« TERMINATE, ELSE GO TO NEXT PACE 

BIB IF S <> CHRSI96) THEN NEXT PAGE ELSE END 

1088 ' ***** 

1818 ' * TABLE OF PRONUNCIATIONS FOR VARIOUS KEYS 

* AND SYMBOLS 
1828 ' «**«• 

1838 IF ASC(S) - 13 THEN VO - "3NBT3Rf*: GOTO 2f88 

1848 IF ASC(S) - 8 THEN VO - "B99KSP1 i ES" : GOTO 2888 

1858 IP ASC(S) - 91 THEN VO - *76PM5) 4/OOU8* :GOT02888 

1868 IF (J<32) OR (J>9t) THEN RETURN 

H7f VO - SC(J-31) 

2t8B ' «•••• 

2818 ' * OUTPUT SUBROUTINE NEEDED FOR 

• VOICE SYNTHESIZER 

282t ' * VO - STRING 

2830 ■ * IV ■ LENGTH OF VO 

2848 ' ***** 

2t58 VA-L£PT$(VO,32) 
2860 VO-*? * ♦ VA ♦ * 7 * 
2f7f POR IV - 1 TO LEN(VO) 
2888 POKE 16383, ASC(NIDS(VO, IV, 1) ) 
2898 NEXT IV 
2188 VO-":VA-*": RETURN 

3888 DATA* SP88ES * , •3KSKLWt8CB3NtPOTNTt* , 'KNOTt* , *NBMB3B*SAl 
ENf , *D(LL3Rf8AIEtJf* ,*P3RS3NTTf , *99IID* , * ; P J j STR3PPEB* , •OOP31WP3 
R3NTH3S3SSf*,"KLOSStP3R3NTH3S3SS8","AST3R3K* 

3010 DATA*PL6SSi*,*EK|BM|f ,*MAiN3SS*,'P.R.3D*,"SL99SHf*,*Z*0R8| 
U* , •W877NN* , "T( (UU* , *-R.t " , ■POOR* , *f A) 0*W* , "SIBKfS* , 'S54V4NN* , * 
) )*iT",*N|4*N" 

3020 DATA*KKOOL3NH* , "S3MHAI MKROOL3NN* , *L3SSf ( ( 99NN* , ■EEXKW8LZ* , 
*CRI*T3Rt ( ( 9NN* , * KW3STCB3MN 1 12RK* , •99TT* 

3030 DATA ■fEf,*BB.E*f,"SSEE*,*DOEE.f,*EEE*,"3ffrf,*DJE*,")) 
*TCC",';A50E*,'DJ5#***,*«KH))f))6f,"3LLL*,*438»IM*,"»01lt»NN»8", 
•%(OU*,*PPHEEEf,*«UYUUf,*;8/*,'430SS',"TrHEE.E48*,*KUU",'WB 
.E*f,"D067BRLLY('UB" 

3848 DATA *43KKS* , *W»506* , *XXE- ,*67Pf«ARRO»f»* , •DAAlUMMARaOIrt" , " 
LL3fTtgARROW»",*RRAlET0ARROWf 
3f5f END 
5880 RESUME NEXT 

Program Listing 4 



THE PROGRAMMER'S GUILD 
MEANS ADVENTURE! ! 



SPIDER MOUNTAIN 

SEARCH FOR GOLD AND GLORY IN THE TUNNELS 
OF SHELOB'S LAIR. 



TAPE $14.96 



DISK $19.95 



LOST DUTCHMAN'S GOLD 

YOU AND THE GHOST OF BACKPACK SAM AGAINST 
THE TREACHEROUS TERRAIN AND HOSTILE 
INDIANS OF THE SUPERSTITION MOUNTAINS. 



TAPE $14.95 



DISK $19.95 



LOST SHIP 

DISCOVER THE SECRET OF THE FLOATING PIRATE 
VESSEL IN THE MYSTERIOUS DEVIL'S TRIANGLE. 



TAPE $14.95 



DISK $19.95 



DEATH DREADNAUGHT 

CAN YOU ESCAPE THE CREATURES DEADLY 
PURSUIT AND MAKE IT TO THE SHUTTLE ALIVE? 
RATED R DUE TO VIOLENT DESCRIPTIONS. 



TAPE $14.95 



DISK $19.95 



DRAGONQUEST 

RESCUE THE PRINCESS BEFORE SUNDOWN FROM 
SMAEGOR THE TERRIBLE. MACHINE CODE, KEY- 
BOARD MACRO. 



TAPE $15.95 



DISK $21.95 



THUNDER ROAD 

HILARIOUS TAKEOFF ON THE "DUKES OF HAZARD" 
CAN YOU GET YOUR MOONSHINE TO KNAWBONE 
BEFORE SHERIFF BUBBA SHUTS YOU DOWN? 



TAPE $14.95 



DISK $19.95 



DEADLY DUNGEON 

DISCOVER THE SECRET OF THE DEADLY DUNGEON 
AND EMERGE VICTORIOUS AND WEALTHY. 



TAPE $14.95 



DISK $19.95 



* * * NEW RELEASE * • * 
TEMPLE OF THE SUN 

EXPLORE AN ANCIENT AZTEC TEMPLE SEARCHING 
FOR THE SHAMAN'S SECRET. 



TAPE $19.95 



DISK $29.95 



COMPUTER MAIL ORDER 18 HERE! ! I 



Programmer's Guild 



i 693 924 h06S Vou'p • 60 I *2i 



• Se* List of MwrttSfs on pmg» 386 
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GENERAL 



When you talk to your computer, it talks back. 



Voice Synthesizer 



Willard Hall 
PO Box 1947 
Washington, NC 27889 



Radio Shack's Voice Synthesizer pro- 
vides unique entertainment, in addi- 
tion to serving as a fresh tool in the study 
of phonetics. As every talker owner knows, 
though, programming the synthesizer can 
be tedious. Words are voiced by inputting 
the ASCII symbols that represent the 
desired sound units (phonemes). But I 
have trouble remembering that the 
phonemes for the word "interrogating," 
for instance, are evoked by the ASCII sym- 
bols: "!#NT43RHJG))&TE + ". 

Compiling a word phoneme notebook 
isn't much help because for every word 
that I want to voice I must still look up the 
word and painstakingly type in the 
phonemes. 

This program eliminates that tedium. My 
word phoneme vocabulary is entered into 
the program once. Thereafter, I simply enter 
the desired speech into the data lines; the 
program finds the assigned phonemes and 
voices them. The program Is written for the 
TRS-80, Model I, Level II, 16K. 

The Lexicon 

The word phoneme vocabulary is con- 
tained in lines 940-1270, and is arranged 
alphabetically (by first letter only). That is, 
all the words in line 940 begin with the let- 
ter A, and line 960 contains all B's. The 
vocabulary is searched for the desired 
word, and the phonemes are extracted and 
put into a subscripted string variable; but 
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there are two problems that must be 
solved. The first problem is that short 
words can often be found within longer 
ones. For instance, the words "he", "hell" 
and "lo" are found in the word "hello." 
How do you keep the computer from 
catching hell in hello? The solution is to 
enclose each word in @ signs, because 
the search is then actually for @hell@, 
which will not be found in ©hello®. 

Each word is followed by its phonemes 
which are terminated with a dash mark to 
solve the second problem. There are stan- 
dard procedures for finding a word in a 
string, but how do you find a word— in this 
case the phonemes— when you don't 
know what it is? 

The method I use is to add the length of 
the actual word to the position in the string 
of the first letter (the prefixed @ sign), 
which gives the position of the first 
phoneme. The program then looks for the 
next dash mark. The positions of the first 
phoneme and of the dash are then used to 
extract the assigned phonemes (lines 
450-480). 

Program Structure 

The program is built around three 
subscripted string variables. W$(#) con- 
tains the words in the speech. Q$(#) con- 
tains the words with the @ signs added, 
and P$(#) holds the phonemes for each 
word. W$(#) determines the first letter of 
each word and directs the search to the 
proper vocabulary line (line 340); it also 
displays each word on the screen as its 
phonemes are found. 

The GOSUB routine (lines 350-410) has 
three functions: 

• It finds the position in the string of 
the word's first phoneme (lines 390 and 
400). 

• If there are more words beginning 
with the same letter than one line can 



contain (255 characters), it permits all 

pertinent lines to be searched (the Return 

in line 410). 

• If the word is not in the vocabulary 

this information appears on the screen, 

and the program terminates (lines 360, 

1270 and 790). Try "apple". 

The GOTO 1270 is the last statement in 
most of the vocabulary lines, but when 
more than one line is required for words 
beginning with the same letter, it is used on- 
ly on the last line of that group. It is not used 
in the Z-line because it would be redundant 
there. To show how another line is added, I 
will use line 940 as an example since it is 
practically full. To add another word begin- 
ning with the letter A, a new line would be 
entered as follows: 941 x$ = "@ADDl- 
TION@77DI>8N-":GOSUB 350:GOTO 
1270. Be sure to remove the GOTO 1270 
from line 940, otherwise line 941 will be 
bypassed. 

Memory Savers and the Numbers Game 

A dramatic increase in vocabulary size 
with only a small increase in memory re- 
quirements is realized by treating certain 
prefixes and suffixes as words and in- 
cluding them in the vocabulary. For in- 
stance, s, es, z and is can be used to form 
plurals— but choose them carefully. S is 
fine for cats and naps, but not for dogs or 
frogs. 

Ed, t, st, ing and z are used for different 
verb tenses; and the functions of the suffix 
er are too numerous to go into here. 

The pronunciation of some of the suf- 
fixes, such as wise, less and ed, are not 
long enough to permit their use as 
separate words. When there are short and 
long versions, I append the figure 1 to the 
longer version: less- less 1; wise-wisel; 
ed-ed1 (the nickname). 

Words that are spelled the same but 
have different meanings and pronuncia- 




MODEL III DISK KITS 

TWO 40/track drive kit and hardware Comas 

complete with all the necessary hardware and 2 

drives ot your choice. (MPI or TANDON 40 T»t . rf wmm 

track) NO SOLDERING OR TRACE CUTTING jobb«b»»bbbbbbbb»f* ' 

REQUIRED! COMPLETE EASY TO FOLLOW ■ jB 

INSTRUCTIONS INCLUDED 875.95 „™I_^^__»!*_; 

TWO 80/track drive kit and hardware Same as above 1.086.00 

ONE 40/track drive kit with all hardware and your choice of MPI or TANDON 40/ 
track drive (INSTRUCTIONS INCLUDED) 599 99 

ONE 80/track drive kit with all hardware and one MPI 80/track drive No soldering' 

(INSTRUCTIONS INCLUDED) 699 99 

TRS-80 MODEL III. 48K. 2 40 Track TANDON or MPt drives 2.095.99 

TRS-80 MODEL III. 48K. 2 80 Track MPI drives 2,325 99 

1 YEAR WARRANTY 

16 K MEMORY 19.95 

MODEL I, III APPLE AND EXIDY. Instructions included. 
(MOD 1 Keyboard requires jumpers. $200 extr a) 

ARCHBOLD SPEED-UP MODIFICATION FOR MOD I 
TRS-80. RUN UP TO 300% FASTER CPU SPEED! SPEED UP 
SLOW PROGRAMS WITHOUT SOFTWARE! 45.00 

MONITORS 

Black and White Monitors 12" (TECO) 129.95 

Green Phospher Monitors 12" (TECO) 159.95 

AMDEK Black and White 1 2" Monitor 159.95 

AMDEK Green Phopher 12" Monitor 10QG 189.95 

MODEL I DISK DRIVES 

These drives come complete with power supply and chassis. 
90 day warranty on disk drives. ALL DRIVES COMPLETELY 
TESTED PRIOR TO SHIPPING! 40 track drives are fully 
compatible with TRSDOS, NEWDOS-80, LDOS etc. 
Fully compatible with the PERCOM DOUBLER and Double 
density! 80 track drives require MAKE-80 program to run 
regular software. (SPECIAL! GET A FREE 2 DRIVE CABLE 
WHEN BUYING 2 or more DRIVES!) 

40 TRACK MPI or TANDON DRIVES 319.95 

80 TRACK MPI 439.95 

DOUBLE SIDED 80 TRACK MPI 579.95 

2 DRIVE CABLES 25.95 

4 DRIVE CABLES 35.95 

SPECIAL DOUBLE SIDED CABLES (CALL $) 

MAKE-80 CONVERT 40 TRACK TO 80 TRACK. 
(SPECIFY MOD I. Ill) 29.95 

DISKETTES 

SPECIAL: Brown Bag Diskettes (Verbatim) Bag of 20 . 49.95 

SPECIAL: Brown Bag Diskettes 100 Quantity 214.00 

VERBATIM DATALIFE DISKETTES Box of 10 32.50 

VERBATIM DATALIFE DISKETTES 100 Quantity 275.00 




SPECIAL DISK HOLDER 



Holds 50 Diskettes 

Reg. Price $35.95 
SPECIAL 



*21.95 



PERCOM DOUBLER II (Includes DBLDOS) Doubles storage 
on Model I disk drives. Installs in Exp. Int. in minutes! Will not 

effect normal operation! 169.95 

NEWDOS-80 (New Version 2) 139.95 

LDOS 139.95 

DOSPLUS 33 89.95 

(Specify Mod I or III) 



LYNX TELEPHONE MODEM ► . 

AUTO/DIAL AUTO/ANSWER. jjjfcl. , 

COMPLETE WITH SOFTWARE AND -g. ' ^^ 

HARDWARE FOR MODELS I AND III Pfc J| W 
The RS-232 is not needed 1 Completely ^^*«v^^^ 
assembled. LYNX MODEMS are compatible with 

ST-80 III also 299.95 

ST-80 III: Smart terminal program. Allows saving data to disk 
or sending data from disk and more! Mod I or III ... 149.95 

PRINTERS 

SPECIAL: FREE CABLES AND FREE SHIPPING 
WITH ALL PRINTERSI 

CABLES FOR MODEL I EXPANSION INTERFACE. MOD III. 

or PMC-80 EXP 100 or PIF-40 only.) 

PLEASE SPECIFY WHICH COMPUTER! 

HIGH QUALITY DOT MATRIX 

EPSON MX-80 (Tractor feed only) 539.95 

EPSON MX-80 FT (Tractor and Friction feed) 639.95 

EPSON MX-70 (Tractor feed only) 419.95 

EPSON MX-1 00 (Tractor and Friction feed 14.5 wide) 895.95 

EPSON MX-80 Hi-Res Graphics Option 89.95 

Add-On Friction Feed Adaptor for MX-80 or MX-70 59.95 
OKIDATA MICROLINE 80 (Friction and Pin feed) . . 414.95 
OKIDATA MICROLINE 82 (Friction and Pin feed) . . 597.95 
OKIDATA MICROLINE 83 897.95 

(Friction, Pin and Tractor feed 14.5") 
OKIDATA MICROLINE 82A. 120 cps 625.00 

(9x9 matrix w/descenders) 
OKIDATA MICROLINE 83A 120 cps 925.00 

(9x9 matrix w/descenders) 
TRACTOR FEED ADAPTOR for 80 and 82 75.00 

LETTER QUALITY PRINTERS 

The C-itoh Daisy wheel printer is one of the finest Letter 
Quality printers we've seen. WHY PAY MORE FOR LESS??? 
Exchange Daisy wheels to get the kind of printing fonts you 
need. 12-10 pitch. Excellent with Scripsit or Electric pencil. 
Let's face it, sometimes dot matrix doesn't hack it! (You can 
use standard Diablo Carbon ribbons with the C-itoh to get 
crisp "COPY READY" printouts!) 

C-ITOH DAISY WHEEL 25 CPS 1,795.25 

C-ITOH DAISY WHEEL 45 CPS 1,995.25 

C-ITOH TRACTOR FEED 219.95 

PMC-80 COMPUTER 

16K LEVEL II Fully compatible with 
all TRS-80 Mod I Software 595.95 

PMC -81 COMPUTER 16* LEVEL II 

with upper /lower case Upper/lower case 
driver in ROM Auto key repeat Numeric keypad 
4 programmable keys Built in speaker 100% Mod I software compatible 671.99 
EXPANDER 100 PMC's expansion interface 32K. disk controller, printer interface 

(Expands PMC-80/81 to 48K) 499.99 

RF -MODULATOR for PMC or TRS-80 to TV Hook-up Completely assembled and 
tested (Plugs in Video port) UHF CH 33 39.95 

TRS-80 Disk and Other Mysteries Book. 132 pp 22.50 

Microsoft Basic Decoded and Other Mysteries. 312 pp 29.95 

Custom TRS-80 and Other Mysteries. 300 pp 29.95 



CALL TOLL FREE: 800-528-1149 



NO SURCHARGE FOR VISA. MASTER CARD OR AMERICAN EXPRESS" 1 
(10% DEPOSIT REQUIRED ONCOOS OVER $200 00) Send Certified Check 
Money Order or Check 

• 19 




INC. 



4877 E. SPEEDWAY 
TUCSON. AZ 85712 
(602) 323-9391 



CALL FOR 

FREE 100* PAGE 

CATALOG!!! 



TRS-80 IS A TM OF TANDY CORP PMC-80 IS TM OF PERSONAL MICROCOMPUTERS 
PRICES AND SPECIFICATIONS ARE SUBJECT TO CHANGE WITHOUT NOTICE 



•See List ol Advertisers on page 386 
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LOWEST*PRICES 

on TRS-80- 




Model II 64K$ 3298 




Line Printer VII. $329 

Microline 80 S394 

Microline 82 $499 

$369 



OKIDATA 
EPSON MX -70 



EPSON MX-80 



$4 79 



$ SAVE 

MOST ORDERS ^ 

SHIPPED WITHIN X 

ONE BUSINESS DAY 

VERBATIM DATALIFE"* DISKETTES 
Scinch (box of 10) $25.95 

8-inch Double-Density, $43.95 

• Piynnni Money Order Casntar s 
Chack. Certified Chec* Personal 
Checks requa-e 3 waefcs lo deer VISA. 
MASTERChaRGE — Add 3% 

WRITE OR CALL FOR OUR COMPLETE PRICE LIST 

CALL (602) 458-2477 

■■*■ All prices are mail order only ■—■ 

RAND'S .» 

2185 E. FRY BLVD. 

V SIERRA VISTA, AZ 85635 
TRS-80 is a trademark ol Tandy Corporation > 



Word Markers 
S 

ES 

Z 



D 
ED 



ST 

N'T 
ING 

ER 

1ST 



um 

CAT.S 
KrCK.S 

PRONOUNCE.ES 

HE.Z 

RUN.Z 

HAVE.Z 

ROSE.IS 
FIX.IS 

ALARM. D 

DIVIDE. ED 

COMPUTE.ED 

KICK.T 
CAKEJ 

FIX.ST 

COULD.NT 

GO.ING 
PRONOUNCE.ING 

COMPUTE.ER 

ALARM. ER 

ALARM, 1ST 
COMPUTE.ER.IST 



cats 
kicks 

pronounces 

he's (he is/has) 

runs 

halves 

roses 
fixes 

alarmed 

divided 
computed 

kicked 
caked 

fixed 

couldn't 

going 
pronouncing 

computer 
alarmer 

alarmist 
computerlst 



RE 


RE.ENTER 
RE.MISS 


reenter 
remiss 


MISS 


MISS.PRONOUNCE 
MISS.TAKE 


mispronounce 
mistake 


EN 


MISS, TAKE EN 
HARK, EN 


mistaken 
harken 


LY 


CORRECT.LY 
MAN.LY 


correctly 
manly 


DIS 


DIS.CLOSE2 
OIS.LIKE 


disclose 
dislike 


IER 


CLASS.IER 


classier 


EST 


BROWN, EST 


brownest 


UN 


UN.CLEAN 


unclean 


Y 


CAT.Y 


catty 


NESS 


CLOSE.NESS 


closeness 


MENT 


PRONOUNCEMENT 


pronouncement 


LESS 


NAME.LESS 


nameless 


LESS1 


LESS1 


the word "less" 


IZE 


EQUAL, IZE 


equalize 


WISE 


LIKE.WISE 


likewise 


WISE1 


WtSE1 


the word "wise" 


N 


KNOW.N 
SEE.N 


known 
seen 




BROWN, \Z 


brown eyes 




Table 1 
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tions (homographs) can be selected 
properly by appending the figure 2 to the 
verb form: 

Noun/Adjective Verb 

use use2 

close close2 

mouth mouth2 
Example: 200 DATA FRED.DIVIDE.ED.THE.OPERATE.ERS, 
I N ,TO,TWO,CLASS, ES,9 
REM "9" is the data stopper. 

Now, purists will object to this practice, 
and rightly so. Adding another syllable to a 
word usually changes the pronunication of 
the original. For instance, the second 
syllable in the word "mistake" is voiced 
differently than it is when said as a 
separate word. But I use my synthesizer 
mostly for entertaining friends, and the 
savings in memory is more important to 
me than the slight variance in pronuncia- 
tion. Table 1 shows the word markers I use. 

In addition to appending 1s and 2s, you 
could use a 4 for, say, a southern accent, 5 
for a New England accent, 6 for lisping and 
7 for stuttering. 

Grammar Crackers 

Prays, praise, preys, I'll, isle, aisle, loots 
and lutes, its and it's— well, forsooth, 
enough of this. Ewe mite dew bettor two 
billed you're own portmanteau of 
homonyms sew yule no its dun write. Table 
2 lists the homonyms in the vocabulary. 

The Buffer Problem 

The window for the talker is at location 
992, and is opened and closed by suc- 
cessive question marks. This buffer holds 
only 28 phonemes plus the question marks 
and synchronizing spaces. After 28 
phonemes are put Into the buffer, however, 
a time delay must be provided to permit 
voicing the phonemes before additional 
ones are fed in. This time delay is in line 
770. From one to 700 should provide a 
delay long enough for all 28 phonemes to 
be voiced, but a delay this long isn't 
necessary unless the speech is very long. I 
find that one to 450 is usually satisfactory, 
depending upon the number of long 
vowels and the number of words in the 
speech. 

When the delay is too short, whole 
words are omitted and it starts to babble 
and howl. As the delay is lengthened, oc- 
casional syllables are missed. The op- 
timum delay allows all the phonemes to be 
voiced, yet provide a minimal pause be- 
tween phrases; so change the time to suit 
your material. 

Lines 620-720 divide the speech into 
phrases having 28 or fewer phonemes. The 
variable Z counts the number of phonemes 
for each word until the total exceeds 28; 
then the last set of phonemes is dropped 
from the current phrase and becomes the 



"Now, purists will object 
. . .and rightly so." 

first word for the next phrase. Variables B, 
F and L (first and last) become subscripts 
in P$(X), line 710. The aforementioned time 
delay is used between each phrase. 

This phrasing algorithm must be 
bypassed when the program nears the end 
of the speech and there are 28 or fewer 
phonemes remaining. Otherwise the 
algorithm will not be satisfied and will 
keep looping until it exceeds its dimen- 
sion. The bypass is accomplished in lines 
260 and 640 using the variable LAst. 

Q's 

The necessity to insert a time delay after 
every 28 or so phonemes causes problems, 
because the phrasing algorithm is indif- 
ferent to our natural phrasing. Sometimes 
the first word of the next sentence will be 
the last word voiced before a time delay. 
But Radio Shack has provided, in- 
advertently, a cure for this awkwardness. 
There are slight pauses within the pronun- 
ciation of some words; for instance, some 
of us insert a slight pause before the k in 
"spoke". The ASCII symbol for such a 
pause is 0, and Radio Shack's phonetic 
symbol for this is PA0. There is a slightly 



air 


heir 


be 


bee 


but 


butt 


been 


bin 


do 


dew, due 


eight 


ate 


for 


four 


great 


grate 


have 


halve 


hear 


here 


I 


eye 


I'll 


aisle, isle 


leal 


lief 


made 


maid 


might 


mite 


not 


knot 


new 


gnu 


one 


won 


or 


ore, oar 


our 


hour 


pray,z 


praise, preys 


pray 


prey 


plain 


plane 


sell 


cell 


so 


sew, sow 


some 


sum 


see 


sea 


sign 


sine 


sight 


cite, site 


son 


sun 


two 


too 


turn 


tern 


there 


their 


would 


wood 


wait 


weight 


way 


weigh 


wrote 


rote 


you 


ewe 


your 


you're 



Table 2. Homonyms 



V AUTO-BASIC M 

BASIC 

LANGUAGE 

PROGRAM 

WRITER 

SIMPLE TO USE 

FOR THE TRS-80* 
MODEL I 

YOU ENTER YOUR EQUA- 
TION-ONE OR MORE 

YOU ENTER THE 
NUMERIC DATA- INPUT 
VARIABLES 

AUTO-BASIC WRITES THE 
PROGRAM FOR YOU 

AUTO-BASIC STORES IT 
IN A DISK FILE 

AUTOBASIC LOADS THE 
PROGRAM INTO THE COM- 
PUTER AND RUNS IT 

YOU CHECK THE LOGIC 
OF THE EQUATIONS BY EXAMIN- 
ING THE OUTPUT OF THE 
PROGRAM WRITTEN BY AUTO 
BASIC 

YOU POLISH THE PRO- 
GRAM BY ADDING SENTENCES 
WHILE IN AUTO-BASIC 

AUTO-BASIC REWRITES 
THE PROGRAM USING YOUR 
SENTENCES 

YOU'RE FINISHED!! 

HOURS OF TIME SAVED COM- 
PARED TO WRITING THE PRO- 
GRAM YOURSELF. AUTO-BASIC 
ASKS YOU FOR INFORMATION 
IN "PLAIN ENGLISH." 

SPECIAL FEATURES — 

YOUR CHOICE OF THE 
PROGRAMS OUTPUT PRINTED 
TO THE VIDEO SCREEN, YOUR 
PRINTER. OR A DISK FILE 

COMPLETE SUBROUTINE 
HANDLING AND EXTRACTION 
FROM YOUR OTHER PRO- 
GRAMS 

TWO PROCRAM STRUC 
TURES-DATA REDUCTION- 
CONDITIONAL 

ALL TYPES OF VARIABLES 
CAN BE USED INCLUDING AR- 
RAYS 

AUTO-8AS/C TAKES THE PRO- 
GRAMMING PROCESS ONE 
LEVEL HIGHER THAN THE 
STRUCTURED LANGUAGES 
SUCH AS BASIC, OR FORTRAN 
AUTO-BASIC PAYS FOR ITSELF 
IN A SHORT TIME. IT IN- 
CREASES YOUR PRODUCTIVI- 
TY. AND REDUCES THE 
NUMBER OF PROGRAMS YOU 
HAVE TO BUY 

MODEL I REQUIRES: 32K RAM, 
ONE DISK DRIVE MINIMUM 
$195.00 

SEND CHECK OR MONEY ORDER TO: 

• 388 

SCHNEIDER ENTERPRISES 

1252 N. BROWNSLAKE RD 
BURLINGTON, WIS. 53105 
DAYS 414-961-2800, EVE. 414-534-6813 

MflALJtMAJU. 0» T*NO» fORPORAllO. 



, DA 



J13 , 
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". . .to my chagrin, people hearing 

the talker for the first time. . . 

have a little trouble understanding it." 



Program Listing 



10 ' A TALKER PROGRAM 

20 ' FOR THE RADIO SHACK VOICE SYNTHESIZER 

30 ■ WILLARD HALL 

40 CLS 

50 CLEAR 1500 

60 DIM W$(75) ,Q$(75) ,P$(75) 

70 ■ the WORDS IN THE "SPEECH" ARE STORED AS SUBSCRIPTED 

80 ■ VARIABLES IN W$(100). THE FIRST WORD IS W$<1); 

90 i THE SECOND WORD IS W$(2), ETC. 

100 • THE SUBSCRIPTED VARIABLES IN THE Q$( ) ARE THE SAME 

110 ' AS W$( ) WITH THE ADDITION OF "@" SIGNS BEFORE AND 

120 ' AFTER THE WORD. . . . SEE TEXT. 

130 ' P$(D CONTAINS THE PHONEMES FOR THE FIRST WORD. 

140 ' P$(2) CONTAINS THE PHONEMES FOR THE SECOND WORD, ETC. 

150 > LA = THE NUMBER OF WORDS IN THE SPEECH. 

1 6 i LINES 181-209 ARE FOR ENTERING DATA: THE SPEECH. 

170 ■ AFTER LAST WORD OF SPEECH, ENTER 9 AS THE LAST 

180 ' DATA ITEM. THEN RUN PROGRAM. 

190 ' 

200 DATA I,WILL,SELL,NO,WINE f BEFORE,IT,S,TIME,Q,Z4,9 

210 ■ THE WORDS ARE READ INTO W$(N), 

220 ■ AND THE "§" SIGNS ARE ADDED. 

230 FOR N=l TO 75 
240 READ W$(N) 

Program continues 



longer pause symbolized by PA1 and 
evoked by a space. 

PAO and PA1 can be used as "words" in 
the speech, using as many as necessary 
before the first word of a sentence, when it 
needs to be switched to the next phrase. 
But instead of having to type in five or 
more PAOs, I use a Q to evoke five PAOs, 
and QQ for 10 of them. If entered as given, 
the S that forms the plural in operators will 
come as the first sound of the second 
phrase and be voiced after the time delay. 
To correct this, use a Q before the word 
"operate." It is also necessary to use a Q 
before the word "class" to keep the plural 
marker es from being voiced as the first 
sound of the last phrase. The corrected 
line is: 200 DATA FRED.DIVIDE.ED.THE, 
Q,OPERATE,ER,S,IN,TO,TWO,Q,CLASS, 
ES,9. 

Tips 

Much to my chagrin, people hearing the 
talker for the first time seem to have a little 
trouble understanding it. To help over- 
come this, I make judicious use of PAOs 



CONVERT YOUR SERIAL PRINTER TO PARALLEL 



NEW MODEL UPI-3 SERIAL PRINTER INTERFACE MAKES IT 
POSSIBLE TO CONNECT AN ASCII SERIAL PRINTER TO THE 
PARALLEL PRINTER PORT ON THE TRS-80. 

Software compatibility problems are totally eliminated because 
the TRS-80 THINKS" that it has a parallel printer attached. 
NO MACHINE LANGUAGE DRIVER NEEDS TO BE LOADED 
INTO HIGH MEMORY BECAUSE THE DRIVER ROUTINE FOR 
THE UPI-3 IS ALREADY IN THE LEVFL II ROM! SCRIPSIT, PEN- 
CIL, RSM 2, ST80D, NEWDOS, FORTRAN, BASIC etc. all work as 
it a parallel printer was in use. 

The UPI-? is completely sell contained and ready to use. A 34 
conductor edge card connector plugs onto the parallel printer 
port ot the model I Expansion Interface or onto the parallel 
printer port on the TRS-80 III. A DB25 socket mates with the 
cable from your serial printer. The UPI-3 converts the parallel 
output of the TRS-80 printer port into serial data in both the 
RS232-C and 20 MA. loop formats. 



bd 



SPEEDWAY ELECTRONICS 
Division ot Binary Devices 

1 1 560 TIMBERLAKE LANE 

NOBLESVILLE, IN 46060 

^275 

IKS HO is a trademark ol landv 



Also available from 
YE ODDE SHOPPE 
(317) 925-0496 



VISA MasterCard 




Switch selectable options include: 

• Linefeed after Carriage Return 

• Handshake polarity (RS232-C) 

• Nulls after Carriage Return 

• 7 or 8 Data Bits per word 

• l or 2 Stop Bits per Word 

• Parity or No parity 

• ODD or EVEN Parity 

UPI-3 assembled with 90 day warranty 

UPI-4 for use with Model I and RS Printer 

Interface Cable (no expansion interface required) 

Manual only (may be applied to order) 

Ten day return privilege 

Shipping and Handling on all orders 

Specify BAUD rate 50-9600 BAUD 



(1 J9.95 

$149.95 
$ 5.00 

$ 4.00 
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'This technique separates the words 
slightly and increases intelligibility." 



between certain words. This technique 
separates the words slightly and in- 
creases intelligibility. It is also very helpful 
to tape record the message and enhance 
the treble on playback. 

The Program Listing runs in 16K, barely, 
depending upon how many words are in 
the speech. You can, of course, eliminate 
the remark statements and cull the 
vocabulary. If you have more than 16K, 
CLEAR 3000 instead of 1500 and the pro- 
gram will run about 30 percent faster. If 
there are more than 75 words in the 
speech, change lines 60 and 230 accord- 
ingly. 

Lines 1300- 1430 contain a little program 
that is of great help in choosing the 
phonemes for a new word. The phonemes 
can be easily repeated with your edited 
changes until the pronunciation satisfies 
you. 

With the exception of two lines (1101 
and 1181), which can be entered last, all 
line numbers have increments of 10, so 
you can use Radio Shack's Level II 
automatic line numbering function. ■ 



Program commueo 

250 Q$(N)="e"+W$(N)+"@" 

260 IF WS(N)="9" THEN LA=N:GOTO 280: ELSE NEXT N 

270 ' WHEN W$(N)= "9", THE SPEECH HAS BEEN "MEMORIZED". 

280 CLSsA-1: PRINT "WORD SEARCH UNDER WEIGH 

": PRINT 

290 ' LINE 340 DETERMINES THE FIRST LETTER OF THE 

300 » WORD? THAT IS, IF THE FIRST LETTER IS B, THEN LINE 

310 i 950 IS EXTRACTED FOR FINDING THE WORD AND ITS 

320 ' PHONEMES. 

330 IF ASC(W$(A) )=57 THEN 540:' THE LAST DATA ITEM. 

340 ON ASC(W$(A) )-64 GOTO 940,950,960,980,990,1000,1010,1020,103 
0,1040,1050,1060,1070,1090,1100,1110,1130,1140,1150,1180,1200,12 
10,1220,1240,1250,126 

350 ' THIS GOSUB ROUTINE SEARCHES FOR THE "PROTECTED" WORD. 

360 IF X$="13" THEN 790 :' (WORD NOT IN VOCABULARY.) 

370 ■ 1 IS THE POSITION OF THE WORD'S PREFIXED "§" SIGN. 

3 80 ' E IS THE POSITION OF THE FIRST PHONEME. 

390 FOR 1=1 TO LEN(X$) 

400 IF Q$(A)=MID$(X$,I,LEN(Q$(A)))THEN E=I+LEN (Q$ (A) ) :GOTO 420 
410 NEXT I: RETURN 

420 * ONCE THE WORD IS FOUND, THE "RETURN" IS NOT EXECUTED. 

430 ' NOW SEARCH FOR THE DASH MARK THAT SIGNIFIES THE 

440 ■ END OF THE PHONEMES. . . 

450 D$="-" 

460 FOR K=l TO 50 

470 IF D$=MID$(X$,E+K,1) THEN P$ (A) =MID$ (X$ , E ,K) :GOTO 530 

4 80 NEXT K 

Program continues 




COLOR COMPUTE 



ADVENTURE 



TRS-80 



SUPERCHARGER RAMCHARGER 
64K UPGRADE 32K UPGRADE 

• EXTEND MEMORY • EXTEND MEMORY Combat the powers of darkenss and 
FROM 4/ 1 6K TO 64K FROM 1 6K to 32K evil! Can you recover the treasure of 

• $299.95 • $99.95 the Golden Sorcerer before his 

• 100% Compatible w/Ext. or DOS BASIC minions overcome you. A 

• No Soldering or Modification Required adventure for endless hours of fun 

• Fits Inside Computer's RFI Shield..- and excitement. $19.95 



Space Invaders 
Meteoroids 
Space War 

• The Best Games Available 

• High Resolution Graphics 

• Fast. Machine Language 

• Compatible w/ Ext. Basic 

• $21 .95 each, $59.95 for all three 
EXTENDED BASIC GAMES 

• LOTHAR'S LABYRINTH) 
Word Search Puzzle 

• BATTLEFLEET 

Battleship Search Game (one or 
two players) 

• SPACE TRADERS 
Galactic trading game 

$14.95/ea. 





THE FACTS 

At last, a complete description of 
the "guts" of the Color Computer. 
Specs on all the ICs, complete 
schematics, theory of operation 
and programming examples. 

$14.95 

UTILITIES 



• EDITOR/ ASSEMBLER $34.95 

• SUPER MONITOR 19.95 

Full feature machine languaqc 
monitor Completely position 
independent iode ■ lets your 
load it anywhere in the 
computer's memory. 

• EPROM PROGRAMMER 89.95 

(Program your own ROMs for the ROMPAC port) 

• MAGIC BOX 24.95 

Load MOD l/lll Tapes into the color computer 




SPECTRAL 
ASSOCIATES . 

141 Harvard Ave. 

Tacoma. Washington 98466 

(206) 565-8483 
WRITE FOR COMPLETE 
CATALOG 

ADD i°-c FOR SHIPPING 

VISA OR MASTERCHARGE ACCEPTED! 
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DISK-80 

EXPANSION INTERFACE 

FOR THE 

TRS-80 MODEL I 




• Disk controller (4 drives) 

• Hardware data separator 

• Buffered TRS-bus connector 

• Real-time clock 

• Printer port (optional) 
ASSEMBLED & TESTED 

with 16K RAM $32995 

Centronics Printer 

Port add $ 50.00 

with 32K RAM add $ 50.00 

DISK-80 pc board $ 48.00 

Printer/Power Supply 

pc board $ 16.00 

Complete Kit with 16K 

RAM and Printer Port $275.00 

The DISK 80 EXPANSION INTERFACE is Radio 
Shack hardware and software compatible and carries 
a 90 day warrantee including parts and labor 
Includes user's manual and power supply 

Call 1-800-645-3479. in NY. 1-516-374-6793 

or write: The V.coMint Inc. 




r 

♦ 



HAVE YOU 

GOT YOURS? 



DISK & OTHER MYSTERIES: how 

10 recover disk files, the lavout of infor- 
mal ion on disks, memory maps, problem 
solutions, and more -- (he fixit hook for 
disk users! $22.50. 130+ pages. 

MICROSOFT BASIC DECODED: a 

detailed, commented guide lo the Level 

1 1 K < ) M $29 95 . 300+ [.ages . 

CISTOM TRS-80: brand new & full 
of super mfo on customizing v our 80. In- 
cluded subjects are high res graphics, up- 
per and lower case, reverse video, high 
speed clocks, and more. Software sec- 
ii. .M. loo! 129.95. .100+ pages. 

t$k SPEC,AL 

*%\ v> OFFER 



If you clip this ad. or mention it in vour 
order, you can subtract $3.00 off the 
rosl of earn book that vou order! Each 
order must lie accompanied with $2.00 lo 
cover shipping expenses. Mail to: TAS, 
IH(K> \da Street. Lansing. Ml -18910. or 
phone (517) 487-3358 or 185-03+1. (Add 
SI .Mi for COD, r; lor charge cards). 

• 138 



Program continued 



-E+K IS THE POSITION OF THE DASH. . . 

-K IS THE NUMBER OF PHONEMES. . . 

-P$(A) CONTAINS THE PHONEMES. . . 

-THE WORD IS PRINTED WHEN ITS PHONEMES ARE FOUND. 



4 90 '- 

500 '- 

510 '- 

520 '- 

530 PRINT W$(A)+" " ; : A=A+1 : GOTO 330 

540 FOR T=l TO 400: NEXT T 

550 ' THIS KEEPS THE LAST WORD ON THE SCREEN LONG ENOUGH 

560 • to BE read. . . . 

570 CLS:PRINT CHR$(23):' GOES TO 32 CHARACTERS PER LINE MODE. 

580 PRINTS 320, "READY WITH SPEECH." 
590 PRINT? 448, "TO HEAR SPEECH," 
600 PRINT? 576, "HIT ANY KEY. ..." 
610 Z$=INKEY$:IF Z$=""THEN 610 ELSE CLS 

620 Z=0:B=1:F=1: ' LINES 620-770 DIVIDE THE SPEECH INTO "PHR 

ASES" 

630 J«LEN(P$(B) ) : ' HAVING 28 OR FEWER PHONEMES.. 

640 IF B=LA THEN L=B:GOTO 700 :' THIS TAKES CARE OF THE 

650 ' LAST WORDS OF THE SPEECH WHEN THERE ARE 28 OR 

660 ' FEWER PHONEMES. 

670 Z=J + Z 

680 IF Z<=28 THEN B=B+1:GOTO 630 

690 IF Z>28 THEN B=B-1:L-B 

700 PRINTS 992,"? "; 

710 FOR X=F TO L 

720 PRINTS 992, P$(X) ; 

730 NEXT X 

740 PRINTS 992, " ?"; 

750 IF B=LA THEN 900 

760 F=L+1:B*«B+1:Z=0 

770 FOR D=l TO 450:NEXT D:GOTO 630:' TIME DELAY BETWEEN 

7 80 STOP:' PHRASES. 

790 CLS:PRINTS 283, 'THE WORD" : ' LINES 790-890 PRINT 

800 L-LEN(W$(A) ) :X«(63-L)/2: ' THE MISSING WORD WITH 

810 PRINTS 448+X,W$(A) : ' A FLASHING UNDERLINE. 

820 PRINTS 660, "IS NOT IN THE VOCABULARY" 

830 FOR K=l TO 5 

840 PRINTS 512+X,STRING$(L,30) 

850 FOR D=l TO 20: NEXT D 

860 PRINTS 512+X,STRING$(L,131) 

870 FOR D=l TO 100:NEXT D,K 

880 FOR 1=1 TO 200:NEXT I 

890 PRINTS 704, "WHAT ARE WE GOING TO DO NOW?":STOP 

900 FOR T»l TO 500:NEXT T 

910 PRINTS 768, "TO REPEAT SPEECH: GOTO 570. BUT IF YOU" 

920 PRINT "MAKE ANY CHANGES, YOU MUST RERUN IT.": END 

930 ' LINES 940-1279 ARE FOR THE VOCABULARY. . . 

940 X$-"SASS) *-SANDS995NDD-SADDS995D-SARES|8R-SAMS998MM-SASS95X- 

SALARMSAL.-RM-SATS995T0-SABOUTS7B; [T-SALLS12LL0-SANS99#NN0-SANYS5 

3Ni-SAFTERS"+CHR$(58)+"FT/-SADAMS'+CHR$(58)+"D6MM-SAIR§5)4R-SAGO 

S8G8[U-":GOSUB 350:GOTO 1270 

950 X$="SBESBEE«.0-SBYSB;5E-SBUTSBB7#T-SBEFORESBEFOOR-SBUFFER§B87 

F/-SBROWNSBR;UN-SBEENSBIINN-SBELIEVESBELEEV-SBOOKSB%%0K-SBIRDSB/ 

/D-SBRINGSBR#E+-":GOSUB 350: GOTO 1270 

960 X$="SCOMPUTESK6MPY(UT-SCANCELSK95NS8L-SCATSKK99#T-SCLOSESKL8 

OS-SCLOSE2SKL8"+CHR$(92)+"Z-SCLASSSKL95#S0-SCANSKK99NN-SCOULDSK% 

%D-SCHARLIESTC;RLE-SCOMFORTSK67MF/T-SCEASESSEES0-SCLEANSKLEfcN-SC 

ORRECTSKOR45KT-SCROSSSKR;S-":GOSUB 350 

970 X$="SCRYSKR;5#&-SCHAIRSC33R-SCARESK33R-SCUPSK66P-SCOMESKK686 

M-SCAKESK5SYKK0-":GOSUB 350:GOTO 1270 

980 X$="SDSDD-SD0SDUU-SDIDSD"+CHR$(34)+"D-SDIVIDESD1VA»5#*D-SDAR 

VILLSSD;RV"+CHR$(34)+"LS-SDISSDI#S-SDOESSD6A#X-SDON'TSD80NT-SDEM 

ONSTRATESD3M8NSTR) *T-":GOSUB 350:GOTO 1270 

990 X$="SESS3X-SEDS»D-SEIGHTS) ) *&T-SEQUALSE*KW%L-SENTERS3NT/-SEN 

DS35NND-SEVENS.V4N-SENJOYS3NDJ[2EE-SERS/-SEATSEET0-SEASYSEEZfc-SE 

ASES.EZ-SED1S33D-SENS5N-SEX1S55KSPE9L#D[[0>6S-SEXAMPLES3KZ95MP8L 

-SESTS55ST-":GOSUB 350:GOTO 1270 

1000 X$="SFORSFOOR-SFIVESFA;lfcW-SFULLSF%%L-SFROMSFR86MM-SFINESF 

;5#iN-SFREDSFR44DD-SFIRSTSF/RST-SFINALSF;#S.N8LL-SFLASHSFL"+CHR${ 

58)+">-SFIXSFI#KS-":GOSUB 350:GOTO 1270 

1010 X$="SGOSG80U-SGOESSG8[ [UZZ0-SGOODSG%%D-SGREATSGR) )*T-SGODSG 

A;DD-SGEORGESDJ[ [RDJ0-SGOTSG; 0T-SGETSG55T-SGADSG99D-SGAMESGSMM- 

SGARDENSG;RD#N-":GOSUB 350:GOTO 1270 

1020 X$="SHESHEE0-SHELLOSH38L8[U-SHOWSH; [-SHARKSH;RK0-SHADSH"+CH 

R$ ( 58) +"#D-SHAVESH99W-SHEARSHER-SHIMSHI 1 iM-SHISSHI I #Z-SHERSH/R- 

SHASSH"+CHR$(58)+"5X-SHURTSHH/RT-SHELENSH538L»N-SHANDSH99ND-SHAP 

PYSH99Pi-":GOSUB 350:GOTO 1270 

1030 X$="SIS;5#i-§INSI 1#N-SI "MS; #*M-SITS1IT-SISSI#ZZ-SIFSIF-SING 

SE+-SlCES;5#iS-SlNTERROGATESIl#NT43RR[UG"+CHR$(94)+"T-SI'LLS;5#L 

L-SISTSlST-SIERSfci/-SIZESA5#*Z-":GOSUB 350:GOTO 1270 

1040 X$="SJESTSDJ43ST-SJUDGESDJ777DJ-SJOHNSDJ;8NN-SJOANSDJ8UUN-" 

:GOSUB 350:GOTO 1270 

Program continues 
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Program continued 

1050 X$="§KICKr3KKM0K-§KNOW§N8"+CHR$(92)+"U-":GOSUB 350:GOTO 127 



1060 X$="eLYeLfc-gLEAF§L.F-§LINE§LA4&N-§LIGHT§L;#*T-eLIKEeL;#&0K- 
§LIBeLI#B-§LONG§L,-»-§LAMPeL"+CHR$(58)+"MP-eLESS§L3S-eLETeL43T-eL 
AST§L"+CHRS(58)+"ST-§LESSl§L33S-§LARK§L;RK-eLIFE§LA5#F-§LISTeLIS 

T-":GOSUB 350:GOTO 1270 

1070 X$-"§MEeMEE0-eMULTIPLYeM7LT8PL;&-eHY§M;5fc-eMANY§MIN*-eMOUTH 

§M; [0--0-§MASTER§M99ST/-gMOUTH2§M7 [L«0-8MORE§MO[R-§MAY§M5§Y0-§M 

AN§M99NN-8MADE§M5§YDD-eMUSTeM86ST-§MUCH§M86TC-eMOST§M8lUST-#MIGH 

TeM;#fcT-§MISSeMI#S-":GOSUB 351 

1080 XS-'§MENTeM55NT-eMOON«K'N-§HAKEeM5eYK0-eMUSIC§MY(X10K-§MAN 

UALeM95NYU8L0-eMET§M43T-"xGOSDB 350:GOTO 1270 

1090 X$="@N8NN-§N , T@#NT-@NOeN80U-@NINEeN;4&N-eNAME@Ne*#M-eNOT@NA 

A0T0-(3NOWf3N;U-@NEW@N( (U-@NEXT@N35KST-gNESS@N4S-§NEVER@N43V/R-" : G 

OSUB 350:GOTO 1270 

1100 X$»"@ONEeW877NN-eON§;ANN-8OF@66V-§OK@$[Ke)*-@OUCH@AAl0TC0-§ 
, CLOCK@%KLlK-§OR§0[R-@OUReA[ [/-@OUTr3;OT-rK>THER§76</-f?ONLYraOUNL& 
-§OLDe8OLLDD0-eOWNg8OUN-eOPINE@"+CHR$(92)+"P;5#&N-@OVERe[ [V/R-@0 
UGHTr32270T-":GOSUB 350 

1101 X$-"§OPERATE@;P/ta*T-":GOSUB 350:GOTO 1270 

1110 X$="§PAlr3 -@PA0§0-§PRAY§PR§*i-@PRONOUNCE@PRON;UNS-@PLAY@PLe 

*&-§PIPER@P;#P/-ePICKePI#K-ePECKeP445K-§PICKLED6PI#KLD0-ePETER@P 

ET5/-@PEPPER§P3P/-§PILOTeP; 5L5T-§PRISON@PRI #X 1 #N-@POEM@P804M-@PL 

EASEePL.EZ-8PRY@PR;5#&-":GOSUB 350 

1120 X$="ePRACTICE8PR99KTlIS-8PENCIL§P54NS5L-ePLAIN8PL8*N-ePUT@P 

%%T-ePROGRAM@PROUGR95M0-8PHONEME@F[ [N*&M-ePROMISE@PR67M##S-" :GOS 

UB 350:GOTO 1270 

1130 X$»"@Q§00000-@QQ80000000000-8QUICK8KWIK-eQUITE8KW;5#&T-":GO 

SUB 350 -.GOTO 1270 

1140 X$-="@RUN@R86NN-@READY8R545D&-8ROSEeR80*X-8RIB8RIB-@RESERVE8 

REZ//W-8RE§RE-8ROAM8R8UOM-8ROOM8RRUUM-":GOSUB 350:GOTO 1270 

1150 X$=" 8S8S-8SAW8S21-eSPEECH8SP*&TC0-8SPEAK8SP*S.K0-8SAID8S33D- 

8SELL8S53 8L-8SIX8SI#K0S-eSEVEN8S54V4NN-8SUBTRACT8S7B0TR99K0T-8ST 

OP8ST;8P-8SAVE8S58fi.V-eSPOKE8SPlU0KK0-eSURE8>%%R-8SIRl6SS//-8SIR8 

S/-8SHE8>EE-8S08S8 [U-8SOME8S66MM-@SHALL8>99L-" :GOSUB 350 

1160 X$="-@ST80T0-8SUCHeS770TC-eSHOULD8>$D-8SERVE8S//V-eSCREEN8S 

KR.N-eSHOWe>OO-eSHELLe>33L-eSEE8S.0-eSIGNeS;5#«iN-8SITeS"+CHR$(34 

)+"T-8SAT8S"+CHR$(58)+"T-8SYNTHESIZE8SIN-8S;«.Z-":GOSUB 350 

1170 X$="8SPORT8SPORT-@SAY8S5)*&-eSECOND@S43K86ND-eSLEEP8SL.P-8S 

IGH8S;5#&-eSIGHTeS;5#S.T0-eSTAR8ST;R-8SPOONeSP( 'N-eSOONeS( 'NN-8SO 

N8S66N-8SUPER18SUUP/0K"+CHR$(58)+"L#FR99DJ#L1ST1K-":GOSUB 350:GO 

TO 1270 

1180 X$="8T8DT-8THE8<<88-8TOP8T;AP-8TOeT(UU-eTHANe="+CHR$(58)+"N 
-8THIS8<I#S-8TONGUE8T77+-8TIME8T;5#S.M-8TW08T( (UU-8THREE8==R.i-8T 
ALK8T227K0-8TRIP8TRIP-8THOUGHT8=2270T-8TROTH800TR1#==-8TODAY8T(U 
D8*i-8TOWN8T;88NN-8TAKE8T5@YK0-8TEN8T445N-":GOSUB 350 

1181 X$="8THEY8<5)*&-":GOSUB 350 

1190 X$="8THAT8="+CHR$(58)+"#T-8TOWER8TAl/R-8TURN8T//N-8THIRD8=/ 

/D-8THERE8<35#R-8THEN8«35NN-8THEM8<44M-8THESE8<EEZ-8THOSE8<8[ [U 

Z-8THOUGH8<8"+CHR$(92)+"U-8THINK8=#E+K0-8TOGETHER8T(UGG35</R-8TR 

Y8TR;5#&-8THANK8=99+K-8THING8=#U+-":GOSUB 350:GOTO 1270 

1200 X$="8UTTERe66T/-eUPONe6P%%N-eUP867P-8US866S-8UN866N-8USE2eY 

( 'Z-8USE8Y( 'S-":GOSUB 350:GOTO 1270 

1210 X$="8VIRGINIA8W/DJI!NS.8-8VERYev45IRY-8VOICE8V085S.SS-":GOSU 

B 350:GOTO 1270 

1220 X$="8WAS8W6AX-8WINE8W;5#SN-8WILLARD8W!L/RD-8WILL8W"+CHR$(34 

)+"L-8WHAT8WA#T-8WHERE8W45#R-8WE@W.0-8WHO8H( (U-8WELL8W538L-8WHIC 

H8WITC-8WERE8W/R-8WHEN8W44N-8WOULD8W$D-8WOMEN8WI#HI#NN-8WAIT8W@* 

0T-8WORD8W/RD-":GOSUB 350 

1230 X$="8WEEP8W.P-eWANT8W;NT-eWENT8W3#NT-8WORK8W/RK-8WON'T8W80N 

T-8WHOM8H((UHM-@WAY8W58Y-8WITH8W"+CHR$(34)+"=-8WROTE8R8l[T-8WISE 

8WA5#*Z-8WISE18W;5#*Z-":GOSUB 350:GOTO 1270 

1240 X$="8X-RAY855KSS0R8*-":GOSUB 350:GOTO 1270 

1250 X$="8Y8S.-@YOU8Y , U-8YES@Y33S-8YOUR@S,[[R-8YET8Y43T-@YE8YE.-": 

GOSUB 350:GOTO 1270 

1260 X$="@Z8Z-8Z48L0L0L0L0L0L0L0L0L0-8ZERO@Z*#R8[U-@ZEAL6ZEEL-8Z 

IP8ZIP-8ZOOKS8Z (UKK0S-8ZOOM8Z (UM-" :GOSUB 350 

1270 X$="13":GOSUB 350 :' "13" IS UNLUCKY-WORD IS MISSING. 

1280 STOP 

1290 ' 

13 00 ' WHAT FOLLOWS IS A MINI-PROGRAM THAT HELPS IN THE 

1310 ' SELECTION OF PHONEMES FOR A NEW WORD. . . 

1320 * TO ACTIVATE: RUN 1330 

1330 CLS:PRINT "PUT TRIAL PHONEMES IN T$, LINE 1360" 

1340 PRINT "TO HEAR PHONEMES: RUN 1350":STOP 

1350 CLS 

1360 T$="77DI>8N" 

1370 FOR N=l TO 4 

1380 PRINT8 992, "? "+T$+" ?"; 

13 90 FOR T«l TO 90 0: NEXT T,N 

1400 PRINT8 768, "T$ IS IN LINE 1360" 

1410 PRINT "(RUN 1350)" 

1420 PRINT "PHONEMES USED WERE: ";T$ 

1430 STOP 
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INDEX-BO turns your back issues Zj 

of "80 Hicrocoiputing'* into an E 

invaluable encylopedia and saves E 

you hours of searching your back — 

issues of "80 Hicrocoiputing'. 55 

NEW version searches faster and ZH 

has first 18 issues indexed. ZZ 

Specify 32K or 48K disk basic. = 

Disk only $19.95 = 

CURVPLOT/MX screen prints E 

to Epson MX-80 $16.95 = 

CURVPLOT $16.95 ST 

CURVFIT $16.95 S 

P0LYS0LV $16.95 S 

===— > BONUS PACKAGE < — === — 

CURVPLOT/HX, CURVPLOT, CURVFIT, — 

I P0LYS0LV all for .....$39.00 = 

Above for TRS80 HOD I or Hod III E 

Due to tail costs please add $1 — 

^gig v. .> t» one (90*1 897 3741 ^^^^ — 

1-75^ f L nwdants «W 4% uin u» ^fl B| 2» 
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, MICROCOMPUTER TtCH NOt OGY AND SOFTWARE mm 
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&&tP7X0FJl^ 

PACKER Machine language program thai edits all or pan 

01 your Basic program to run faster save memory or 
ease editing The 5 opiions include UNPACK -unpacks 
multiple statement lines into single statements 
maintaining logic inse'ts spaces and renumbers lines 
SHORT— deletes unnecessary words spaces and REM 
statements PACK packs lines into maximum multiple 
statement lines including all branches MOVE -moves 
line or blocks ol lines to any new location on program On 

2 cassettes lor 16K 32K & 48K 

For TRS 80 Mod I or III Level II or O.sk Basic S29 95 
SYSTEM TAPE DUPLICATOR Copy your SYSTEM format 
tapes Includes verity routines The Model III version 
allows use of both 500 and 1500 baud cassettes speeds 

For TRS-80 Model I or III Level II SIS 95 

CASSETTE LABEL MAKER A mini word processor to print 
cassette labels on a line printer Includes 50 peel - and 
stick labels on tractor feed paper 
For TR 80 Model I ot III Level II & Printer SI/ 95 

PRINT TO LPRINT TO PRINT Edits your Basic program in 
seconds to change all Prints to LPnnts (except Print® or 
Print*) or LPnnts to Prints Save edited version 
For TR-80 Model I or III Level II ... $12 95 

FAST SORT ROUTINES lor use with Radio Shacks 
Accounts Receivable Inventory Control I and Disk 
Mailing Lisi Systems lor Model I Level II Sorts in 
SECONDS 1 You II be amazed at the time they can save 
Supplied on data diskette with complete instructions 
FAST SORT lor Accounts Receivable S'9 95 

FAST SORT lor Inventory Control I S19 95 

FAST SORT tor Disk Mailing List (specify data diskette of 

cassefte for i drive system) S14 95 

ALL THREE ROUTINES $44 95 

Prices subiect to change without notice Call or write tor a 
complete catalog Dealer inquiries invited VISA and 
Mastercharge accepted Foreign order in US currency 
only Kansas residents add 3": sales tax 
On-line catalog in Wichita FORUM-80 316 682-2113 
Or call our 24 hour phone (316) 683-4811 or write 
COTTAGE SOFTWARE 
614 N HARDING 
WICHITA. KANSAS 67208 *-233 
TRS 80™is a trademark ot Tandy Corporation 
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^Rv^PROGRAM STORE 





Crush.CrumHe _ 

and Chomp! GBunckec o? dehcb 



From Epyx 

It's a monster movie, and you are the 
monster! This action game is loaded with gra 
phics and sound as you practice your villany. 
With 6 monsters, H cities, and 5 game objec 
tives, you get a choice of more than 100 pos 
sible scenarios. A monster's life is not all 
carnivorous crunching, though: The com 
bined resources of the police, science, and 
armed forces are bent on your destruction. 
It's a struggle of might and strategy all the 
way . 

16K tape. ..$29.95 32K disk . . . $29. 95 

Empire^ 

By N.M.A. from Avalon Hill 

A fantasy adventure where you are summoned 
by good King Alcazar to defeat the tyrannical 
Over Mind and reclaim the kingdoms of the 
red and blue planets. 

Throughout your journey, you are guided by 
the epic "Rhyme of Over Mind," with its 
characterizations and clues. The Over Mind is 
part machine, part evil force a most devas- 
tating opponent, indeed. Good luck! 



Tape for 40K Atari, 

48K Apple I TRS 80... $30. 00 



From Programmer's Guild 

You can almost hear the "C-L-A-N K!" of the 
doors shutting behind you as you enter the 
gauntlet. Before you stretch graphically de- 
picted corridors, leading to the rescue of 
Chief Broton's daughter and safe exit - or to 
a hideous death. 

Spiders, poisoned darts, and other surprises 
haunt the halls, along with magic potions and 
useful treasures. Skill and strategy will help, 
but luck and determination are needed to 
successfully run the gauntlet! 

1SK tape. ..$19.95 

MIND THRUST 

By Sackson 6 Wazaney from Hayden 
Match wits with the computer In this decep- 
tively simple game. Your object is to complete 
an unbroken chain across a 6 X 8 gameboard 
grid. On each turn you may either place a 
new "link" on your chain or remove one from 
the computer's chain. Sound easy? Just wait 
until you try it! 

16K tape... $16. 95 





By John Allen from Acorn 

More features, thrills, and sound than even 
John Allen's famous PINBALL. Once you load 
ASTROBALL into your TRS 80, the arrow 
keys become flipper buttons, the screen 
becomes the play board, and you become the 
"Pinball Wizard!" 

A flying saucer, spaceships, meteors, and 
black holes add to the fun as your ball realist- 
ically zings around the board. ASTROBALL 
will have all your family and friends lining up 
for the pinball action and challenge. Five 
skill levels. 



16K protected tape. 
i'. K protected disk . 



.$19.95 
.$19.95 



SPACE HOCKS 

By Steven Kearns from Acorn 
Cigantic antimatter rocks appear on the Tac- 
tical Display Screen of your spacecraft. You 
blast away with lasers and they just explode 
into smaller chunks for you to destroy. To 
add to your woes, time bombs appear period- 
ically. If their timers reach zero BOOM! 
And if that's not enough, the aliens will be 
glad to send out some spaceships loaded with 
antimatter torpedoes. Fire thrusters to move, 
shoot laser cannon, jump to hyperspace 
anything to avoid the onslaught. One or two 
players can compete, with five levels of 
difficulty. 

16K protected tape. .$19.95 
32K protected d isk . . $ 1 9 . 95 



ROBOT ATTACK 

By Hogue I Konyu from Big Five 
One of the top names in TRS 80 arcade games 
adds a new dimension: voice sound effects! 
You have to be quick to keep your head on 
straight in this "search and destroy" arcade 
game. The innovations built into ROBOT 
ATTACK take your TRS -80 near the limits of 
its capabilities. You MUST see and hear it! 

16K tape. ..$15.95 32K disk. .. $19.95 

MANAGEMENT 
DECISIONS 

By Robert Montgomery from Hayden 
An incredibly detailed and complex simulation 
of business management. You are given the 
reins of a large business, controlling every 
aspect of its operation for 20 quarters (five 
years) or until you resign. 

Many reports, charts, and graphs are avail 
able to keep you abreast of happenings both 
internal and external to your company . Sales, 
advertising, production, competition, and 
economic conditions all interrelate as you try 
to earn profits for yourself and your 

stockholders. This program is so informative 
that we think it should grant you credits in 
Business Administration! 

16K tape. Model I or III.. .$49.95 
32K disk, Model I only $54.95 



\je**AMy. . . 



BASK COMPILERS 



tba 



BASIC. 



The id,.: 



!t vould i... lay UIIC pro|raa .-..I coar- 
pue it directly to «.bno laBaoase. The 4, ft Unity Ilea 
la the "trick" featerse vrittaa isto any ?K,»r«i. like 
• trial packiag, tetrad effecta, ate. Other proalaaa laclvd* 
aoB-ataadard .tractor— 111* kreahiaa. out o( a H)»...«TII 
loop or a atarroutioc. All coapilere a*« tiauirt aodifica- 
tioaa to jour BASIC ptojraa. Va key. fooad ACCU. Z to re- 
quire the lull. UIIC FIOCUMIOC ASIlSTAeTT l»..l 1, 
514.95! ia ii.fi: io fladia| "01... BUT loo*, .ad -.-Jtfy.e., 
proe.ro... FaCXU (529. rl> ia aoaa ceaea mil •eke a ,,.,,. 
coe.pil.al.. 





Allea CaUar'a 
ACCU. I 


liaraltak'a 

: BASIC 


UBCOM 


■ laiaaa. 
laraerara 


161 UK 
Tap* or dial 


in um 

Tap* or dirt 


in ia* 

St.. only 


Model III 
coauaitiklr 


TIS 


■0 


m 


•tilitatioa 


th 


•0 


■0 


a:: basic 


TIS 


» 


TO 


All mllll I :-,, 

A floatiat aoiat 


TO 


BO 


TO 


Saeport I/O 
for tape 


TCI 


■0 


■V 


Dareetrictee 


TIS 


TO 


BD 



ZUSIC iaa.tr a. 



t aDdificatieae to ,ear UIIC pro 
traai ia elect eeer, caee. Kicroaofl'a UlCtat i. the aaa 
UM ecatjt'.ar to BBS if ia rev. dlBk drtaa. . latmi. I 
ia wore expeaeive, doaao't eupport atrial Backlog, aad ra 
auirea .ore awry. Ha racoaaatod ACCIL 2 heceoe. it »t 1 



»ltk aodela 
I, .rs nil 



raoc 



;:., — . 



ZUSIC fro. Slaaltel: Tap* eereioa »>9.95 

ZUSIC froa Siaeltea: Biek mi:.. >ae..91 

USCON froa* Microooft: Diak .-.:■, 1149.95 

ACCJU. 3 froa Alloa CeUer: Tape A diak . . . 111. 9) 

(To eave ACCXl-cevpiled proeraaa to tape 

Ton alao Bead TSATZ. 19.9)1 



Visit our other stores: Seven Corners Center • Falls Church, VA J. W. Boll Plaza • 66OO Security Blvd. • Baltimore, MD 



B M TO ORDER CALL TOLL FREE 800 424-2738 Ji^TSg^y 



THE PROGRAM STORE 

4200 Wisconsin Avenue NW, Dept. E 10 Box 9609 
Washington, D.C. 20016 ^,- 



MAIL ORDERS: Send check or M.O. for total purchase 
price, plus $1 .00 postage & handling. O.C. residents, add 
6% tax. Charge card customers: include all embossed 
information on card. 
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Get the most from your micro with 
software and accessories from one of 
the world's largest selections. 



The 

Pro g ram 

Store 



CALL TOLL FREE 

800424-2738 




MISSILE 
ATTACK 



By Philip Oliver from Adventure Int. 
You must use your twin silos of ABMs to fend 
off barrage after barrage of enemy missiles 
that rain down toward your cities. As your 
skill increases so does the difficulty and 
speed of this machine language arcade game. 
Watch the skies and may your aim be true! 
MISSILE ATTACK has sound and fast -moving 
graphics galore. 

16K tape... $14. 95 32K disk. . . $20. 95 




TENPINS 



By John Allen from Acorn 
TENPINS brings you all the thrills of champ- 
ionship bowling. Up to four players partici 
pate, and the program automatically senses 
the skill of each. Beginners can simply posi 
tion the ball and "roll" it while more skilled 
players can vary the force, roll a curve, and 
cause it to spin as it heads for the pins. All 
this ■- plus 3-D graphics and sound effects 
adds up to a realistic and thoroughly 
challenging bowling game. 

16K protected tape... $14. 95 
32K protected disk... $20. 95 



PINBALL 




By John Allen from Acorn 

Cet your flipper fingers ready for action in 
this real-time, machine language game. Lots 
of sound and flashing graphics make this fast 
action game so much like the real. thing that 
you'll have to remind yourself not to shake 
your TRS-80. Choose from five playing 
speeds to match your skill. Can you beat your 
friends' scores? Will you avoid the infamous 
"Bermuda Square?" Cet PINBALL today and 
find out. 

16K protected tape... $14. 95 
32K protected disk... $20. 95 




» 



By Hogue 6 Konyu from Big-Five 
"The rage of the arcades" is now available for 
TRS 80! Exciting sound effects add to the 
action as the invaders swoop down to destroy 
your base. Even while you have your hands 
full battling the aliens, you have to watch out 
for the Flagship! Super graphics, super 
action, super fun! 

16K tape... $15. 95 32K disk. .. $19.95 




METEOR 
MISSION 

2 



By W. Codwin £ D. Knowlton from Acorn 
Not for everyone. One reviewer said 
"...don't bother with Everest Explorer." 
Another commented, "It holds your attention 
for quite a while and I have yet to get bored 
with it." 

Most people here love it. This is a game of log 
istics in which you try to lead a team up Mount 
Everest. If your skill, the weather, and luck 
are right, you'll make it. But remember, you 
also have to get back down safely . 

1 6K protected tape . . $ 1 9 . 95 
32K protected disk.. $19. 95 



PACKER 



By Hogue 6 Konyu from Big Five 
Six astronauts are stranded on a desolate 
planet. You must undock from your command 
module and maneuver your rescue shuttle 
through the asteroid field to save them. You 
can only save one at a time, and each landing 
burns away parts of your landing sites. 
Order this realtime action game now or live 
with the astronauts' pitiful screams forever. 

16K tape. ..$15.95 32K disk. . .$19. 95 




From Cottage Software 

Packer's five commands allow tremendous con 
trol over the readability and efficiency of 
your BASIC programs. Specify "PACK" and 
the program will compress text into multiple 
statement lines. This really speeds up stor 
age, load, and execution time. It can reduce 
the memory requirement by as much as 33% 
while saving disk or tape space, too. 

Also included are four handy utilities: 
"MOVE" lets you relocate program lines, "RE 
NUMB" allows program renumbering, 

"SHORT" deletes unnecessary words and 
REMarks. and "UNPACK" separates multi- 
statement lines to ease editing. 

16K, 32K 6 48K tape... $29. 95 



From Med Systems 

A nightmare of an adventure in graphically 
depicted three dimensions. Corridors stretch 
toward infinity right on your TRS 80 screen 
as you search this mate for treasures. If you 
get the feeling you're not alone, it's because 
you're not! You use the arrow keys, plus 
two-word commands to move, manipulate ob 
jects and avoid the many pitfalls (pun intend- 
ed) that await you in Labyrinth. 

16K Tape (May be tranferred to 32K disk) 
$14.95 




ATERM 
1.4 



THE PROGRAM STORE 
Franchises Available 



By Tom Stibolt from Acorn 

Allows your modem equipped TRS-80 I /III to 

be used as a full duplex, ASCII terminal. 

Fully compatible with both the Radio Shack 

RS-232 C board and the Lynx Modem. Sup 

ports lowercase (if installed) and parallel 

lineprinters. 

With ATERM 1.4, you have access to the en 
tire 128 ASCII codes as well as several local 
control sequences. And as a true duplex sys 
tern, you can type at the same time material is 
being received. Order ATERM and start com 
municating with the world. 

16K tape (disk compatible) ... $19.95 



Prices Subiecl lo Change 



^ THE PROGRAM STORE - Pept E 10 Box9o09- 4200 Wisconsin Ave, NW ♦ Washington, P.C. 20016 



Item 



Price 



Postage SI .00 
Total 



DCHECK DVISA 

D MASTERCARD MC Bank #. 



name 
addr 
city 



state zip 



J3ajjj_ _________ Exp J 



■See List of Advertisers on page 386 
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UTILITY 



Programming intelligence into your TRS-80. 



Emterm 




Photo 1 Lynx Telephone Linkage System 







Program Listing 




4590 


00100 


ORG 4590H 




4590 CD5A4B 


00110 
00120 


RELSRT: CALL SCHTCO 


; CLEAR SCREE 


4593 21F846 
ESTION 


00130 


RELCON: LD HL,MSG1A 


;NEW ADDR QU 


4 596 CDA728 
4599 21D946 
SAVE POINTER 


00140 
00150 


CALL 28A7H 
LD HL,MSHD 


;HL=MS ADDR 

Program continues 



Jettery A. Mills 
Emtrol Systems, Inc 
123 Locust Street 
Lancaster. PA 17602 

If you have been thinking of using your 
TRS-80 as an intelligent terminal, the pro- 
gram presented here will interest you. It 
was written to support the Lynx telephone 
linkage system and will also work with a 
Radio Shack RS232 interface. Features in 
elude: relocation, message handling, Basic 
transmission and reception, software-con- 
trolled UART programming, intelligent ter- 
minal operation, and return to Basic capa- 
bility. 

Program Operation 

Most Emterm commands are entered in 
response to a menu display or a prompt on 
the CRT. Some commands are always ac- 
tive, and can be entered at any time. The 
following is a complete list of Emterm com- 
mands and actions: 

Store Message (S)-Causes display of 
mini-menu: 
Store Message (S) 
Erase Message (E). 

S-Enables storage of up to 1039 key- 
board characters in the temporary buf- 
fer. 

E- Erases the temporary buffer. 
Transparent commands — Shift t 
causes a return to the monitor menu, 
Shift O causes a return to the mini- 
menu. 

Receive Basic (R)-Causes display of: 
"Receiving Program." and a blinking 
asterisk after the AAA sync character 
is received. 

Transparent commands — Shift * 
causes a return to the monitor menu 
Transmit Basic (X)-Causes display of the 
mini-menu: 
Transmit Basic (T). 
Load Program (L) 
T-Transmit Basic program stored in 
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"Most Emterm commands are entered 
in response to a menu display or prompt. . . " 



the Basic buffer. Sends out a AAA sync 
character before the program. 
L-Prompts the operator to ready the 
cassette and hit L to load. 
Transparent commands-Shift t 
causes a return to the monitor menu. 
Note: This is disabled during Basic 
transmission. 

Terminal (T)-Enables intelligent terminal 
operation. 

Transparent commands-Shift f 
causes a return to the monitor menu. 
Shift — causes text stored in the tem- 
porary message buffer to be transmit- 
ted. Shift — enables/disables auto- 
matic error display. Shift *- 
enables/disables the parallel printer 
operation. Break transmits a string of 
zeros. Clear cleans the screen. Note: 
Upon entry to the terminal mode, the 
automatic error display is enabled and 
the printer output is disabled. 

View/Change UART Configuration-Per- 
mits viewing of the UART configura- 
tion and change under software con- 
trol as follows: 
Parity: Odd/Even/None; 
Word Length: 5/6/7/8; 
Stop Bits: 1 or 2. 

In response to change question, opera- 
tor can enter N or Enter for no, Y for 
yes. Transparent commands-Shift i 
causes a return to the monitor menu. 

Back to Basic (B)-Causes a return to 
Level II Basic. 

Program Details 

The program consists of seven routines, 
with the following functions: 

• Relocator Routine-When first loaded, 
the program occupies memory locations 
470FH to 4E34H. A relocation offset is de- 
termined by subtracting 470FH from the 
new starting address entered by the user. 
The resulting value is added to the address 
bytes of all instructions that must be modi- 
fied for relocation. When this change is 
completed, the modified code is transferred 
to the new area of memory, and program ex- 
ecution begins at the new starting address. 

• Store Message Routine-This reserves 
1039 bytes of memory below the main pro- 
gram for a message storage buffer. This 
area is initialized to all zeros on program 
start-up. When the message storage rou- 
tine is executed, the buffer is scanned for a 
zero byte to indicate free storage area. Any 
stored text is displayed in the process. If 
space exists for additional message text, 
the cursor stops and text may be entered. If 
the end of the buffer is reached at any time, 
a full-buffer message is displayed. 

• Transmit Message Routine-This rou- 
tine causes a scan of the message buffer 
for a zero byte. All text encountered during 



Program continued 










1 


459C 0604 


00160 




LD 


B,04H 


;B=ADDR DIG I 


T COUNT 












459E CD2B00 


00170 


WFKE: 


CALL 


002BH 


;SCAN KEYBOA 


RD 












45A1 B7 


00180 




OR 


A 




45A2 28FA 


00190 




JR 


Z,WFKE 


;WAIT FOR EN 


TRY 












45A4 FE08 


00200 




CP 


08H 


; BACKSPACE E 


NTERED? 












45A6 200E 


00210 




JR 


NZ,CFHD 


;IF NOT,CHEC 


K HEX ENTRY 












45A8 3E04 


00220 




LD 


A,04H 


; COMPLETE AD 


DR ENTERED? 












45AA B8 


00230 




CP 


B 




45AB 28F1 


00240 




JR 


Z,WFKE 


;IF NOT, WAI 


T FOR MORE 












45AD 04 


00250 


INCB: 


INC 


B 


; ADJUST DIGI 


T COUNT 












45AE 3E08 


00260 




LD 


A f 08H 


; DELETE LAST 


ON CRT 












45B0 CD3300 


00270 




CALL 


0033H 




45B3 2B 


00280 




DEC 


HL 


; ADJUST ADDR 


SAVE POINTER 












45B4 18E8 


00290 




JR 


WFKE 


; CONTINUE KE 


Y BOARD SCAN 












45B6 FE30 


00300 


CFHD: 


CP 


30H 


; VALID HEX E 


NTRY? 












45B8 3F 


00310 




CCF 






45B9 D2CE45 


00320 




JP 


NC, BADNUM 


;IF NOT, DON 


•T ACCEPT 












45BC FE3A 


00330 




CP 


3 AH 


; CHECK FOR 


-9 ENTRY 












45BE 3F 


00340 




CCF 






45BF D2D945 


00350 




JP 


NC,GZTN 


;SAVE 0-9 EN 


TRY 












45C2 FE41 


00360 




CP 


41H 


; CHECK FOR I 


LLEGAL ENTRY 












45C4 3F 


00370 




CCF 






45C5 D2CE45 


00380 




JP 


NC, BADNUM 


;BAD ENTRY, 


DON'T ACCEPT 












45C8 FE47 


00390 




CP 


47H 


; CHECK FOR A 


-F ENTRY 












45CA 3F 


00400 




CCF 






45CB D2D045 


00410 




JP 


NC,GATF 


;SAVE A-F EN 


TRY 












45CE 18CE 


00420 


BADNUM: 


JR 


WFKE 


; CONTINUE SC 


ANNING KEYS 












45D0 CD3300 


00430 


GATF: 


CALL 


0033H 


; DISPLAY A-F 


ADDR DIGIT 












45D3 E60F 


00440 




AND 


BFH 


;A-F ASCII T 


HEX CONV 












45D5 C609 


00450 




ADD 


A,09H 




45D7 1805 


00460 




JR 


SAVEHN 


;SAVE HEX RE 


SULT 












45D9 CD3300 


00470 


GZTN: 


CALL 


0033H 


;DISPLAY 0-9 


ADDR DIGIT 












45DC E60F 


00480 




AND 


BFH 


;0-9 ASCII T 


HEX CONV 












45DE 77 


00490 


SAVEHN 


LD 


(HL) ,A 


;SAVE HEX RE 


SULT 












45DF 23 


00500 




INC 


HL 


;INC ADDR SA 


VE POINTER 












45E0 10BC 


00510 




DJNZ 


WFKE 


;GET REST OF 


NEW ADDR 












45E2 CD2B00 


00520 


WFEK: 


CALL 


002BH 


;SCAN KEYS 


45E5 B7 


00530 




OR 


A 




45E6 28FA 


00540 




JR 


Z,WFEK 


;WAIT FOR EN 


TRY 












45E8 FE0D 


00550 




CP 


0DH 


;CR ENTERED? 


45EA 2806 


00560 




JR 


Z,PHN 


;IF SO, PACK 


HEX NIBBLES 












45EC FE08 


00570 




CP 


08H 


.•BACKSPACE E 


NTERED? 












45EE 20F2 


00580 




JR 


NZ,WFEK 


;IF NOT, SCA 

Program continues 
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"A full buffer message is displayed 
after the last character is transmitted. 



the scan is sent to the UART for transmis- 
sion. If the entire buffer is full, a full-buffer 
message is displayed after the last charac- 
ter is transmitted. 

• Basic Transmission Routine-Basic 
programs are stored in a compressed code 
format, starting at 42E9H. Programs can be 
entered from the keyboard in Level II Basic 
or from cassette tape. This routine simply 
dumps the Basic buffer, starting at 42E9H. 
and continues until the end of the program, 
indicated by three zeros in sequence. A 
three A sync character is sent out for the 
receiving TRS-80 just before program trans- 
mission begins. 

• Basic Reception Routine-This routine 
monitors the UART for a three A sync char- 
acter. Incoming program bytes are stored in 
the Basic buffer starting at 42E9H. Three 
zeros in sequence indicate the end of the 
program. 

• Terminal Routine-This routine con- 
trols UART operation. When a character 
becomes available, the UART receive buffer 
is read and the character is transferred to 
the display. When you make a keyboard en- 
try, the UART transmit buffer is polled until 
empty, at which time the keyboard entry is 
transmitted. 

• View/Change UART Configuration 
Routine-During program start-up hardware 
switches which contain UART program- 
ming data are read and stored in memory. 
Each time the UART is reconfigured, it is 
from this byte in memory that the configura- 
tion information is taken. The View/Change 
routine allows the user to read and modify 
this location under software control. ■ 

Emterm is available on cassette from Em- 
trol Systems, Inc. 




COMPUTER SHOWS 



SECOND ANNUAL 

NJ MICROCOMPUTER 

SHOW AND FLEAMARKET 1981 

NEWARK. NEW JERSEY 
Sat Oct 24 q Sun Oct. 25 
10-5:30 PM °* 10-3:00 PM 
HOLIDAY INN (NORTH) 
NJ Turnpike • Exit 14 
iTake Route 1-9 Service Road ■ Follow Signsi 
REGISTRATION S5 00 - 
FLEAMARKET ONLY S3 00 
FleamarKet Permits S5 Spot 
(Includes Admission) 
Commercial Exhibits»User Groups»Fieamarke t 
SECOND ANNUAL 

NATIONAL "80" MICROCOMPUTER 
SHOW (FOR TRS-80* USERS) 

April 29. 30, May 1, 1982 

NEW YORK STATLER HOTEL 

NEW YORK CITY 

1 00 Exhibit Booths • Speakers • User Groups 
•TRS 80 is a T'adematk at Tandy Corporation 

For Regisfation. Exhibitor or Fleamaiket 

Information Contact 

KENGORE CORPORATION 

3001 Route 27 • Franklin Park NJ 08823 

(201)297-2526 ^23C 



Program continued 










N KEYS 










45F0 18BB 


00590 


JR 


INCB 


; DELETE LAST 


, GET ANOTHER 










45F2 21D946 


00600 PHN: 


LD 


HL,MSHD 


;SET UP ADDR 


POINTER 










45F5 AF 


00610 


XOR 


A 


; CLEAR ACC 


45F6 ED6F 


00620 


RLD 




;XCHANGE NIB 


BLES (HL)OACC 








45F8 7E 


00630 


LD 


A,(HL) 


;GET MS ADDR 


NIBBLE 










45F9 23 


00640 


INC 


HL 


;INC ADDR PO 


INTER 










45FA B6 


00650 


OR 


(HL) 


;PACK MS ADD 


R BYTE 










45FB 32D946 


00660 


LD 


(MSHD) ,A 


;SAVE MS ADD 


R BYTE 










45FE 23 


00670 


INC 


HL 


;INC ADDR PO 


INTER 










45FF AF 


00680 


XOR 


A 


; CLEAR ACC 


4600 ED6F 


00690 


RLD 




;XCHANGE NIB 


BLES (HL)OACC 








4602 7E 


00700 


LD 


A,(HL) 


;GET LS ADDR 


NIBBLE 










4603 23 


00710 


INC 


HL 


;INC ADDR PO 


INTER 










4604 B6 


00720 


OR 


(HL) 


;PACK LS ADD 


R BYTE 










4605 32DA46 


00730 


LD 


(MSHD+1) ,A 


;SAVE LS ADD 


R BYTE 










4608 21D946 


00740 


LD 


HL,MSHD 


;SET UP ADDR 


POINTER 










460B 7E 


00750 


LD 


A,(HL) 


;NEW ADDR > 


470F? 










460C FE47 


00760 


CP 


47H 




460E 3F 


00770 


CCF 






460F D2DF46 


00780 


JP 


NC , ERRORA 


; ERROR, MS A 


DDR BYTE <47 










4612 2802 


00790 


JR 


Z, CLSBS 


;MS=47, CHEC 


K LS BYTE 










4614 180C 


00800 


JR 


CUE 


;NEW ADDR < 


F8DA? 










4616 23 


00810 CLSBS: 


INC 


HL 


;INC ADDR PO 


INTER 










4617 7E 


00820 


LD 


A, (HL) 


;GET LS ADDR 


BYTE 










4618 FE0F 


00830 


CP 


0FH 


;>0F? 


461A 3F 


00840 


CCF 






461B 2B 


00850 


DEC 


HL 


;DEC ADDR PO 


INTER 










461C DA3546 


00860 


JP 


C, COFST 


;IF LS ADDR 


OK, GET OFFSET 








461F C3DF46 


00870 


JP 


ERRORA 


;IF LS ADDR 


BAD, ERROR 










4622 FEF8 


00880 CUE: 


CP 


0F8H 


; CHECK HIGH 


ADDR 










4624 3F 


00890 


CCF 






4625 2805 


00900 


JR 


Z,CLSB 


;IF MS OK, C 


HECK LS BYTE 










4627 DADF46 


00910 


JP 


C , ERRORA 


;IF MS BAD, 


ERROR 










462A 1809 


00920 


JR 


COFST 


; COMPUTE OFF 


SET 










462C 23 


00930 CLSB: 


INC 


HL 


;INC ADDR PO 


INTER 










462D 7E 


00940 


LD 


A,(HL) 


;GET LS ADDR 


BYTE 










462E FEDB 


00950 


CP 


0DBH 


; CHECK LS BY 


TE 










4630 3F 


00960 


CCF 






4631 DADF46 
OR 


00970 


JP 


C , ERRORA 


;IF BAD, ERR 


4634 2B 

INTER 


00980 


DEC 


HL 


;DEC ADDR PO 


4635 56 


00990 COFST: 


LD 


D,(HL) 


; COMPUTE OFF 


SET BETWEEN 








Program continues 
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Program continued 

4636 23 

D OLD ADDR 

4637 5E 

4638 AF 

4639 210F47 
DR 

463C EB 
463D ED52 
TRACTION 
463P 22DD46 
4642 210P47 
POINTER 

4645 7E 
BYTE 

4646 PE21 

P CODES WITH 
4648 2829 
MUST BE 
464A FEU 
ND JUMP TO 
464C 2825 
ROUTINE WHEN 
464E FE32 
4650 2821 
4652 PE3A 
4654 281D 
4656 PECD 
4658 200B 
465A 23 
INTER 
465B 7E 

BYTE 
46 5C FECD 
465E 2803 
ADDR POINTER 

4660 2B 
INTER 

4661 1810 
ON ROUTINE 

4663 2B 
INTER 

4664 7B 
BYTE 

4665 FECA 
4667 280A 
CATE 

4669 FEC3 
466B 2806 
CATE 

466D FEC4 
466F 2802 
CATE 

4671 182A 
LOCATING? 

4673 23 
INTER 

4674 23 
INTER 

4675 7E 
BYTE 

4676 FE43 
>43 

4678 3F 

4679 D28946 
CHECK NEXT 
467C E6F0 
NIBBLE 
467E FE40 
OT=4X 

4680 2802 
CATE 

4682 1805 
BYTE 
4684 CD8C46 



01000 



01060 
01070 



01200 

01210 
01220 



01290 
01300 

01310 
01320 



01380 
01390 



INC 



01010 LD 

01020 XOR 

01030 LD 

01040 EX 

01050 SBC 



LD 
LD 



01080 EMB: LD 

01090 CP 

01100 JR 

01110 CP 

01120 JR 

01130 CP 

01140 JR 

01150 CP 

01160 JR 

01170 CP 

01180 JR 

01190 INC 



LD 



CP 

JR 



01230 DEC 

01240 JR 

01250 NOC: DEC 

01260 LD 

01270 TFCA: CP 

01280 JR 



CP 

JR 



CP 
JR 



01330 JR 

01340 IBP1: INC 

01350 INC 

01360 LD 

01370 CP 



CCF 
JP 



01400 AND 

01410 CP 

01420 JR 

01430 JR 

01440 CSFADR: CALL 



HL 

E, (HL) 

A 

HL,470FH 

DE,HL 

HL,DE 

(OFFSET) ,HL 

HL,470FH 

A,(HL) 

21H 

Z f IBPl 

11H 

Z f IBPl 

32H 

Z,IBPl 

3 AH 

Z,IBP1 

0CDH 

NZ,TFCA 

HL 

A, (HL) 

0CDH 
Z,NOC 

HL 

IBP1 

HL 

A,(HL) 

0CAH 
Z,IBP1 

0C3H 
Z,IBP1 

0C4H 
Z,IBP1 

IBP2 

HL 

HL" 

A,(HL) 

43H 

NC,CNB 

0F0H 

40H 

Z,CSFADR 

CNB 

SFADR 



;NEW ADDR AN 



; CLEAR ACC 
j LOAD OLD AD 



; PERFORM SUB 

;SAVE OFFSET 
;SET UP ADDR 

;GET PROGRAM 

; CHECK FOR O 

;ADDRS THAT 

.•MODIFIED, A 

; RELOCATION 

; FOUND 



; INC ADDR PO 

;GET PROGRAM 

; =CD? 

;IF SO, ADJ 

;DEC ADDR PO 

;TO RELOCATI 

;DEC ADDR PO 

;GET PROGRAM 

; =CA? 

;IF SO, RELO 

;=C3? 

;IF SO, RELO 

; «C4? 

;IF SO, RELO 

; FINISHED RE 
;INC ADDR PO 
;INC ADDR PO 
;GET MS ADDR 
; RELOCATE IF 

; OTHERWISE, 

; ISOLATE MS 

; IGNORE IF N 

;IF=4X, RELO 

; CHECK NEXT 

;CALL RELOCA 
Program continues 




TEACH YOUR 
CHILDREN 

Learning lo count money by Malcolm Nygren 



A three-program learning system that teaches 
the important skill of counting money. 

1. Counting Coins — Instruction and drill in 
counting pennies, nickels, dimes and 
quarters. 

2. Shopping Trip— Buy goods in various 
stores; count out the payments and earn 
"purple stamps" for a right answer. Three 
speed levels. 

3. Check-Out — Run your own checkout 
counter. Learn and practice how to make 
change. 

Learning to count money by Malcolm Nygren 
features superior graphics and is available for 
TRS-80 Model I— Level II— I6K on cassette 
only. Shipped postpaid by first -class mail 
Each program J©.*5— all three Si9.*5 



ALSO AVAILABLE 

ALPHA— Alphabet recognition lor 

preschoolers 
SIGMA— Addition problems lot 

Grades 1-3 
SIGMA-HX — Addition problems for 
- the younger or slower 
learner 
SPK l. -Spelling practice for 
Grades 2-4 
Available on cauettc only. S5.95 each. Two for SI I 

All four for $30.00. •"* HM 

Mercer System* inc. 

87 Scooter Lane 

HlcktvUle, N.Y. I ISO 



All rour iut *oj.iAj. 



DpBQO 



BIGGER isn't BETTER 

While -ome magazines run 1*<HI [>ages or 
more. The Alternate Source is just M) 
lo 80 pages long. Bui each and every onr 
of those pages contains u wful. important 
information thai relates to vour 1 KS-80 1 
cir III We ilori'l have millions of sub- 
scribers (or ads) but we do base thou- 
sands of satisfied readers. Have you seen 
a T\S magazine'. 1 ' You owe it to voursell 
to check it out. For $2 you can sample a 
single issue, or you can subscribe lor 6 or 
12 issue periods (SI2 or $18, respec- 
tively). If you don't agree thai it wassor/i 
norlA $2.00. v»e'|| refund sour money! 

It's Finally HERE! 

For lho»e TAS readers who've missed 
our first lew issue*., or for tho-e readers 
who would like a neat, compact set: TAS 
now has their 'hound volume' in stock!! 
Issues 1 ihrough b. all of 1980. in one 
convenient book form. And only $14.95! 
fJrer MX) pages of useful information rind 
applications. Add $2 for shipping costs. 

BTI? WHAT'S BTI? 

\n excellent value for your computer 
budget, that's what! BTI is an alternate 
magazine published by TAS -- a more 
subjective mag. containing editorials on 
subjective issues, software reviews, the 
latest news, and more. Ever-changing & 
growing, lo keep up with our expanding 
industry. W hen 6 issues are just $7. can 
you afford not to check it out?!? 
TAS. 1806 Ada, Lansing. MI 48910 
Ph. (517) 487-3358 or 485-0344 




■ See List ol Advertisers on page 386 
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TRS-80 



SAVE A BUNDLE 

When you buy your 

TRS-80™ equipment! 

Use our loll free number to 

jjj check our price before you buy |2j 

a TRS-80™ ... anywhere! 

TAS« t a tfMtma* o* 1*4 ««h> S«*C» OmfOn o< t#n»» Cofaorftt.on (j 

Don't delay. . .CALL TODAY 



^148 



SALES COMPANY 

1412 WEST FAIRFIELD OR. 

P O BOX I09S PENSACOLA FL 32606 

904/436-6607 

nationwide 1 800-674-1561 



Wages 

Is 
Here 

FOR THE TRS-80 

• Wages MEETS PAYROLLS 

• Wages IS GUARANTEED 

• Wages COST ONLY 

$35.00 FOR MODEL I 
($45.00 FOR MODEL II) 



FROM 
The Maine Software Library 

P.O. Box 194 "a* 

Standish, Maine 04084 

* A Trade name of the Tandy Corp 



01450 
01460 CNB: 



01490 
01500 
01510 



Program continued 
TION SUB 
4687 1814 
LOCATING? 

4689 2B 
INTER 

468A 18B9 01470 
LO NECESSARY 

468C ED5BDD46 01480 SFADR: 
SUBROUTINE 

4690 E5 
OINTER 

4691 46 
TO PRESENT 

4692 2B 
R 

4693 4E 

4694 EB 

4695 09 
ITION 

4696 EB 

4697 El 
DR POINTER 

4698 72 
DR 

4699 2B 
469A 73 
469B 23 
469C C9 
469D 23 
INTER 
469E 3E4E 
LOCATING? 
46A0 BC 
46A1 2802 
DDR BYTE 
46 A3 18A0 
- 4E 

46A5 3E35 
46A7 BD 
■ 35 

46A8 2802 
NEW ADDR 
46AA 1899 
LOCATION 
46AC 211C48 
ECIAL OP CODES 
46AF CD8C46 01720 
46B2 21D94B 01730 
46B5 CD8C46 01740 
46B8 ED5BDD46 01750 
46BC 210P47 01760 
EW STARTING 
46BF 19 01770 
46C0 112507 01780 
N LENGTH 

46C3 19 01790 
EW ENDING ADDR 
46C4 EB 01800 
BLOCK TRANSFER 
46C5 012607 01810 
46C8 21344E 01820 
46CB EDB8 
CK TRANSFER 
46CD 3AD946 
RTING 
46D0 67 
46D1 3ADA46 
46D4 6F 
46D5 22DF40 
46D8 E9 
GRAM 



01520 
01530 
01540 

01550 
01560 

01570 

01580 
01590 
01600 
01610 
01620 IBP2: 

01630 

01640 
01650 

01660 

01670 CLSB1: 
01680 

01690 

01700 

01710 FRB: 



01830 

01840 

01850 
01860 
01870 

01880 
01890 



JR IBP2 

DEC HL 

JR EHB 

LD DE, (OFFSET) 

PUSH HL 

LD B,(HL) 

DEC HL 

LD C,(HL) 

EX DE.HL 

ADD HL,BC 

EX DE,HL 

POP HL 

LD (HL),D 

DEC HL 

LD (HL) f E 

INC HL 

RET 

INC HL 

LD A, 4 EH 

CP H 

JR Z,CLSB1 

JR EMB 

LD A,35H 

CP L 

JR Z,PRB 

JR EMB 

LD HL,481CH 

CALL SFADR 

LD HL,4BD9H 

CALL SFADR 

LD DE, (OFFSET) 

LD HL,470FH 

ADD HL,DE 

LD DE,0725H 

ADD HL,DE 

EX DE,HL 

LD BC,07 26H 

LD HL,4E34H 

LDDR 

LD A,(MSHD) 

LD H f A 

LD A,(MSHD+1) 

LD L,A 

LD (40DFH),HL 

JP (HL) 



AGE 

0002 

46DF 21E846 

GE 

46E2 CDA728 

46E5 C39345 

OCATOR 

46E8 0D 

LE 

46E9 49 

46F6 0D 

46F7 00 



01900 MSHD: DEFS 



01910 OFFSET: 
01920 ERRORA: 

01930 
01940 



DEFS 
LD 

CALL 
JP 



01950 MSG2A: DEFB 



01960 
01970 

01980 



HL,MSG2A 

28A7H 

RELCON 

0DH 

DEFM 'ILLEGAL ENTRY' 
DEFB 0DH 
DEFB 00H 



.•FINISHED RE 
;DEC ADDR PO 
; CHECK IF RE 
;ADDR CHANGE 
;SAVE ADDR P 
•ADD OFFSET 
; PROGRAM ADD 

; PERFORM ADD 

.•RETRIEVE AD 
;LOAD NEW AD 



;INC ADDR PO 
.•FINISHED RE 

; CHECK LSD A 
;IF MS BYTE 

;DONE IF LS 
;IF SO, GO T 
.•CONTINUE RE 
.•RELOCATE SP 



;GET OFFSET 
; DETERMINE N 

;ADDR 

.•LOAD PROGRA 

; DETERMINE N 

;SET UP FOR 



; PERFORM BLO 
;GET NEW STA 
;ADDR 

.•EXECUTE PRO 
;SET UP STOR 

; ERROR MESSA 

;BACK TO REL 
; MESSAGE TAB 

Program continues 
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We took the uncanny realism and the excitement of John Allen's famous PINBALL; added more features, 
more thrills, and more sound to come up with new ASTROBALL Once you load ASTROBALL into your 
TRS-80* model I or III, the arrow keys become flipper buttons, the screen becomes the play board, and you 
become the "Pinball Wizard!" 

A flying saucer bumper hovers at the top, lights flashing, while spaceship bumpers fly across the board 
beneath it. Your ball bounces off the moving spaceships in a most unpredictable fashion, so you must stay 
alert to keep it in play. 

As your ball zings around the board scoring on the bumpers, knock out five of the meteor rollovers and you'll 
get an extra ball. There are double and triple bonus targets to increase your score, too, but be careful— below 
each is a black hole, waiting to swallow your ball! 

ASTROBALL will have all your family and friends lining up for the action and challenge. Five selectable play- 
ing speeds make it suitable for all skill levels. Available on your choice of 16K tape or 32K disk for $19.95. 
Order its companion, PINBALL, for $14.95 on 16K tape, $20.95 on 32K disk. 



ACORN PROGRAMS ARE AVAILABLE AT FINE COMPUTER STORES EVERYWHERE 





By Steven Kearns 

Huge antimatter rocks appear 
on the Tactical Display Screen 
of your spacecraft. You blast 
away but they just explode into 
smaller chunks for you to 
destroy. 

To add to your woes, alien ships 
and time bombs appear periodi- 
cally. If the ships hit you or the 
timers reach zero— BOOM! 
Maneuver, fire lasers, jump to 
hyperspace— anything to avoid 
the onslaught. For one or two 
players, with five skill levels. 

For TRS-80* model I or III. Ver- 
sions for 16K tape or 32K disk 
are $19.95 each. 



TENPINS 



By John Allen 

A realtime action game with 3-D 
graphics and sound, TENPINS 
brings the thrill of champion- 
ship bowling to your TRS-80* 

From one to four players parti- 
cipate, and the program senses 
the skill of each player. Begin- 
ners can simply "roll" the ball 
while more skilled players can 
vary the ball's force, direction, 
and spin. 

TENPINS even has factors to 
simulate imperfections in the 
lanes, adding even more real- 
ism. Available for only $14.95 
for 16K tape version, $20.95 for 
32K disk. 




By Richard Wilkes 

Using your SUPERSCRIPT 
modified SCRIPSIT Word Proc- 
essor and a compatible printer, 
you can now underline, bold- 
face, insert text during printout, 
slash zeros, set type pitch, sub- 
script and, of course, super- 
script! You can even read your 
directory and kill files without 
ever leaving SCRIPSIT 

Includes drivers for popular 
printers and easy instructions. 
Just $50.00 for TRS-80* model I 
(requires 32K, 1 drive, SCRIP- 
SIT/LC) or model III (requires 
32K, 2-drives, SCRIPSIT/LC 
model I version). 




(202) 544-4259 



t-t 



rn 



<^34 



Software Products, Inc. 



634 North Carolina Avenue. S.E.. Washington, DC 20003 



•Trademark of Tandy Corp 

ALL ACORN ENTERTAINMENT 

SOFTWARE SUPPLIED FOR 

TRS-80* MODELS I A /// 

MAIL ORDERS: Include $2.00 shipping & handling 
(DC residents add 6% sales tax). 
CHARGE CARD CUSTOMERS: Call (202) 544-4259 
for fastest service. 



'See List ol AOvert ise'S on page 396 
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HOW LOW 

Can we Go? 

8 Premium 
16K Dynamic rams: 

$19.95! 

These top quality, high speed, low power 
RAMs expand memory in TRS-80* l/ll/lll 
and Color Computers, Heath H89, Apple, 
newer PETs, etc. Backed by one year limited 
warranty. Add $3 for two dip shunts and 
conversion instructions lor TRS-80* I. 

Why pay more. . .we stock the right parts 
at the right price. 

"'•*!.*) is a •adf"an« o> **» Tandy Corporation 

Itrmt Cai tn *Jd '.-• Alio* at lust 5°= shipping, t»c«ss 

riftunrJM VISA / MasterCard ■ ord«fl CS1M41S) M2-WM. 24 hours 

lnc*u<to street Mdmi 'or UPS d*tiv«rv Mm subt«ct to ch«ng« 
■rtthoul noitce 

CompuPro 

BOX 23S5, OAKLAND AJRPORT. CA 946M 



ELECTBONtCS^ 



^75 



COMPILER 
WORKSTATION 

TRS-80 Model I and III 

Your BASIC program development 
could go faster. . . 

EDIT: Full Screen BASIC editor with floating cursor and auto- 
repeat More than 30 commands and (unctions let you var- 
iously find, change, insert, delete, replace, replicate, copy, 
move or position BASIC text at the character, string, line or 
block level Developed In Britain by Southern Software Modi, 
III $40 .00 + 1.50 shipping. 

PACKER: (Cottage Software) Editing tool will unpack, shorten, 
repack, renumber all or part of your BASIC text. The UNPACK 
segment is very useful when preparing BASIC source pro- 
grams lor compilation by ACCEL2. Mod I, III $29.95+1.00 
shipping. 

Then your BASIC program 
could go faster... 

ACCEL2: Compiler for TRS-80 Mod I, Mod III Disk BASIC. New 
functional improvements in place to give more ease-of-use. 
quicker compilation of large programs, better chaining of com- 
piled and non-compiled programs. Size read-out helps you 
monitc code growth during compilation REM N0ARRAV option 
lets you use variable-bound arrays. Professionals note' Com- 
prehensive tnst'uctions show how to organize your compiled 
programs tor resale on tape, ES/F water or disk. No royalties! 
Oeveloped in Britain by Southern Software. Specify Mod I or III. 
$88.95 + $2.00 shipping. 

tsave : Writes compiler output to independent SYSTEM tape. 
$9 95 + $1 00 shipping 

EXEC Command-List Processor for TRS-80 Mod I Prepare, 
execute, pass as many as nine parameters to lists of TRSD0S 
or NEWDOS commands and/or BASIC statements. Simplifies 
repetitive procedures such as power-up sequences, tile set- 
ups, etc Compatible with ACCEL2 compiler disk output 
Developed in Britain by Southern Software. $22.00 + $1.00 
shipping. y 

id Allen Gaidar Software 
M/C. VISA R, Box 11721 Main Port Orfica 
CA add 6% \\ San Francisco, CA 94101 

gg (415) 387-3131 

TRS-80. TRSDOS tm Radio Shack. ES/F tm Exatron 
••••••••••••••••••••••••• 



Program continued 












46F8 4E 


01990 


MSG1A: 


DEFM 


•NEW STARTING ADDRESS?' 


470D 0D 


02000 




DEFB 


0DH 




470E 00 


02010 




DEFB 


00H 




470F 


02020 




ORG 


470FH 






02030 


1 *•**•••• * TERM ! N AL p ROGRAM * * * * ****** 


470F 3EC9 


02040 


EMTERM: 


LD 


A,0C9H 


;LOAD RET IN 


ST OP CODE 












4711 320C40 


02050 




LD 


(400CH) ,A 


; STORE RET I 


NSTRUCTIONS 












4714 320F40 


02060 




LD 


(400FH),A 


;IN LII RAM 


AREA 












4717 321240 


02070 




LD 


(4012H) ,A 




471A 321340 


02080 




LD 


(4013H) ,A 




471D 323540 


02090 




LD 


(4035H),A 




4720 328D40 


02100 




LD 


(408DH),A 




4723 329540 


02110 




LD 


(4095H) ,A 




4726 329840 


02120 




LD 


(4098H) ,A 




4729 21A641 


02130 




LD 


HL f 41A6H 




472C 0615 


02140 




LD 


B,15H 




472E 77 


02150 


LOOP: 


LD 


(HL),A 




472F 23 


02160 




INC 


HL 




4730 23 


02170 




INC 


HL 




4731 23 


02180 




INC 


HL 




4732 10FA 


02190 




DJNZ 


LOOP 


; CONTINUE LO 


ADING RETS 












4734 210043 


02200 




LD 


HL,EMTERM-40FH 


; MESSAGE BUF 


FER START 












4737 AF 


02210 


KOCM: 


XOR 


A 


; CLEAR ACC 


4738 77 


02220 




LD 


(HL) r A 


;ZERO BUFFER 


BYTE 












4739 23 


02230 




INC 


HL 


; POINT TO NE 


XT BYTE 












473A E5 

R 

473B 110F47 


02240 




PUSH 


HL 


;SAVE POINTE 


02250 




LD 


DE, EMTERM 


;SEE IF AT E 


ND OF BUFFER 












473B EB 


02260 




EX 


DE,HL 




473F AF 


02270 




XOR 


A 




4740 ED52 


02280 




SBC 


HL,DE 


.•SUBTRACT PO 


INTER FROM END 










4742 2803 


02290 




JR 


Z,PHL 


; BUFFER FULL 


IF RESULT 












4744 El 


02300 




POP 


HL 


.•RETRIEVE BU 


FFER POINTER 












4745 18F0 


02310 




JR 


KOCM 


;KEEP ZEROIN 


G BUFFER 












4747 El 


02320 


PHL: 


POP 


HL 


•RETRIEVE BU 


FFER POINTER 












4748 D3E8 


02330 




OUT 


(0E8H) ,A 


•RESET UART 


47 4A DBE9 


02340 




IN 


A r (0E9H) 


;READ CONFIG 


SWITCHES 












474C 32CF4D 


02350 




LD 


(HUCR) ,A 


;SAVE SWITCH 


READING 












474F CD9B4B 


02360 




CALL 


SRAPU 


; RESET AND P 


ROGRAN UART 












4752 CD5A4B 

N 

4755 210C4C 


02370 




CALL 


SCHTCO 


; CLEAR SCREE 


02380 




LD 


HL,MSG0 


.•DISPLAY EMT 


ROL MESSAGE 












4758 CDA728 


02390 




CALL 


28A7H 




47 5B 21DD4C 

U 

475B CDA728 


02400 




LD 


HL f MSG20 


.•DISPLAY MEN 


02410 




CALL 


28A7H 




4761 180C 


02420 




JR 


WFMK 


;WAIT FOR MO 


NITOR KEY 












4763 CD5A4B 

N 

4766 CD9B4B 


02430 


MON: 


CALL 


SCHTCO 


.•CLEAR SCREE 


02440 




CALL 


SRAPU 


; RESET AND P 


ROGRAM UART 












4769 21CB4C 


02450 




LD 


HL,MSG10 


; DISPLAY LYN 


X MESSAGE 












476C CDA728 


02460 




CALL 


28A7H 




476F CD2B00 


02470 


WFMK: 


CALL 


002BH 


;SCAN KEYS 


4772 B7 


02480 




OR 


A 




4773 28FA 


02490 




JR 


Z,WFMK 


;WAIT FOR EN 


TRY 












4775 FE53 


02500 




CP 


'S' 


;IF S, TO ST 


ORE MESSAGE 












4777 2822 


02510 




JR 


Z , STORE 


; ROUTINE 


4779 FE52 


02520 




CP 


•R" 


;IF R, TO RE 


CEIVE BASIC 












477B CA8348 


02530 




JP 


Z r REC 


; ROUTINE 


477E FE58 


02540 




CP 


•X' 


;IF X, TO TR 


ANSMIT BASIC 










Program continues 
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Program continued 
4780 CAE948 


02550 


JP 


Z,XMIT 


; ROUTINE 


f IS YOUR MICRO TOO smaii? ^\ 


4783 FE54 


02560 


CP 


i t i 


;IF T, TO TE 


^- ~ -^ 


RMINAL ROUTINE 








THEN /^^^^t ""^$^> 


4785 CAA549 


02570 


JP 


Z,TERM 




juf%*}/\ a * m ~ ^\ 


4788 PE56 


02580 


CP 


i v i 


;IF V, TO VI 


ENLARGE f^PS®^ Jj 


EW/CHANGE UART 








Xx^p8£_ d: ss>^/ 


478A CA4A4A 

ON 

478D FE42 


02590 


JP 


2, VIEW 


»CONFIGURATI 


IT ^ 


02600 


CP 


•B« 


|IF B, RETUR 


^^r WITH 


N TO BASIC 
47 8P CACC06 


02610 


JP 


Z,06CCH 




^ S-100! 


4792 FE1B 02620 
ARROW, RETURN 


CP 


1BH 


;IF SHIFT UP 


Why theS-lOO (IEEE 696 1) Bus Standard? 1 


4794 28CD 


02630 


JR 


Z,MON 


;TO MONITOR 


• U will lurn your MICRO mto a compute' win the 


MENU 










capaDiiity ol a MINI. 


4796 CD944B 


02640 


CALL 


SERROR 


/DISPLAY ERR 




OR MESSAGE 








• You add as much MEMORY as needed (add ' 












2 or more 6<*K RAM boards) 


4799 18D4 


02650 


JR 


WFMK 


{WAIT FOR MO 




NITOR KEY 












479B CD5A4B 
N 


02660 STORE: 


CALL 


SCHTCO 


; CLEAR SCREE 


• Add a board to give you as much HARD or tiop 
Py disc CAPACITY as you need 


479E 21EB4D 


02670 STORE1 


LD 


HL,MSG18 


; DISPLAY MES 




SAGE MENU 










• Add a high density COLOR-GRAPHICS board 


47 Al CDA728 


02680 


CALL 


28A7H 




and much MORE! 


47A4 CD2B00 


02690 GCTS: 


CALL 


002BH 


;SCAN KEYS 




47A7 B7 


02700 


OR 


A 




• These boards /ust PLUG INTO your system- 


47A8 28FA 
TRY 


02710 


JR 


Z,GCTS 


;WAIT FOR EN 


provided you have an S-100 mainframe and 




47AA FE53 


02720 


CP 


•S' 


;IF S, TO ST 




ORE ROUTINE 








• For TRS-80 Pet <4 others j 


47AC 2812 


02730 


JR 


Z,STO 




• From $95 mamlrames Irom S3W. Catalog $t 


47AE FE45 


02740 


CP 


•E 1 


;IF E, TO ER 


(refunded with o'der) 


ASE ROUTINE 










v^ 


47B0 CA6F48 
47B3 FE1B 


02750 
02760 


JP 
CP 


Z,ERA 
1BH 


; IF SHIFT UP 


W& . ^OMPU TER W/ T „ i M 


ARROW, TO 










^i e \cf^ INCORPORATED 

5620 176*1? Street S.W. 


47B5 28AC 


02770 


JR 


Z,MON 


; MONITOR MEN 


U 










Lynnwood Washington 98036 


47B7 FE60 


02780 


CP 


60H 


;IF SHIFT 8, 


(206) 743-4336 


TO MESSAGE 










. formerly HUH 


47B9 28B0 
47BB CD944B 
OR MESSAGE 
47BE 18E4 
ENTRY 


02790 
02800 


JR 
CALL 


Z, STORE 
SERROR 


; MENU 

; DISPLAY ERR 




02810 


JR 


GCTS 


;GET ANOTHER 


Rnifocinn 


47C0 CD5A4B 

N 

47C3 210043 

FFER START 


02820 STO: 


CALL 


SCHTCO 


; CLEAR SCREE 


D\iy vnyn 


02830 


LD 


HL,EMTERM-40FH 


; POINT TO BU 


Investment 


47C6 7E 
BYTE 
47C7 FE00 


02840 
02850 


LD 
CP 


A,(HL) 
00H 


;GET BUFFER 
;IF 0, READY 


Services 


FOR MORE TEXT 










47C9 2833 
47CB CD3300 


02860 
02870 DMB: 


JR 
CALL 


2, CM 

0033H 


; DISPLAY MES 


Send for free catalog 


SAGE CHARACTER 








discussing TRS-80 
programs available for 


47CE CD2B00 
47D1 B7 


02880 
02890 


CALL 
OR 


002BH 
A 


;SCAN KEYS 


47D2 2808 
ONTINUE 


02900 


JR 


Z,CONl 


;NO ENTRY, C 


| evaluating: 


47D4 FE60 
TO MESSAGE 


02910 


CP 


60H 


;IF SHIFT §, 


Options & Futures 


47D6 28C3 


02920 


JR 


Z , STORE 


;MENU 


Stocks & Bonds 


47D8 FE1B 
ARROW, TO 


02930 


CP 


1BH 


;IF SHIFT UP 


Convertible 


47DA 2887 


02940 


JR 


Z,MON 


; MONITOR MEN 


& Other Hedges 


U 

47DC 23 02950 CON1: 

XT BUFFER BYTE 


INC 


HL 


; POINT TO NE 


Portfolio Position 
Tax Positions 


47DD F5 
TER 


02960 


PUSH 


AF 


{SAVE CHARAC 


Market Timing 


47DE E5 
R 


02970 


PUSH 


HL 


>SAVE POINTE 


Write or call: 


47DF 110F47 
ER FULL 


02980 


LD 


DE,EMTERM 


;SEE IF BUFF 


Boyesian ^ n 


47E2 EB 
47E3 AF 


02990 
03000 


EX 

XOR 


DE,HL 
A 


; CLEAR ACC 


Investment 


47E4 ED52 


03010 


SBC 


HL,DE 


; SUBTRACT PO 


Services 


INTER FROM 
47E6 2809 


03020 


JR 


Z,BFM 


;END OF BUFF 


Dept. H3 


ER 










757 Santa Rosita 


47E8 El 
INTER 


03030 


POP 


HL 


; RETRIEVE PO 

Program continues 


Solana Beach, CA 92075 
(714) 755-6225 



*See List ot Advertisers on page 386 
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First in 

Its Class 

and 

Looking 

for 

Work. 



TRS-80 Model I, II, III 

Five multiple regression procedures 
(including stepwise, backward elimination, all 
subset, and ridge), 24 transformations, com- 
prehensive data base manager (with search 
and sort), descriptive statistics, hypothesis 
testing (7 tests), time series analysis (7 
models), random variate generation, discrete 
probability distributions, sampling distribu- 
tions, nonparametrics (5 tests), and com- 
plete documentation, 

Complete package with manual — $125 

To order, send payment plus $2.00 shipping 
and handling to 

Quant Systems *m 

P.O. Box 628 

Charleston, S.C. 29402 

803-571-2825 

S.C. residents add 4% sales tax 

Overseas orders add $7 for shipping 



80" SHROUDS 




Other Models 
'LNW DEMI-CASE..$32.50 

*LNW SHROUD $27.50 

*"80" SHROUD $24.50 

Add $2.50 shipping & handling 
N. Y.S. residents add 7% sales tax 

.-358 

SYRACUSE R&D CENTER 

Box 125, Dewitt, N.Y. 13214 

"Specializing In Electronic Packaging" 



Program continued 










47E9 Fl 


03040 


POP 


AF 


; RETRIEVE CH 


ARACTER 










47EA 7E 


03050 


LD 


A,(HL) 


;GET CHARACT 


ER INTO ACC 










47EB PE00 


03060 


CP 


00H 


;IF 0, CONTI 


NUE ENTERING 










47ED 280F 


03070 


JR 


Z,CM 


; MESSAGE 


47EF 18DA 


03080 


JR 


DMB 


; DISPLAY CHA 


RACTER 










47F1 El 


03090 BFM: 


POP 


HL 


; RETRIEVE PO 


INTER 










47F2 Fl 


03100 


POP 


AF 


; RETRIEVE CH 


ARACTER 










47F3 CD5A4B 
D 


03110 


CALL 


SCHTCO 


; CLEAR SCREE 


47F6 21114E 


03120 


LD 


HL,MSG19 


; DISPLAY BUF 


FER FULL 










47F9 CDA728 


03130 


CALL 


28A7H 


; MESSAGE 


47FC 18A0 


03140 


JR 


ST0RE1 


;TO STORE ME 


SSAGE ROUTINE 










47FE CD2B00 


03150 CM: 


CALL 


002BH 


;SCAN KEYS 


4801 B7 


03160 


OR 


A 




4802 28FA 


03170 


JR 


Z,CM 


;IF NO ENTRY 


, CONTINUE 










4804 FE60 


03180 


CP 


60H 


;IF SHIFT §, 


TO 










4806 2693 


03190 


JR 


Z , STORE 


; MESSAGE MEN 


4808 FE1B 


03200 


CP 


1BH 


;IF SHIFT UP 


ARROW, TO 










480A CA6347 

u 


03210 


JP 


Z,M0N 


.•MONITOR MEN 


480D FE08 


03220 


CP 


08H 


;IF BACKSPAC 


E, DELETE LAST 








480F 2002 


03230 


JR 


NZ,CFIC 




4811 180D 


03240 


JR 


FHL 




4813 FE0D 


03250 CFIC: 


CP 


0DH 


;IF ENTER, P 


LACE IN BUFFER 








4815 2806 


03260 


JR 


Z,OKFB 




4817 FE20 


03270 


CP 


20H 


; IGNORE OTHE 


R CNTRL CHARS 










4819 3F 


03280 


CCF 






481A D2FE47 


03290 


JP 


NC,CM 




481D 77 


03300 OKFB: 


LD 


(HL) ,A 


•PUT ENTRY I 


N BUFFER 










481E 1811 


03310 


JR 


KHL 


; CHECK POSIT 


ION IN BUFFER 










4820 2B 
TER 


03320 FHL: 


DEC 


HL 


; ADJUST POIN 


4821 2B 


03330 


DEC 


HL 




4822 E5 

R 


03340 


PUSH 


HL 


;SAVE POINTE 


4823 2A2040 


03350 


LD 


HL, (4020H) 


;GET CURSOR 


POSITION 










4826 AF 


03360 


XOR 


A 


; CLEAR ACC 


4827 11003C 


03370 


LD 


DE,3C00H 


;SEE IF CURS 


OR AT BEGIN- 










482A ED52 
EEN 


03380 


SBC 


HL,DE 


;NING OF SCR 


482C El 


03390 


POP 


HL 


; RETRIEVE BU 


FFER POINTER 










482D 2891 


03400 


JR 


Z,STO 


;IF AT BEGIN 


NING, CONTINUE 








482F 3E08 


03410 


LD 


A,08H 


;LOAD BACKSP 


ACE INTO ACC 










4831 CD3300 
CHARACTER 


03420 KHL: 


CALL 


0033H 


; DISPLAY ACC 


4834 23 
POINTER 


03430 


INC 


HL 


;INC BUFFER 


4835 3600 
BYTE 


03440 


LD 


(HL) ,00H 


;ZER0 BUFFER 


4837 F5 
TER 


03450 


PUSH 


AF 


;SAVE CHARAC 


4838 E5 
R 


03460 


PUSH 


HL 


;SAVE POINTE 


4839 110F47 
ND OF 


03470 


LD 


DE,EMTERM 


;SEE IF AT E 


483C EB 


03480 


EX 


DE,HL 


; BUFFER 


483D AF 


03490 


XOR 


A 


; CLEAR ACC 


483E ED52 03500 
INTER FROH END 


SBC 


HL,DE 


.•SUBTRACT PO 


4840 28AF 
4842 El 


03510 
03520 


JR 
POP 


Z,BFM 
HL 


;0F BUFFER 
; RETRIEVE PO 


INTER 
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PROFESSIONAL 




INCOME TAX SYSTEM 

FOR TRS-80* MODEL I, II or 

For four successive years! 



Our system, running on the magnificent line of TRS-80 computers, has 
prepared thousands of lightning-fast, error-free tax returns a day in 
accounting offices nationwide. 

Now we introduce! 

SYSTEM THREE! 

SYSTEM THREE is an improved, still more interactive version — Totals W-2's and 
computes FICA overpayment — Includes "QWIKTAX," a fast tax calculator for tax 
planning — Has automated Client Billing — More! 

And, as always— 

1. Full interactive user control, in tax-form language only, line-by-line. 

2. Screen display of full 1040 and all schedules, prior to printout. 

3. All formats IRS and State approved. 

4. Schedule amounts automatically entered on Form 1040. 

5. Your Preparer's Information automatically printed at bottom of Page 2, Form 1040. 

6. Built-in Validation Check tests entire system, hardware and software. 

7. Special printer adjustment routines: Margin Offset, Text Position, etc. 

8. Fills in pre-printed forms (we supply) or use overlays. Your choice. 

9. AUTOMATICALLY COMPUTES: Tax - Earned Income Credit - Maximum/Minimum Tax - Least Tax 
Method — All Percentage of Income Limitations — All Fixed Limitations. 

DOES INCOME AVERAGING IN EIGHT SECONDS! 

10. Full support through the tax season, no charge. 

11. Inexpensive yearly updates in accordance with tax-law changes. 

SYSTEM THREE comes in four modules. You select the ones you need. There is no 
system like it, for any computer, and the cost is literally nothing. In one season, our users 
have paid, out of savings, for the software and the computer. 

35-page Descriptive Manual - $7.50 

(Refundable on order) 

MINIMUM SYSTEM REQUIRED: Model I, 48K, 1 Disk Drive 

CONTRACT SERVICES ASSOCIATES 

706 SOUTH EUCLID • ANAHEIM, CA 92802 • TELEPHONE: (714) 635-4055 



i^10 



"TRS-80 is a trademark of Tandy Corp 
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TRS-80™* Models 1 & 3 

SOFTWARE 

SYSTEM DIAGNOSTIC $99.95 

Tests every component of your TRS-80 
for proper operation: ROM. RAM Video 
Display, Keyboard, Line Printer. Cassette 
Recorder, Disk Drives, RS-232 Interface 
Continuous or monitored operation 

SMART TERMINAL $69.95 

The intelligent telecommunication pro- 
gram that enables your TRS-80 to be 
used as a timesharing terminal Automatic 
transmit won to and from another com- 
puter. Control keys, break key lower 
case, cassette and disk files compatible 
with both Electric Pencil* and ScnpsU 
programs. 

MONITOR #3 $39.95 

Disassembler memory display, mose 
search, venfy. modify, read and write 
machine language cassettes, object code 
relocator, hexadecimal arithmetic 
symbolic disassembly output 

MONITOR #4 $49.95 

Same as Monitor #1 but adds disk file and »e<- 
tor input/output. RS-232 communications 

PENCIL PATCH $19.95 

Fixe* the Electric Pencil' Model 1 ver- 
sion so that it runs on the Model J. (You 
must already own the Model 1 version.) 

GRAPH PRINT $19.95 

Creates formatted print-out on the 
Epson MX-M printer Enhanced print 
modes print quality text surrounded by 
graphic border. Editing, disk save/reload 
text entry, error testing. 

Send S.A.S.E. for FREE Catalog. 

HOWE SOFTWARE 

14 Lexington Road, NewCity, NY 10956 
•'RS-80 is a registered trademark of the 

Radio Sha< k division of Tandy Corp ►*" l(K 



NEW PROGRAMS 
FOR THE TRS-80 

incoPROP 

Income Property Analysis 
for the TRS-80 

INCOPROP: Based upon standardi.-ed methods 
ol property analysis used throughout trie real 
estate industry Generates a 3 page report contain 
mg in annual property operating statement and a 
comprehensive to year cash (to* analysis Con 
lairs IRS la> table to protect alter la» income 
Strewn and investor s I R R 

• Handles 5dill«'€nl meirods ol la« depreciation 

• Handles uo io 3 loans \ J dille'enl type loan* 

• HigMly r•nt^c•. ve trwTiat o**rrils * Sensitivity A-WyS>s 



m SySlem ■•Qjnen-enls »» R»M 


drive and 


Sod *nn inloimauve 'B c*g« u5« s mi 


nuai cover 


ic aspects o' income pioce'iy <nve»> 




•■sneers 










HA) on 


I on8 >r>c'ia>»>eiit' 


JiasOC 


i Ve'Sion available in M8*SIC 




lunm'VJ unQ»i CPlM 


.'feSOO 



Mil 



MAINDEX: An easy to-use program to aid you in 
ine ,nde>'nq ol your dies on disk Can t lino that 
program you wrote last month'' Put /our computer 
to work 1 Find any program ex data tile in you' sys 
tern in seconds 

• a Ma n mo>i ot an you' ot«e' OiS* 5 directories 

• AtptietMltzei li»l ol tiies and j'.es rOi, names u'ans 
used da'es written tracks and rue descriptions 

• Soils Piles Oy ^imf d"s*. a"d cai#gor-es 

• c «it dascripiio^s tan r< seaicned lot *ey words 

• Pimss disk laoes *itn d'Sk name a' c Me names 

• Uses a I \fe adva'-ced and i 




OEPT EM PO BOX M1.N0VAT0. CA »4M7 



Program commute 












4843 Fl 


03530 




POP 


AF 


/RETRIEVE CH 


ARACTER 












4844 18B8 


03540 




JR 


CM 


; CONTINUE EN 


TERING 












4846 CD5A4B 

N 

4849 210043 


03550 


TRA: 


CALL 


SCHTCO 


/CLEAR SCREE 


03560 




LD 


HL,EMTERM-40FH 


/POINT TO BU 


FFER START 












484C 7E 


03570 


CTT: 


LD 


A,(HL) 


/GET BUFFER 


BYTE 












484D FE00 


03580 




CP 


00H 


/IP ZERO, FI 


NISHED 












484F 2815 


03590 




JR 


Z, RUART 




4851 CD3300 


03600 




CALL 


0033H 


/DISPLAY BUF 


FER BYTE 












4854 CDA04B 


03610 




CALL 


STTC 


/TRANSMIT BU 


FFER BYTE 












4857 CD1E4E 


03620 




CALL 


STRMC 


/WAIT FOR EC 


HO 












485A 23 


03630 




INC 


HL 


/INC POINTER 


485B E5 

R 


03640 




PUSH 


HL 


/SAVE POINTE 


485C 110F47 


03650 




LD 


DE,EMTERM 


/SEE IF AT E 


ND OF BUFFER 












485F EB 


03660 




EX 


DE,HL 




4860 AF 


03670 




XOR 


A 


/CLEAR ACC 


4861 ED52 


03680 




SBC 


HL,DE 


/SUBTRACT PO 


INTER FROM END 










4863 El 


03690 




POP 


HL 


/OF BUFFER 


4864 20E6 


03700 




JR 


NZ,CTT 


/IF NOT AT E 


ND, CONTINUE 












4866 CD9B4B 


03710 


RUART: 


CALL 


SRAPU 


/RESET AND P 


ROGRAM UART 












4869 CD5A4B 

N 

486C C3B249 


03720 




CALL 


SCHTCO 


/CLEAR SCREE 


03730 




JP 


TTU 


/BACK TO TER 


MINAL MODE 












486F 210043 


03740 


ERA: 


LD 


HL,EMTERM-40FH 


/POINT TO BU 


FFER START 












4872 3600 


03750 


KEB: 


LD 


(HL) ,00H 


/ZERO BUFFER 


BYTE 












4874 23 


03760 




INC 


HL 


/INC POINTER 


4875 E5 


03770 




PUSH 


HL 


/SEE IF ALL 


THRU BUFFER 












4876 110F47 


03780 




LD 


DE,EMTERM 




4879 EB 


03790 




EX 


DB.HL 




487A AF 


03800 




XOR 


A 


/CLEAR ACC 


487B ED52 


03810 




SBC 


HL,DE 


/SUBTRACT PO 


INTER FROM 












487D El 

ER 

487E 20F2 


03820 




POP 


HL 


/END OF BUFF 


03830 




JR 


NZ,KEB 


/KEEP ZEROIN 


G BUFFER 












4880 C39B47 


03840 




JP 


STORE 


/TO STORE RO 


UTINE 












4883 CD5A4B 

N 

4886 CD2B00 


03850 


REC: 


CALL 


SCHTCO 


/CLEAR SCREE 


03860 


WFAS: 


CALL 


002BH 


/SCAN KEYS 


4889 B7 


03870 




OR 


A 




488A 2807 


03880 




JR 


Z, CSTRC 


/IF NO ENTRY 


, REC CHAR? 












488C FE1B 


03890 




CP 


1BH 


/IF SHIFT UP 


ARROW, TO 












488E 2003 

U 

4890 C36347 


03900 




JR 


NZ, CSTRC 


/MONITOR MEN 


03910 




JP 


MON 




4893 CDD44D 


03920 


CSTRC : 


CALL 


STRBC 


/GET BASIC C 


HARACTER 












4896 FE41 


03930 




CP 


•A' 


/WAIT FOR TH 


REE A'S 












4898 20EC 


03940 




JR 


NZ,WFAS 


/IN SEQUENCE 


489A CDD44D 


03950 




CALL 


STRBC 




489D FE41 


03960 




CP 


•A' 




489F 20E5 


03970 




JR 


NZ,WFAS 




48A1 CDD44D 


03980 




CALL 


STRBC 




48A4 FE41 


03990 




CP 


•A' 




48A6 20DE 


04000 




JR 


NZ,WFAS 




48A8 21BC4D 


04010 




LD 


HL,MSG17 


/DISPLAY REC 


EPTION MESSAGE 










48AB CDA728 


04020 




CALL 


28A7H 




48AE 21E942 


04030 




LD 


HL,42E9H 


/POINT TO ST 

Program continues 
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Program continued 










ART OF BASIC 










48B1 CDD44D 


04040 CRP: 


CALL 


STRBC 


;GET BASIC C 


HARACTER 










48B4 PE00 


04050 


CP 


00H 


;LOOK FOR FI 


RST OF THREE 










48B6 2022 
QUENCE 
48B8 77 


04060 


JR 


NZ f CFMS 


; ZEROS IN SE 


04070 


LD 


(HL) ,A 


;SAVE BASIC 


CHARACTER 










48B9 23 


04080 


INC 


HL 


; POINT TO NE 


XT BUFFER BYTE 








48BA CD2C02 


04090 


CALL 


22CH 


; BLINK ASTER 


ISK 










48BD CDD44D 


04100 


CALL 


STRBC 


•GET CHARACT 


ER 










48C0 FE00 


04110 


CP 


00H 


;LOOK FOR SE 


COND ZERO 










48C2 2016 


04120 


JR 


NZ,CFMS 


;IN SEQUENCE 


48C4 77 


04130 


LD 


(HL),A 


;SAVE BASIC 


CHARACTER 










48C5 23 


04140 


INC 


HL 


; POINT TO NE 


XT BUFFER BYTE 








48C6 CDD44D 


04150 


CALL 


STRBC 


;GET BASIC C 


HARACTER 










48C9 FE00 


04160 


CP 


00H 


;LOOK FOR TH 


IRD ZERO 










48CB 200D 


04170 


JR 


NZ,CFMS 


;IN SEQUENCE 


48CD 77 


04180 


LD 


(HL),A 


;SAVE BASIC 


CHARACTER 










48CE 23 


04190 


INC 


HL 


;INC POINTER 


48CF 7D 


04200 


LD 


A,L 


;SAVE NEW BA 


SIC ENDING 










48D0 32F940 


04210 


LD 


(40F9H) ,A 


; ADDRESS 


48D3 7C 


04220 


LD 


A,H 




48D4 32FA40 


04230 


LD 


(40FAH) f A 




48D7 C36347 


04240 


JP 


MON 


;BACK TO MON 


I TOR MENU 










48DA 77 


04250 CFMS: 


LD 


(HL),A 


;PUT BASIC C 


HARACTER 










48DB 23 


04260 


INC 


HL 


;INTO BUFFER 


48DC CD2B00 


04270 


CALL 


002BH 


;SCAN KEYS 


48DF B7 


04280 


OR 


A 




48E0 28CF 


04290 


JR 


Z,CRP 


;IF NO ENTRY 


, CONTINUE 










48E2 FE1B 


04300 


CP 


1BH 


;IF SHIFT UP 


ARROW, TO 










48E4 CA6347 

U 

48E7 18C8 


04310 


JP 


Z,MON 


; MONITOR MEN 


04320 


JR 


CRP 


; CONTINUE RE 


CEIVING PROG 










48E9 CD5A4B 

N 

48EC 21674D 


04330 XMIT: 


CALL 


SCHTCO 


; CLEAR SCREE 


04340 


LD 


HL,MSG12 


; DISPLAY TRA 


NSMIT MENU 










48EF CDA728 


04350 


CALL 


28A7H 




48F2 CD2B00 


04360 WFTLE: 


CALL 


002BH 


;SCAN KEYS 


48F5 B7 


04370 


OR 


A 




48F6 28FA 


04380 


JR 


Z, WFTLE 


;WAIT FOR EN 


TRY 










48F8 FE4C 


04390 


CP 


'L' 


;IF L, TO LO 


AD CASSETTE 










48FA 280E 


04400 


JR 


Z , LOAD 


; ROUTINE 


48FC FE54 


04410 


CP 


i T i 


;IF T, TO TR 


ANSMIT ROUTINE 








48FE 2863 


04420 


JR 


Z f TRANS 




4900 FE1B 


04430 


CP 


1BH 


;IF SHIFT UP 


ARROW, TO 










4902 CA6347 

U 

4905 CD944B 


04440 


JP 


Z r MON 


; MONITOR MEN 


04450 


CALL 


SERROR 


/DISPLAY ERR 


OR MESSAGE 










4908 18E8 


04460 


JR 


WFTLE 


;WAIT FOR EN 


TRY 










490A 218C4D 


04470 LOAD: 


LD 


HL,MSG13 


; DISPLAY CAS 


SETTE MESSAGE 










490D CDA728 


04480 


CALL 


28A7H 




4910 CD2B00 


04490 WFLK: 


CALL 


002BH 


;SCAN KEYS 


4913 B7 


04500 


OR 


A 




4914 28FA 


04510 


JR 


Z,WFLK 


;WAIT FOR EN 

Program continues 



— $$ DISCOUNT PRICES $$ •••a, 

SCOTCH DISKETTES 

Soft Sector ■ Single Density • 5% Inch 

32% less abrasive than the industry average. 

Soft box of 10 $27.96 

Storage box of 10 $28.95 

3M Disk Drive Cleaning Kit (5'/i inch) $22.95 

Shipping & insurance for each box/kit $1.00 

TRS-80 SOFTWARE 

Designed/tested with TRSDOS & NEWDOS + 
Requires 18 K and one disk drive unless noted. 
Software prices Includes shipping A Insurance. 
Directory Librarian with diskette order $9.00* 
Reads directories of up to 99 diskettes. Main- 
tains a master library o' names and free grans. 
Fast sorts. Supports printer. Req's 48K. 
Typing Teacher with diskette order $4.00* 

Teaches touch typing. Letter, word, and para- 
graph exercises. Monitors typing speed. 
Math Drills with diskette order $2.00' 

Prints personalized practice worksheets for 5 
types of math problems. Ages 5-9. Req's MX80 
Game Pack #1 with diskette order $2.00* 

Exciting arcade games • Duel. Race & Maze 
All four programs with diskette order $14.00* 
"without diskette order • add $5.00 for 1 or more 
EPSON MX80 PRINTER 
80 chars/sec ■ 9x9 matrix ■ letter quality 
Epson provides 90-day warranty for MX80 

- Regular tractor model w/TRS80 cable $519.00 

- Frictionmactor model wfTRS80 cable $619.00 

- Shipping & insurance $10.00 

- Friction Feed Adaptor (incl. shipping) $54.95 

PAPER & LABELS 

Special proposal quality paper - pin fed 
Pure white 20 lb. bond with watermark 

• Box of 2300 sheets- 9 Vj x 11 inch $37.00 

- Shipping & insurance for each box $9 00 
Pressure Sensitive Labels 

- Box of 5000 labels - 3Vj x'"-,, inch $19.00 

- Shipping & insurance for each box $4.00 

SUPER SPECIAL PACKAGE 
Everything in this advertisement! 

Diskettes (1 box), cleaning kit, MX80 (w/cable- 
add $100 for MX80FT), all software, paper & 
labels (1 box ea). Includes shipping. $649.00 

JBtm M Visa and Mastercard accepted. 
Michigan residents add sales tax. 

THE COMPUTER ANSWER ^471 
P.O. Box 573 T 
Birmingham, Michigan 48009 
•• (31 3) 642-4338 (Order Phone • 24 hours/day) ■ 




EDU-WARE EAST 
P.O. Box 336 

Maynard, MA. 01754 
617-568-8641 

^477 




MATH-PAK-1: MATHPAK-2: MATH-PAK-3 

Interactive drill programs whore you enter the answers 
digit by digit. |ust like paper and pencil. With user 
selected difficulty levels, carryovers, reducing, simpli- 
fication, pointing off, scoring, games, and more. Used 
by schools everywhere. Order MATH-PAK-1 for Inte- 
gers, MATH PAK-2 for fractions, MATH-PAK-3 for 
decimals. (L2-18K) $14.95 ea. 

HO-R-K-S 
Low cost, single entry accounting system for the home 
or office. With M uaer assigned account codes, auto 
audit trail, search with totals. 32 or 44K, 1 to 4 drives, 
credit and debit summaries with 3 options, up to 9200 
entries. t24.9S/cassette S29.95/dlsc 

INVENTORY + 

Why settle for Juat an Inventory listing? Get aging 
reports with 2 options, reorder, total listings with pur- 
chase dates and amounts, total costs, Items sold, pro- 
fit/loss and more. Use as a stand alone system with 
dally updates, delete, change, and file packing 
routines. (32K - 1 disc minimum) $24.95/caasette 

$29.95/dlsc. 

CASH REGISTER 80 
Use your TRS-80 as a point of sale terminal with 
automatic Inventory lookup, pricing, update, and more. 
Print sales slips with user adjusted formats, end of 
day reports with all cash, charge, and check sales by 
salesperson. CR80 requires INVENTORY-*-, 48K, and 
1 disc minimum (2 drives recommended). 

S24.9Srcassette $2fl.95/disc. 



Maas residents and 5% tax. VISA, M.C., AND PHONE 
ORDERS ACCEPTED. Dealer Inquiries in riled. Over- 
seas orders add 12.00 for air shipment. TRSao is a 
trademark of Tandy Corp. 



vSee List ol Advertisers on page 386 
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FREE 
48-Page 
Catalog 



A new. free 48-page catalog is free 
from Creative Computing and Periph- 
erals Plus To help buyers make intelli- 
gent purchasing decisions, the product 
descriptions are exceptionally compre- 
hensive and include screen photos in the 
software section 

The catalog describes 20 books on pro- 
gramming, games, and educational appli- 
cations; 160 software packages for 
Apple. Atari. TRS-80. PET, CP/M. Tl. Sor- 
cerer and Sol computers; 3 magazines 
[Creative Computing, Microsystems, and 
SYNC), 5 graphics and music peripherals; 
an LP record; board game; 8 T-shirts and 
an eclectic assortment of other products 
for the personal computer user. 

To get your free copy, simply drop a 
card or note to the address below. 



creative computing 

Attn: Becky ^512 
39 East Hanover Avenue 
Morris Plains, NJ 07960 



-80 

SPACE 

RAIDERS 




STARSHIP SIMULATOR 

and 

COMBAT GAME 

Real-time action graphics place you at starshlp con- 
trols, displaying continuous 30 motion thru stars! 

Screen and instruments updated 30 times each 
seconed! 

Accurate ceiestial navigation thru galaxy with both 
XYZ and Spherical Coordinates! 

Ultimately realistic, this search and destroy simula- 
tion begins where ordinary games end! 

TRS-80 MODEL 1 LEVEL II 1 6K 

BOSEN ELECTRONICS 

445 E. 800 N. Spanish Fork. UT 84660 

(801)798-9553 

$24.95 ^416 

MasterCard. VISA Check. Money Order. COD. 
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TRY 










4916 FE4C 


04520 


CP 


'L' } 


IF L, TO LO 


AD ROUTINE 










4918 280A 


04530 


JR 


Z,LT 




491A FE1B 


04540 


CP 


1BH ; 


IF SHIFT UP 


ARROW, TO 










491C CA6347 

U 

491F CD944B 


04550 


JP 


Z , MON } 


MONITOR MEN 


04560 


CALL 


SERROR ; 


DISPLAY ERR 


OR MESSAGE 










4922 18EC 


04570 


JR 


WFLK ; 


WAIT FOR EN 


TRY 










4924 CD9302 


04580 LT: 


CALL 


293H j 


TURN ON CAS 


SETTE 










4927 0604 


04590 


LD 


B,04H , 


IGNORE FIRS 


T FOUR BYTES 










4929 CD3502 


04600 GTH: 


CALL 


235H 


GET TAPE CH 


ARACTER 










492C 10FB 


04610 


DJNZ 


GTH 


COMPLETE LO 


OP 










492E 21E942 


04620 


LD 


HL,42E9H 


POINT TO ST 


ART OF BASIC 










4931 CD2B00 


04630 GNC: 


CALL 


002BH 


SCAN KEYS 


4934 B7 


04640 


OR 


A 




4935 280A 


04650 


JR 


Z,CON 


IF NO ENTRY 


, CONTINUE 










4937 FE1B 


04660 


CP 


1BH 


IF SHIFT UP 


ARROW, TO 










4939 2006 

U 

493B CDF801 


04670 


JR 


NZ,CON 


MONITOR MEN 


04680 


CALL 


1F8H 


TURN OFF CA 


SSETTE 










493E C36347 


04690 


JP 


MON 


TO MONITOR 


MENU 










4941 CDA74B 


04700 CON: 


CALL 


STGC 


GET TAPE CH 


ARACTER 










4944 A7 


04710 


AND 


A 


•1ST IN SE 


QUENCE? 










4945 20EA 


04720 


JR 


NZ,GNC 


•GET NEXT CH 


ARACTER 










4947 CD2C02 


04730 


CALL 


22CH 


;ZERO, BLINK 


ASTERISK 










494A CDA74B 


04740 


CALL 


STGC 


;GET TAPE CH 


ARACTER 










494D A7 


04750 


AND 


A 


•2ND IN SE 


QUENCE? 










494E 20E1 


04760 


JR 


NZ,GNC 


;GET NEXT CH 


ARACTER 










4950 CDA74B 


04770 


CALL 


STGC 


•GET TAPE CH 


ARACTER 










4953 A7 


04780 


AND 


A 


•3RD IN SE 


QUENCE? 










4954 20DB 


04790 


JR 


NZ,GNC 


•GET NEXT CH 


ARACTER 










4956 7D 


04800 


LD 


A,L 


SAVE NEW EN 


DING ADDRESS 










4957 32F940 


04810 


LD 


(40F9H) ,A 




495A 7C 


04820 


LD 


A,H 




495B 32FA40 


04830 


LD 


(40FAH) ,A 




495E CDF801 


04840 


CALL 


1F8H 


TURN OFF CA 


SSETTE 










4961 1886 


04850 


JR 


XMIT 


TO TRANSMIT 


MINI MENU 










4963 21AB4D 


04860 TRANS: 


LD 


HL,MSG14 


DISPLAY TRA 


NSMIT MESSAGE 










4966 CDA728 


04870 


CALL 


28A7H 




4969 21E942 


04880 


LD 


HL,42E9H 


•POINT TO ST 


ART OF BASIC 










496C 0603 


04890 


LD 


B,03H 


•SEND THREE 


A'S FOR SYNC 










496E 3E41 


04900 KSA: 


LD 


A, 'A' 




4970 CDAD4B 


04910 


CALL 


STTC 


TRANSMIT CH 


ARACTER 










4973 10F9 
OP 


04920 


DJNZ 


KSA 


COMPLETE LO 


4975 CD2B00 


04930 CFMR: 


CALL 


002BH 


SCAN KEYS 


4978 B7 


04940 


OR 


A 




4979 2805 


04950 


JR 


Z,TRCH 


NO ENTRY, T 


RANSMIT CHAR 










497B FE1B 
ARROW, TO 


04960 


CP 


1BH 


IF SHIFT UP 


497D C36347 
U 


04970 


JP 


MON 


MONITOR MEN 


4980 7E 


04980 TRCH: 


LD 


A,(HL) 


GET BASIC C 
Program continues 
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The Captain 80 Book of 



BASIC 




• Over a dozen famous 
adventures, listed in large easy to read type 
ready to be keyed in. Adventures by Boner, 
Kepner, Powers, Micklus, Forsythe, Greg 
Hassett and others. 

• Includes Temple of the Sun, Dog Star, 
Lost Ship, Spider Mountain, Lost Dutch- 
man's Gold, Thunder Road, Sorcerer's 
Castle, Deadly Dungeon, Atlantean 
Oddysey and others. These adventures 
would cost over $200 is purchased 
individually! 

• Includes a unique Adventure 
Generator program - not available 
anywhere. YES, this program will 
actually write another BASIC 
adventure program, which you 
may then run. Not even the author 
of the generator program knows the out- 
come! This program alone is worth the price of 
the entire book! 

• Includes chapters on what an adventure is, how to 
play adventures, how to write adventures, how to sell 
your adventure, ten adventure program ideas, and 
more! 

• Study the techniques and methods used by the 
masters of adventure program writing. All adventure 
programs listed in this book are in their original form 
and in full length. Although specifically written for 
the TRS-80 Model I and III, these programs are 
adaptable to other computers using Microsoft's 
BASIC. _ 

• Available at your dealer approximately 1^ 
November 15th, 1981. The suggested retail price 
of this book is $19.95. 




Pre-Publication 
SPECIAL $14.95 



I 



^33 



Send To: 80-U.S. Journal 
3838 South Warner Street 

* ti QAcir a i r. > , . Tacoma, Washington 98409 

• I he BASIC Adventure Book was compiled ■ Dl 1 irs . . , . „ , . , 

and edited by Bob Liddil, of The Programmers ■ L lease reservc Co PV (Copies) of the Basic Adventure 

Guild. It measures 8' 2 by 11 inches and will I Book at the P r e-publication price of only $14.95. Payment must 

■ be enclosed with this order. Offer good in the United States 

only. 

Name 



contain approximately 250 pages. 

• To reserve your copy of this unique book, I 
order NOW for only $14.95 and save. This 
special pre-publication offer is good only with 
paid orders until Nov 1st, 1981. 

• ORDER YOURS TODAY! 



Dealer discounts available please inquire 



ed I rod* 



rU ol the Tandv C 



I 
I 
I 
I 
I 
I 



Address 



City. 



-State. 



-Zip 



Visa MC. 



Exp. Date. 



-Signature 



(206) 475-2219 Phone orders accepted for Visa MC only. 

ORDtR ■ HM 



'See List of Advertisers on page 386 
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Now for ■ ~~^^*i^^^F smallln - 
vestment you can ^^^^T have the 

power and accuracy of (ho computer In 

your job costing. We have developed pro- 
grams to run on the Radio Shack TRS-80 
Model II Computer which produce the follow- 
ing reports: 

• Complete Job Cost Reports 

• Job Scheduling 
•Work In Process Report 

• On-line Job Status Inquiry 

• Operation Productivity Report 

• Material Usage Summary 

• Employee Charge Out Summary 

The program prompts the operator through 
every step in plain and simple English. Only a 
few hours of instruction and preparation are 
needed to begin use. It's Ideal for the small 
company with 5 to 50 employees. 

The price is $496.00 for the program and 
complete instructions. A set of sample reports 
are available for $19.95 which is applicable 
toward purchase. 

□mnjSystects 

• 439 
Suite 208 404-455-6549 

2957 N. Dekalb Drive 

Doraville, GA 30340 

or 

P.O. Box 6555 Macon, GA 31208 

912-745-5822 



9 ha; 



ULTRA-Il 



^SUPERBASIC 



r 



sir ^w 

;s of other 1R 
rir price! ^ 

• • 1 



^4241 



exclusive 

has twice the capabilities 
DOS's at one half their 

• * $79.95 

• Absolutely the only NO-HANG DOS 

■ Absolutely the fastest copy - will not 
create partial copies on full disketts 

• Single or double density independence - 
order either 

• Device routing, retains date after 
non power up reboot 

• The only alphabetized directory with 
DATED files 

• Editor/ Assembler with capability of direc- 
tory, kill, copy and source code recovery 
after reboot 

• Multi/Undefeatable auto command 

• Individualized stepping speeds for differ- 
ent drives 

• CONTINUE a basic program afterreboot 

• High speed multidimension SORT built 
into SUPERBASIC"" 

• Erase/Zero arrays with one command - 
No more Redim errors 

• Fastest despacer for Basic programs - 
in ram, no special file needed 

• Global editor and string packer for Basic 
programs 

• Chain basic programs, keeping current 
variable values 

• Enhanced list commands - multi lines 
listed 

• Keyword cross reference and direct entry 
of graphics 

VERNON B. HESTER ^415 
42403 Old Bridge Rd. • Canton, MI 481 
(313) 397-3126 



Please include $1.50 ship./hand Send your 

address and check or MO. Mich. 

residents please include 

4' : sales tax. 
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Program continued 

HARACTER 
4981 FE00 
QUENCE? 
4983 201A 
ANSMIT CHAR 
4985 CDAD4B 
RO 

4988 23 

4989 7E 

SIC CHARACTER 
498A FE00 
QUENCE? 
498C 2011 
ANSMIT CHAR 
498E CDAD4B 
COND ZERO IN 

4991 23 
INC POINTER 

4992 7E 

SIC CHARACTER 

4993 PE00 
IRD ZERO IN 
4995 2008 
RANS CHAR 
4997 CDAD4B 
IRD ZERO IN 
499A C3E948 



04990 

05000 

05010 

05020 
05030 

05040 

05050 

05060 

05070 

05080 

05090 

05100 

05110 

05120 



CP 

JR 

CALL 

INC 
LD 

CP 

JR 

CALL 

INC 

LD 

CP 

JR 

CALL 

JP 



00H 

NZ,CSTTC 

STTC 

HL 
A,(HL) 

00H 

NZ f CSTTC 

STTC 

HL 

A,(HL) 

00H 

NZ,CSTTC 

STTC 

XMIT 



;1ST IN SE 

;IF NO 0, TR 

.•TRANSMIT ZE 

;INC POINTER 
;GET NEXT BA 

; 2ND IN SE 

;IF NO 0, TR 

; TRANSMIT SE 

; SEQUENCE & 

;GET NEXT BA 

;LOOK POR TH 

; SEQUENCE, T 

; TRANSMIT TH 

; SEQUENCE 6 



lis ruin i-iumu 

499D 00 


05130 


NOP 






499E 00 


05140 


NOP 






499P CDAD4B 


05150 CSTTC: 


CALL 


STTC 


; TRANSMIT CH 


AR ROUTINE 










49A2 23 


05160 


INC 


HL 


;INC POINTER 


4 9 A3 18D0 


05170 


JR 


CFMR 


; CHECK FOR M 


ON I TOR RETURN 










49A5 CD5A4B 

N 

49A8 AP 


05180 TERM: 


CALL 


SCHTCO 


; CLEAR SCREE 


05190 


XOR 


A 


; CLEAR ACC 


49A9 32D14D 


05200 


LD 


(ERROR) ,A 


j ZERO ERROR, 


PRINT, CONTRL 








49AC 32D24D 


05210 


LD 


(PRINT) ,A 


;RAM LOCATIO 


NS 










49AP 32D34D 


05220 


LD 


(CONTRL) ,A 




49B2 CD2B00 


05230 TTU: 


CALL 


002BH 


;SCAN KEYS 


49B5 B7 


05240 


OR 


A 




49B6 284A 


05250 


JR 


Z,RFU 


; CHECK FOR R 


ECEIVED CHAR 










49B8 FE1A 


05260 


CP 


1AH 


; CHECK FOR C 


ONTROL CHAR 










49BA 200E 


05270 


JR 


NZ, CFSAT 


;IF NONE, CH 


ECK POR SHIFTS 








49BC 3EFP 


05280 


LD 


A,0FPH 


;L0AD CONTRL 


WITH 0FFH TO 










49BE 32D34D 


05290 


LD 


(CONTRL) ,A 


;NOTE CONTRO 


L CHAR 










49C1 CD2B00 


05300 WFCC: 


CALL 


002BH 


;SCAN KEYS 


49C4 B7 


05310 


OR 


A 




49C5 28FA 


05320 


JR 


Z,WPCC 


;WAIT FOR EN 


TRY 










49C7 C3FF49 


05330 


JP 


NCD 


.•TRANSMIT CH 


ARACTER 










49CA F5 


05340 CFSAT: 


PUSH 


AF 


;SAVE CHAR 


49CB PE60 


05350 


CP 


60H 


;IP SHIFT§, 


SWITCH ERROR 










49CD 200A 


05360 


JR 


NZ, CFSLA 


/DISPLAY STA 


TUS . OTHER- 










49CF 3AD14D 


05370 


LD 


A, (ERROR) 


jWISE CHECK 


FOR SHIFT<- 










49D2 2F 


05380 


CPL 






49D3 32D14D 


05390 


LD 


(ERROR) ,A 




49D6 PI 


05400 


POP 


AF 


; RETRIEVE CH 


ARACTER 










49D7 1829 


05410 


JR 


RPU 


; CHECK POR R 


ECEIVED CHAR 










49D9 PE18 


05420 CFSLA: 


CP 


18H 


; CHECK FOR S 


HIFT<- 










49DB 200A 


05430 


JR 


NZ,GAB 


>IF NOT, GET 


CHAR BACK 










49DD 3AD24D 
T STATUS 


05440 


LD 


A, (PRINT) 


; CHANGE PR IN 


49E0 2P 


05450 


CPL 




Program continues 
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Program continued 

49E1 32D24D 
49E4 Fl 
ARACTER 


05460 
05470 


LD 
POP 


(PRINT) ,A 
AF 


; RETRIEVE CH 


FREE! 


49E5 181B 
ECEIVED CHAR 


05480 


JR 


RFU 


; CHECK FOR R 


A SASE gets you a free pro- 


49E7 Fl 


05490 GAB: 


POP 


AF 


; RETRIEVE CH 


gram listing and a list of our 


ARACTER 
49E8 FE1B 
ARROW, TO 


05500 CFRTM: 


CP 


1BH 


;IF SHIFT UP 


low prices. Here are a few: 


49EA CA6347 

U 


05510 


JP 


Z,MON 


; MONITOR MEN 


AXIOM IMP2 Printer $579 


49ED FE01 


05520 


CP 


01H 


;IF BREAK, T 


IMP2PAA1 With tractor, single or roll feed, .5K but- 


0'S ROUTINE 






| fer, includes full graphics software. 


49EF 283F 
49F1 FE19 
TO TRANSMIT 


05530 
05540 


JR 
CP 


Z , BREAK 
19H 


;IF SHIFT->, 


SEIKO Printer $359 

CP80M 


49F3 CA4648 
TINE 


05550 


JP 


Z,TRA 


; MESSAGE ROU 


PERTEC Drive $325 


49F6 FE1F 


05560 


CP 


1FH 


;IF CLEAR, T 


FD 200 complete "flippy" (with supply 4 case) 


CLEAR SCREEN 








capable of 40 track, double density operation. 


49F8 2005 


05570 


JR 


NZ,NCD 


; ROUTINE 




49FA CD5A4B 

N 


05580 


CALL 


SCHTCO 


; CLEAR SCREE 


Also cassettes, diskettes, 


49FD 1803 


05590 


JR 


RFU 


; CHECK FOR R 


cables, memory, power sup- 


ECEIVED CHAR 










plies and cases 


49FF CDAD4B 
ARACTER 
4A02 CDB84B 


05600 NCD: 


CALL 


STTC 


.•TRANSMIT CH 


Software: auto minder, graph- 


05610 RFU: 


CALL 


STRC 


; CHECK FOR R 


ics monitor, mailbox, talking 


ECEIVED CHAR 








keyboard & more 


4A05 B7 


05620 


OR 


A 






4A06 28AA 
N KEYS 


05630 


JR 


Z,TTU 


;BACK TO SCA 


TERMS: Check, Mastercharge, 


4A08 F5 

ED CHARACTER 


05640 


PUSH 


AF 


;SAVE RECEIV 


Visa or money order 


4A0 9 B9 
AR SENT? 


05650 


CP 


C 


;CHAR REC=CH 


Micro Mnemonics 


4A0A 2802 

IF CNTRL CHAR 


05660 


JR 


Z,SICC 


;IF SO, SEE 


(801)825-9317 


4A0C 1811 


05670 


JR 


TFP 


} CHECK FOR P 


403 W 2250N 


RINT ENABLE 

4A0E FE20 05680 SICC: 

CHARACTER, WAS 


CP 


20H 


;IF CONTROL 


SUNSET, UTAH 84015 .485 




4A10 300D 


05690 


JR 


NC,TFP 


;IT ECHOED? 






4A12 3AD34D 


05700 


LD 


A, (CONTRL) 






") A n A A n 


4A15 B7 


05710 


OR 


A 






/A /A /A /A / 


4A16 2807 
RE IT 


05720 


JR 


Z,TFP 


;IF SO, IGNO 




VA/A/A/M 




4A18 Fl 


05730 


POP 


AF 






iyAyAVAyAm 




4A19 AF 


05740 


XOR 


A 






\ \ \ 




4A1A 32D34D 
L LOCATION 


05750 


LD 


(CONTRL) ,A 


; CLEAR CONTR 


JU XJ U \J \J{ 




4A1D 1893 
N KEYS 


05760 


JR 


TTU 


;BACK TO SCA 


SPRING 


4A1F 3AD24D 05770 TFP: 

ENABLED, PRINT 

4A22 B7 05780 

ARACTER 

4A23 2805 05790 

4A25 Fl 05800 

4A26 32E837 05810 


LD 

OR 

JR 

POP 

LD 


A, (PRINT) 

A 

Z,TDO 
AF 
(37E8H) ,A 


;IF PRINTER 
; INCOMING CH 


PROGRAM 

BOUNCE 2 


•Calculate a spring in two 
minutes 


4A29 F5 
4A2A Fl 
4A2B CD3300 
OMING CHAR 
4A2E 1882 
N KEYS 
4A30 3ACF4D 


05820 

05830 TDO: 
05840 

05850 


PUSH 

POP 

CALL 

JR 


AF 
AF 
0033H 

TTU 


; DISPLAY INC 
;BACK TO SCA 


•Fine tune springs 
•Check existing springs 
•Calculate wire size 
•Calculate rate 
•Indicates spring stability 


05860 BREAK: 


LD 


A,(HUCR) 


;ZERO SERIAL 


•Change number of active coils 
•Written in Basic 


OUTPUT PORT 












4A33 E6FB 

TIME TO 
4 A3 5 D3EA 


05870 


AND 


0FBH 


;FOR A SHORT 


Program resulting from years 


05880 


OUT 


(0EAH) ,A 


; GENERATE BR 


of designing springs 


EAK SIGNAL 
4A37 21FFFF 

NE 


05890 


LD 


HL,0FFFFH 


; DELAY ROUTI 


TRS-80 Model I, Level II, 16K 


4A3A 2B 
L UNTIL 
4A3B 7C 


05900 GDLY: 
05910 


DEC 

LD 


HL 
A,H 


; DECREMENT H 
;ZERO RESULT 


Documentation and printout of 
the program S6.95 

Documentation and cassette of 


4A3C B5 05920 
4A3D 20FB 05930 
4A3F 3ACF4D 05940 
AT. nriTDnT nnnm 


OR 
JR 
LD 


L 

NZ,GDLY 
A, (HUCR) 


; ENABLE SERI 


the program $19.95 


Linear Software Company .400 


txLA UUlrui cKJtK 

4A42 E6F8 


05950 


AND 


0F8H 


Program continues 


9221 Stoneridge AV 
Westminster, CA 92683 | 
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DELTA PRESENTS 

PRICES WITH BYTE 



MODEL II: 

2K Mailing List-Keep track of 2.000 names & 
addresses, retrelve any one in 2 seconds The most 
sophisticated mailer on the market With Zlp-sorring 
mailing label printer $349.95 

DMMU (Disk/Memory Management Utilities) - Read 
write, move and copy ony sector on any disk, or seorch 
a disk for o specific hex or ASCII string Use DiSASSTRS 
to disassemble anything in memory to hlghly-reodoble 
Z-80 mnemonics $34.95 

DCS NU-BASIC- Better fhon the other extended 
BASICS, for much less! Sort & seorch arrays, PEEK & 
POKE read from CRT single-step BASIC, insert i, 
delete lines under program control, create linkable 
BASIC modules which load & execute without closing 
tiles or erasing variables use ON BREAK GOTO to trap 
interrupts better line & string editing, single-line 
duplicate & relocate full type ahead 80X48 
graphics. multi-line functions, much more Must be 
seen to be believed 1 SI 70 

DCS CUSTOM SERVICES-We provide fully custom 
softwore at the industry s most reasonable rates Call 
or write tor details 

MODEL I /HI 

MAGIC -That s what we call our Advanced Graphics 
Instruction Course Learn to draw 3-dimensiona! 
shapes and curves that look hi-res 1 Volume I available 
now for 4K I 16KII&III $9.95 

M0D3M0N -Examine modify dump & load to tape. 

compute JR voiues for hand-assembly 

16KIH $995 

DISASSTRS-Machine code disassembler 16KII or 
III $9.95 

MODEL II DISKS (Box of 10) $39.95 

We Invite submissions from all software authors. 
Highest royalties paid For more 



Information, call or write 



A DEI 



DELTA COMPUTER SYSTEMS 

668 Chenango Street 
Blnghamton, NY 13901 MPT 
(607)722-9593 ^570 513 




Includes controller 
board, mounting 
brackets, cables, 
and power supply 
tor 2 internal drives. Controls up to 4 drives 
which may be any combination of internal or 
external. This controller has been tested for 
compatibility with TRSDOS'. LDOS'. and 
NEWDOS J . Using TRSDOS' you may use 
either Tandon or MPI 40 or 80 track drives. 
With LLX)S ; or NF.WDOS' you may use any 
combination or 5Va" drives. The controller 
supports any mix of 5'/4 - ' drives including 
single or double density . single or double sided, 
35.40. 77 or 80 tracks. 

TERMS: Cashier's Check, VISA, MAS- 
TERCARD, or COD. Personal checks ac- 
cepted, but will require 2-3 weeks to process. 
C.O.D. add 3%. 

To Order, Call (505) 265-5072 

OR Mail order with payment to address below 




JAM Systems. Ltd. 



605V2 San Mateo Blvd., N.E. 
Albuquerque, N.M. 87108 



TRSDOS is a Trademark ot Radio Shack Corporalion 
LOOS is a Trademark of Logical Systems, Inc 
NhWrx)S is a Trademark ol APPARAT 



Program continued 












4A44 F605 


05960 




OR 


05H 




4A46 D3EA 


05970 




OUT 


(0EAH) ,A 




4A48 18B8 


05980 




JR 


RFU 


; CHECK FOR R 


EC CHAR 












4A4A CD5A4B 

N 

4A4D 21404C 

U 

4A50 CDA728 


05990 


VIEW: 


CALL 


SCHTCO 


; CLEAR SCREE 


06000 




LD 


HL,MSG1 


; DISPLAY MEN 


06010 




CALL 


28A7H 




4A53 21CF4D 


06020 




LD 


HL,HUCR 


;READ UART C 


ONTROL LOC 












4A56 CB5E 


06030 




BIT 


3,(HL) 


; CHECK PARIT 


Y & DISPLAY 












4A58 2014 


06040 




JR 


NZ f DISMSG 


;IF ODD, EVE 


N, OR NONE 












4A5A CB7E 


06050 




BIT 


7,(HL) 




4A5C 2008 


06060 




JR 


NZ,EMSG 




4A5E 21554C 


06070 


OMSG: 


LD 


HL,MSG3 


;"ODD" DISPL 


AY 












4A61 CDA728 


06080 




CALL 


28A7H 




4A64 180E 


06090 




JR 


CCMSG1 




4A66 21594C 


06100 


EMSG: 


LD 


HL,MSG4 


;"EVEN" DISP 


LAY 












4A69 CDA728 


06110 




CALL 


28A7H 




4A6C 1806 


06120 




JR 


CCMSG1 




4A6E 214C4C 


06130 


DISMSG: 


LD 


HL,MSG2 


;"NONE" DISP 


LAY 












4A71 CDA728 


06140 




CALL 


28A7H 




4A74 CD6A4B 


06150 


CCMSG1 : 


CALL 


SCMSG 


; CHANGE DESI 


RED? 












4A77 B7 


06160 




OR 


A 




4A78 2838 


06170 




JR 


Z, WLMSG 


;IF NOT, DIS 


PLAY WD LENGTH 










4A7A FEAA 


06180 




CP 


0AAH 


;IF AA, TO M 


ONITOR MENU 












4A7C CA6347 


06190 




JP 


Z,MON 




4A7F 216E4C 


06200 




LD 


HL,MSG6 


; DISPLAY PAR 


ITY CHOICES 












4A82 CDA728 


06210 




CALL 


28A7H 




4A85 CD2B00 


06220 


NPS: 


CALL 


002BH 


;WAIT FOR 0, 


E, OR N 












4A88 B7 


06230 




OR 


A 


;OR SHIFT UP 


ARROW 












4A89 28FA 


06240 




JR 


Z,NPS 




4A8B 21CF4D 


06250 




LD 


HL,HUCR 




4A8E FE4F 


06260 




CP 


'0' 


;IF "0", SET 


ODD 












4A90 2812 


06270 




JR 


Z,OIS 




4A92 FE45 


06280 




CP 


•E' 


;IF "E", SET 


EVEN 












4A94 2814 


06290 




JR 


Z,EIC 




4A96 FE4E 


06300 




CP 


i n i 


;IF "N", SET 


NO PARITY 












4A98 2816 


06310 




JR 


Z,DIC 




4A9A FE1B 


06320 




CP 


1BH 


;IF SHIFT UP 


ARROW, TO 












4A9C CA6347 

U 

4A9F CD944B 


06330 




JP 


Z.MON 


.•MONITOR MEN 


06340 




CALL 


SERROR 


; DISPLAY ERR 


OR MESSAGE 












4AA2 18E1 


06350 




JR 


NPS 


;WAIT FOR AN 


OTHER ENTRY 












4AA4 CBBE 


06360 


OIS: 


RES 


7,(HL) 


;SET UP ODD 


PARITY 












4AA6 CB9E 


06370 




RES 


3,(HL) 




4AA8 1808 


06380 




JR 


WLMSG 


;TO WL DISPL 


AY 












4AAA CBFE 


06390 


EIC: 


SET 


7,(HL) 


rSET UP EVEN 


PARITY 












4AAC CB9E 


06400 




RES 


3,(HL) 




4AAE 1802 


06410 




JR 


WLMSG 


;TO WL DISPL 


AY 












4AB0 CBDE 


06420 


DIC: 


SET 


3,(HL) 


.•DISABLE PAR 


ITY 












4AB2 219B4C 


06430 


WLMSG: 


LD 


HL,MSG8 


; DISPLAY WOR 


D LENGTH 












4AB5 CDA728 


06440 




CALL 


28A7H 




4AB8 3ACF4D 


06450 




LD 


A,(HUCR) 


;READ UART C 


ONTROL LOC 












4 ABB E660 


06460 




AND 


60H 


; ISOLATE WL 


BITS 












4ABD FE00 


06470 




CP 


00H 


;IF 5 BITS, 


DISPLAY 










Program continues 
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'.. this is not only a worthwhile book 
but a great book. My advice is to get it 
and USE it!" - William Barden Jr. 




OTHER 
MYSTERIES 



312 pages 
$29.95 



Get them at your local I JG dealer! 



'It has twelve thousand one-liners 

in it, and every one is great!' 

- Dennis Kitsz. Phone orders (71 4) 946-5805 

TKR-Mba trademark ufTandv. Mil roxufi is trademark of Mil r.»ufl. 



TRS-80 Disk and Other Mysteries is the 
definitive fixit book for disk users. Writen 
by Harvard Pennington it has more than 
130 pages of easy to read, entertaining and 
immensely useful information - find out 
how to recover disk files, the layout of 
information on the disk, memory maps, 
problem solutions . . . the list goes on! 

Many readers have saved days of work 
by recovering files that had been unread- 
able. Now in it.s fourth updated printing, 
TRS-80 Disk and Other Mysteries has 
been getting rave reviews in several mag- 
azines. Yours for only $22.50 (plus $1.50 
shipping, CA residents please add $1.35 
sales tax). 

Microsoft BASIC Decoded and Other 
Mysteries is the complete guide to your 
Level II ROMs. With over seven thousand 
lines of comments and 6 additional chap- 
ters packed with information, this is easily 
the biggest, and best, book about the Level 
II ROMs available. 

Kxploit the full power of Microsoft 
BASIC, with the aid of more than 300 
pages of tested examples, understandable 
explanations and detailed comments. Now 
available in a revised second printing, only 
$29.95 (plus $2.00 shipping, CA residents 
add $1.80 sales tax). 

IJG Computer Services, .^37 
1260 West Foothill Blvd., 
w~- w - Upland, CA 91786 

Please send me a copy of TRS-80 Disk 
and Other Mysteries for $22.50 plus $1.50 
shipping. U 

Please send me a copy of Microsoft BA- 
SIC Decoded and Other Mysteries for 
$29.95 plus $2.00 shipping. □ 
Please send me a copy of The Custom 
TRS-80 and Other Mysteries for $29.95 
plus $2.00 shipping. "Z 
OK, send me all three IJG books for 
$82.40 plus $5.00 shipping. [J 
Overseas add $8.00 per book airmail. 

Name 

Address 

City 

State Zip 

Charge my: 

Z MasterCard Interbank Code 

□ Visa Expiration Date 

Card No 

□ Check enclosed for 

2 Ship COD ($2.00 extra) 

Signature 




*-Si List ot AOnrtismra on pig* 386 
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UNCOMMON 



SCREEN ARTIST — turn your screen into a drawing 
board Create complex screens with simple com- 
mands. Store screens as BASIC statements on tape 
or disk m any of 4 formats, including ultra fast 
packed strings or lines Edit the screens you create 
easily Makes ultra fast graphics a snap Merge 
completed screens with your program. A powerful 
tool, great for schools Specify Tape. Disk. Model I, 
III $17.00 

DISCOMETER — disk drive tachometer for the 
Model I Real time, analog display of rotation speed 
of your drives. Save $ in diagnosing disk problems 
and making simple motor adiustments $1 4.00 

DUPLICATOR — copy virtually any tape with ease 
BASIC, system, or data Includes venty feature 
Model I only. $800 

SUBPACKER — pack machine code m BASIC lines 
or strings. Execute them easily from BASIC Simple 
to use; stunning results Specify Model I, III. 
Tape/Dtsk $900 

LANGUAGE ARTS — reading fluency, cloze 
reading comprehension drills, tachistoscope. In- 
cludes 4 programs A complete program for the 
educator or concerned parent Specify Model I III. 
Tape Disk $80.00 

MIGHTY WORD CANNON - educational driU with a 
touch of tun Create quizzes on any subject Word 
cannon does the rest Specify Tape Disk $9.00 

Tape versions require 16K. Level II 
Disk versions require 32K. 1 drive 

MONEY BACK GUARANTEE 
SEND CHECK/M.O. TO: 

smallsystem 



• 397 



design 



Box 268, New Hartford, CT 06057 




Program continued 






4ABF 2004 


06480 




4AC1 3E35 


06490 




4AC3 1812 


06500 




4AC5 FE20 


06510 


CF7: 


DISPLAY 






4AC7 2004 


06520 




4AC9 3E37 


06530 




4ACB 180 A 


06540 




4ACD PE40 


06550 


CF6: 


DISPLAY 






4ACF 2004 


06560 




4AD1 3E36 


06570 




4AD3 1802 


06580 




4AD5 3E38 


06590 


MB8: 


IT WL 






4AD7 CD3300 


06600 


DIS: 


4ADA CD6A4B 


06610 




LENGTH? 






4ADD B7 


06620 





4ADE 2844 

STOP BITS 
4AE0 FEAA 
ONITOR MENU 
4AE2 CA6347 
4AE5 21AB4C 
D LENGTH 
4AE8 CDA728 
4AEB CD2B00 
LECTION OR 
4AEE 21CF4D 
ONITOR MENU 
4AF1 B7 
4AF2 28P7 
4AF4 FE35 

UP 
4AF6 2828 
4AF8 FE36 

UP 
4AFA 281E 
4AFC FE37 

UP 
4AFE 2814 
4B00 FE38 

UP 
4B02 280A 
4B04 FE1B 

ARROW, TO 
4B06 CA6347 
U 

4B09 CD944B 
OR MESSAGE 
4B0C 18DD 
OTHER ENTRY 
4B0E CBF6 
T WL 

4B10 CBEE 
4B12 1810 
4B14 CBB6 
T WL 

4B16 CBEE 
4B18 180A 
4B1A CBF6 
T WL 

4B1C CBAE 
4B1E 1804 
4B20 CBB6 
T WL 

4B22 CBAE 
4B24 218B4C 
P BIT MESSAGE 
4B27 CDA728 
4B2A 21CF4D 
ONTROL LOC 
4B2D CB66 
P BIT BIT 
4B2F 2007 
4B31 3E31 
PLAY 1 
4B33 CD3300 
4B36 1805 
4B38 3E32 
PLAY 2 

4B3A CD3300 

4B3D CD6A4B 

RED? 



06630 

06640 

06650 
06660 

06670 

066 80 WFWL: 

06690 

06700 
06710 
06720 

06730 
06740 

06750 
06760 

06770 
06780 



06790 
06 800 

06810 

06820 

06830 

06840 EIG: 

06 850 
06860 
06870 SEV: 

06880 
06890 
06900 SIX: 

06910 
06920 
06930 FIV: 

06940 

06 950 SBMSG: 

06960 
06970 

06980 

06990 
07000 

07010 
07020 
07030 TSB: 

07040 

07050 CCMSG2i 



JR 
LD 
JR 
CP 

JR 
LD 
JR 
CP 

JR 
LD 
JR 
LD 

CALL 
CALL 

OR 
JR 

CP 

JP 
LD 

CALL 
CALL 

LD 

OR 
JR 
CP 

JR 
CP 

JR 
CP 

JR 
CP 

JR 
CP 

JP 

CALL 

JR 

SET 

SET 

JR 

RES 

SET 

JR 

SET 

RES 

JR 

RES 

RES 
LD 

CALL 
LD 

BIT 

JR 
LD 

CALL 
JR 

LD 

CALL 
CALL 



NZ,CF7 
A, '5' 
DIS 
20H 

NZ,CF6 
A, '7' 
DIS 
40H 

NZ,MB8 
A, '6' 
DIS 
A f '8' 

0033H 
SCMSG 

A 

Z , SBMSG 

0AAH 

Z,M0N 
HL r MSG9 

28A7H 
002BH 

HL,HUCR 

A 

Z,WFWL 

'5' 

Z,FIV 
'6' 

Z,SIX 
•7' 

Z,SEV 
'8' 

Z,EIG 
1BH 

Z f MON 

SERROR 

WFWL 

6, (HL) 

5,(HL) 

SBMSG 

6,(HL) 

5,(HL) 

SBMSG 

6,{HL) 

5,(HL) 

SBMSG 

6,(HL) 

5,(HL) 

HL,MSG7 

28A7H 
HL,HUCR 

4,(HL) 

NZ,TSB 
A, '1' 

0033H 

CCMSG2 

A,«2« 

0033H 
SCMSG 



;IF 7 BITS, 

;IF 6 BITS, 

; DISPLAY 8 B 

; CHANGE WORD 

;IF NOT SHOW 
;IF AA, TO M 

; DISPLAY WOR 

; CHOICES 
;WAIT FOR SE 

; RETURN TO M 

;IF "5", SET 

;IF "6", SET 

;IF "7", SET 

;IF "8", SET 

;IF SHIFT UP 
.•MONITOR MEN 
; DISPLAY ERR 
;WAIT FOR AN 
;SET UP 8 BI 

;SET UP 7 BI 

;SET UP 6 BI 

;SET UP 5 BI 

; DISPLAY STO 

;READ UART C 
» ISOLATE STO 

;IF "0", DIS 

;IF "1", DIS 

.•CHANGE DESI 
Program continues 
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Program continued 

4B40 B7 07060 
4B41 CA6347 07070 
, TO MON- 

4B44 FEAA 07080 
4B46 CA6347 07090 
4B49 21CF4D 07100 

STOP BITS 
4B4C CB66 07110 

4 OF UART 

4B4E 2805 07120 
ATION 

4B50 CBA6 07130 

4B52 C36347 07140 
ITOR MENU 

4B55 CBE6 07150 

4B57 C36347 07160 
4B5A 3E1C 07170 

N, HOME CURSOR 
4B5C CD3300 07180 
4B5F 3E1F 07190 

4B61 CD3300 07200 
4B64 3E0E 07210 

4B66 CD3300 07220 
4B69 C9 07230 

4B6A 215E4C 07240 
NGE QUESTION 
4B6D CDA728 
4B70 CD2B00 
OR Y, N, 
4B73 B7 
HI FT UP ARROW 
4B74 28FA 
4B76 FE4E 



SB4: 
SCHTCO: 



ACC 

4B78 2811 
4B7A FE0D 
ERO ACC 
4B7C 280D 
4B7E FE59 

FF 
4B80 280C 
4B82 FE1B 

ARROW, ACC-AA 
4B84 280B 
4B86 CD944B 
OR MESSAGE 
4B89 1-8E5 
TRY 

4B8B 3E00 
N-NO 
4B8D C9 
4B8E 3EFF 
N-YES 
4B90 C9 
4B91 3EAA 
N«RETURN TO 
4B93 C9 
U 

4B94 21584D 
TO DISPLAY 
4B97 CDA728 
RY ON CRT 
4B9A C9 
4B9B D3E8 
TO RESET 
4B9D 3ACF4D 

UART 
4BA0 E6F8 
G LOCATION 
4BA2 F605 
4BA4 D3EA 
4BA6 C9 
4BA7 CD3502 
TO GET CHAR 
4BAA 77 
TE TAPE 
4BAB 23 
FER POINTER 
4BAC C9 
4BAD 4F 
TO TRANSMIT 
4BAE DBEA 
N ACC 



07250 
07260 

07270 

07280 
07290 

07300 
07310 

07320 
07330 

07340 
07350 

07360 
07370 



SCMSG: 
WFCA: 



07380 



07390 ZACC: 
SACC: 
RTM: 



07400 
07410 

07420 
07430 



07440 



07450 SERROR: 
07460 



SRAPU: 



07470 
07480 

07490 

07500 

07510 
07520 
07530 
07540 

07550 

07560 

07570 

07 580 STTC: 

07590 WFU; 



STGC: 



OR 
JP 

CP 
JP 

LD 

BIT 

JR 

RES 
JP 

SET 

JP 
I LD 

CALL 

LD 

CALL 

LD 

CALL 

RET 

LD 

CALL 
CALL 

OR 

JR 
CP 

JR 
CP 

JR 
CP 

JR 
CP 

JR 
CALL 

JR 

LD 

RET 
LD 

RET 
LD 

RET 

LD 

CALL 

RET 
OUT 

LD 

AND 

OR 
OUT 
RET 
CALL 

LD 

INC 

RET 
LD 

IN 



A 




Z,MON 


;IF 00 OR AA 


0AAH 

Z,MON 

HL f HUCR 


;ITOR MENU 
; CHANGE # OF 


4,(HL) 


; CHANGE BIT 


Z,SB4 


; CONTROL LOC 


4,(HL) 
MON 


;BACK TO MON 


4,(HL) 
MON 





A,1CH 

0033H 

A,1FH 
0033H 
A,0EH 
0033H 

HL,MSG5 

28A7H 

002BH 



Z r WFCA 
i n i 

Z,ZACC 
0DH 

Z , ZACC 
.yl 

Z,SACC 
1BH 

Z,RTM 
SERROR 

WFCA 

A,00H 



A,0FFH 
A,0AAH 

HL,MSG11 
28A7H 

(0E8H) ,A 

A, (HUCR) 

0F8H 

05H 
(0EAH) ,A 

235H 

(HL),A 

HL 

C,A 

A, (0EAH) 



; CLEAR SCREE 
; SUBROUTINE 



; DISPLAY CHA 

;SCAN KEYS F 
; ENTER, OR S 

»IF N f ZERO 

;IF ENTER, Z 

;IF Y, ACC - 

;IF SHIFT UP 

.•DISPLAY ERR 
;WAIT FOR EN 
;00 ON RETUR 

;FF ON RETUR 

;AA ON RETUR 
; MONITOR MEN 
SUBROUTINE 
; ILLEGAL ENT 

; SUBROUTINE 
;AND PROGRAM 
;FROM HOLDIN 

; SUBROUTINE 
;FROM CASSET 
;AND INC BUF 

; SUBROUTINE 
/CHARACTER I 

Program continues 



• 100 



CdmpuCduea 

COVER YOUR INVESTMENT 



• Wjttfp'OO* * DollO'&O' 




Over 200 conn, writ* lot complete list. 



-«-a cMck »i rntntv o-r r ti 

lnclu« II K 'or poii.g. .no i.M hi 
Ov«fMM Oal«r» nc lixli U 00 POtUf* 

OEALCH INOUINES INVITEO 



f SOFTWARE FOR MODERN PROGRESSIVE SSlSBB \ 

TORSIONAL CONCR E TE BEAM DEBISNl Ssvan bM 
■hap—. , calculation shaat print out m/ all 
♦oraulaa, portinant Info from ACI 31B-77 tor 
'•"•"■ Design closad stirrup* fc spacing and 
additional longitudinal reinforcing. 

MODEL 1 I6K TAPE S39.93 DIBK H4.f9 

BTRU1AP, Analyzes eont. BEAMS and FRAMES. 
Bivas i nnn t, sheer, axial load, and diapl. 

MODEL I 48K, 1-DISK •09.93 MODEL II 999.93 
HATH-PAKi Lat your pocket Coaputer toach you 
anginoarlng aath, high school thru P.E. E**a. 

LINES AMD POINTS TAPE SI4.93 

SEMERAL EOUATI0N8 TAPE 914.93 

MODEL I.leK TAPE •19.99 EA. 

HISCELLANEOUB PR08RAMB 
FREEZER INVENTORVi Kaap track o< food in 
fraaiar by lta», data placsd in freezer, and 
location of freexor. Kaap disk or taps fil«. 
MODEL I IAK...TAPE 919.93 DISK 924.93 
VIDEO CASSETTE MANABEMENTi Kaap track o* your 
recorded aovles. Saarch tor aovie ( titla or 
star), print labala, and lists. Hach. sort. 
MODEL I 32K.1-DI8K DIBK S3*. 93 

NEMOREX DISKETTE (10 ) 3 1/4- 929.93 

HX-lOO PRINTER N/CABLE 9889.93 

OXIDATA HI CHOLINE PRINTER N/CABLE 9999.93 

BHIPPINB It HANDL1NB FOR PRINTERS • 13.00 




UPERIOR 
OFTWARE 



MISSOURI WSIOCKTS 

PLEASE ADD 
M* STATE SAlfS TAX 



Write SSI for information about marketing your 
programs: P.O. Ho. 11676 Kansas City, HO 6*138 



MEMOREX 

FLEXIBLE DISCS 

WE WILL NOT BE UNDER- 
SOLD!! Call Free (800)2354137 

for prices and informatioa Dealer 
inquiries invited and CO.D.'s 
accepted 

k7i* 




PACIFIC ^370 
EXCHANGES 

100 Foothill Blvd 
San Luis Obispo. CA 
93401 In Oil. call 
(800)592-5935 or 
(805)543 1037 



vSee List of Advertisers on page 386 
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MORSE CODE, BAUDOT and ASCII RTTY 


Program continued 










FORTHETRS-80 MODELS 1 and III 


4BB0 CB77 


07600 


BIT 


6, A 


;WAIT FOR EM 


DISASSEMBLED HANDBOOK - VOLUME 4 


PTY TRANSMIT 












4BB2 28FA 


07610 


JR 


Z,WFU 


; BUFFER 


no RS-232C interlace is required 


4BB4 79 


07620 


LD 


A,C 






4BB5 D3EB 


07630 


OUT 


(0EBH) ,A 


; TRANSMIT CH 


Chapt 1 8 to 800 WPM Morse transmit pgm 


ARACTER 










Chapt 2 Adding type ahead capabilities 










Chapt 3 Morse receive decoding program 


4BB7 C9 


07640 


RET 






Chapt 4 Merging + 12 prepared messages 


4BB8 DBEA 


07650 STRC: 


IN 


A, (0EAH) 


.•SUBROUTINE 


Chapt 5 Baudot transmit 60-66-75-100 WPM 


TO RECEIVE 










Chapt 6 Baudot receive lor above speeds 


4BBA 32D04D 


07660 


LD 


(HUSR) ,A 


; CHARACTERS 


Chapt 7 Merging + 22 prepared messages 


PROM UART 










Chapt 8 ASCII transmit program 110 Baud 
Chapt 9 ASCII receive decoding program 


4BBD CB7F 


07670 


BIT 


7, A 


;TEST FOR RE 


Chapt 10 Merging + 22 prepared messages 


C CHAR READY 












4BBF 2820 


07680 


JR 


Z , RETWZ 


; RETURN IF N 


$18 1 US| per copy add $2 shipping 


OT 










[S4.50 overseas airmail ! 


4BC1 DBEB 


07690 


IN 


A, (0EBH) 


;GET CHARACT 


— GERMAN & FRENCH LANGUAGE EDITIONS — 


ER 












4BC3 F5 


07700 


PUSH 


AF 




Morse, Baudot & ASCII on disks $49 


4BC4 3AD14D 


07710 


LD 


A, (ERROR) 


;SEE IF ERRO 


| Vol. 4 required lor instructions) 


R DISPLAY ON 










RICHCRAFT ENGINEERING LTD. 
#1B Wahmeda Industrial Park 


4BC7 B7 07720 
4BC8 2007 07730 
PLAY CHARACTER 


OR 

JR 


A 

NZ, DISDAT 


;IF NOT, DIS 


Chautauqua, New York 14722 ^276 


4BCA 3AD04D 


07740 


LD 


A, (HUSR) 


;GET SAVED U 


COD orders | US only] [ 7 16 1 753-2654 


ART STATUS 












4BCD E63 8 
OR BITS 


07750 


AND 


38H 


; ISOLATE ERR 






4BCF 2012 

, FIND ERROR 

4BD1 Fl 


07760 

07770 DISDAT: 


JR 
POP 


NZ , ERR 

AF 


;IF NON-ZERO 
; RETRIEVE CH 


"DEATHBLOW" 


An kncredibleriew 


ARACTER 
4BD2 E67F 


07780 


AND 


7FH 


; STRIP 8TH B 


SPACE ADUEilTURE 


IT 

4BD4 FE60 


07790 


CP 


60H 


;IF SMALLS, 


From I.D.5. In Basic 


CHANGE TO CAPS 
4BD6 3F 07 800 


CCF 






•'*" * x %V -- *-•• ' : 1 


4BD7 D2DC4B 


07810 


JP 


NC,CFLF 






4BDA CBAF 


07 820 


RES 


5, A 




'V '■ Lmk- * • 11 


4BDC FE0A 


07830 CFLF: 


CP 


0AH 


;IF LINE FEE 


: J 'V*V; mm J 


D, IGNORE 










4BDE 2801 


07840 


JR 


Z, RETWZ 


; RETURN WITH 


ACC * 










i^MM mmmmF** M 


4BE0 C9 


07850 


RET 






■*•!•' VVfcfe*^., •,-•.11 


4BE1 AF 


07 860 RETWZ: 


XOR 


A 


; CLEAR ACC 


4BE2 C9 


07870 


RET 




; RETURN 


4BE3 21D04D 


07 880 ERR: 


LD 


HL,HUSR 


;READ SAVED 


Send Check O 16K~$15.00 


ERROR STATUS 


Op Money a 32K- $17.50 


4BE6 CB6E 


07890 


BIT 


5,(HL) 


;IF OVERRUN, 


Order To: 4BK-$2aDO 
I.D.S. 0AII3~$30.OO 


DISPLAY "O" 
4BE8 C4F74B 
4BEB CB66 


07900 
07910 


CALL 
BIT 


NZ f OE 
4,(HL) 


;IF FRAMING, 


RO. Box 14BB "» s -"° l ""' °" "tJJlV*,, 


DISPLAY "F" 










Dallas. Texas I!!iV N i»i°" '""' * 0D '!.. 

• 365 

'522" DOCUMiNTArtON INCLUOfO ( I.D) Ull 


4BED C4FD4B 


07920 


CALL 


NZ f FE 




4BF0 CB5E 


07930 


BIT 


3r(HL) 


;IF PARITY, 




DISPLAY "P" 
4BF2 C4014C 


07940 


CALL 


NZ , PAR 


;TO DISPLAY 






BAR 

4BF5 180E 


07950 


JR 


DISB 




— Professional — 1 


Real Estate Software 1 


4BF7 3E4F 


07960 OE: 


LD 


A, 'O' 


;LOAD "0" CO 


For APPLE. TBS 80 & PET 1 


DE 










Property Management System 1 


4BF9 CD3300 


07 970 DEM: 


CALL 


0033H 


; DISPLAY CHA 


(32K, 1 Disk Systems, 1 


RACTER 










Feature-, 1 


4BFC C9 


07980 


RET 




; RETURN 


• tenant Information • 5 Digit fipense Accounts H 


4BFD 3E46 


07990 FE: 


LD 


A,'F' 


;LOAD "F" CO 


• late Rem Repo-ts • Bunding Eipense Report ■ 


DE 










| • Yin* Monthly trcome • Vendor f<pen-,e Report 1 










• Handles - • income lax Report 1 
Partial Payments • Aii Reports Can Be Printed 1 


4BFF 18F8 

RACTER 

4C01 3E50 

DE 

4C03 18F4 


08000 
08010 PAR: 


JR 

LD 


DEM 
A, 'P' 


; DISPLAY CHA 
;LOAD "P" CO 




Advance Payments • tasv Oaia fntry 4 Edit 
• P'inis Receipts • Vacancy Report 


Price S275.00 


08020 


JR 


DEM 


; DISPLAY CHA 


Real Estate Analysis Modules: 


RACTER 










(Cassette or Disk) 


4C05 3EAA 


08030 DISB: 


LD 


A,0AAH 


;LOAD BAR CO 


1 1 Home Pu'chase Analysis 


DE 










?i lai Oeierred denanqe 










3l Construction Cosl/Proln 


4C07 CD3300 


08040 


CALL 


0033H 


; DISPLAY CHA 


4) Income Property Cashtlow 
Si APB loan Analysis 


RACTER 










61 Properly Sales Analysis ; 


4C0A 18C5 


08050 


JR 


DISDAT 




' loan Amortization 

^^||,wS35 Per Module 


4C0C 2A 
*'; MESSAGE 


08060 MSG0: 


DEFM 


'*** EMTROL SYSTEMS, INC. ** 


fl I^S *' -srsrssts— 


4C28 0D 


08070 


DEFB 


0DH 




1 iloftware " ""-"";'; *°- ■,V,; S " 1 "" "' 


jTABITE 












4C29 20 
4C3E 0D 


08080 


DEFM 


' *** LYNX TLS ***' 


1 lealty 1 lompany 


08090 


DEFB 


0DH 




1 IhJL^ 


4C3F 00 


08100 


DEFB 


00H 


Program continues 




0ep> M Ulfi t 8th Si Manhattan Beach CA90?6b 
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INTRODUCING: 



SPECTRONICS, INC. 

(A Wholly Owned Subsidiary of Level IV Products) 

- OFFERING - 

The Full TRS-80* Line at Discount Prices, 

and Extended Warranty Coverage 






COLOR COMPUTER 


MOD III COMPUTER 


16K(R) $440 


16K(R) $859 


16K(E) $359 


48K 2-40 drives (R) $2010 


16Kw/ext basic (R) $529 


48K2-40 drives (E) $1859 


16Kw/ext basic (E) $479 


48K2-80 drives (E) $2119 




RS232 interface add $89 



MOD II COMPUTER 

32K(R) $2950 

64K(R) $3375 

Expansion Dr#l(R) $999 
Expansion Dr#l-2-3(E) $695 



NOTE: THE MOD III CAN BE ASSEMBLED WITH UP TO 4 MEG UNFORMATTED FLOPPY DISK STOR- 
AGE CAPACITY (4-80 TRK DOUBLE SIDED DRIVES) - CALL FOR A QUOTE ON THE SYSTEM 
TAILORED TO YOUR EXACT NEEDS. 



PRINTERS 




DR1\ 


fES 


PERIPHERALS 




Line Printer IV (R) 


$849 


COMPLETE RAW 


E.I. OK (R) 


$249 


Line Printer VI (R) 


$986 


40TRKMPI(E) 


$309 $245 


E.I. 16K(R) 


$359 


Daisy Wheel II (R) 


$1679 


80TRK 




E.I.32K(R) 


$469 


C. ITOH Starwriters 


Call 


MPI (E) 


$429 $360 


E.I. 16K(E) 


$305 


Centronics All 


Call 


40/40TRK 




E.I 32K(E) 


$362 


Epson All 


Call 


MPI (E) 


$445 $375 


16K RAM (200MS) 


$39 


AnadexAII 


Call 


8O/8OTRK 
MPI (E) 


$579 $515 







DEALER'S INQUIRIES INVITED, CALL FOR OUR WHOLESALE DEPARTMENT (313) 525-6201 



WARRANTY POLICY 

Items including non-Radio 
Shack components (E) are 
covered by an extended six- 
month parts/labor warranty in 
our tech service center 

Items constructed from Radio 
Shack approved components 
(R) are covered by a 90-day 
parts/labor warranty at any 
Radio Shack store, plus an addi- 
tional 9C days in our tech ser- 
vice center 

-'See List ot Advertisers on page 386 



TERMS OF SALE 



2% Discount allowed on cash 
pre-paid orders. Personal 
checks require two weeks fa 
bank clearance 

Visa. Master Charge and CO D 
orders accepted. Add S1.50 fa 
C.OD.'s. 

Shipping/handling/insurance 
add 15% a S2.50 minimum. 

Prompt shipments from stock 




SPECTRONICS, INC. 

32461 SCHOOLCRAFT ROAD 
LIVONIA, MICHIGAN 48150 

MICHIGAN - (313) 525-6200 
TOLL FREE - 600-521-3305 



'TRADEMARK OF TANDY CORP 
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BLACKJACK PLAYIRS 
A YEARS INCOME IN 4 MONTHS. 

Souc Strategy Tutor* for tha novice I expert alika 
Ui. our Tutor* ( quickly learn how to become A WINNER 
Eom $40 hour. Loom the »*cr»t» of our succo**. Our Tutor* 
will teoch you how to: 

•• MT TOUt MONCY •• 

•• PlAt EACH HAND •• 

** NOT OH tARMO ** 

••MA tU-SINEVS ** 

•••• IIWAH •••• 

Our Tutor* or* not gomes < ' > They or* i«r iou* tool* to 
moke winner* out of you. The author* have spent 7 years 
ploying 4 being winner*. Now *o con you. with the> old 
of our Tutors. Our Tutor* or* bated on the strategies 
developed by lowrence Revere. Moro odvonced strategies 
ort> ovoiloblo coll for >nfo Contultation is available 
for you by mail or phono From 12pm 12am M.S.T 

PKC. I contains 10 task Tutors for Atlantic City, or Novoda 
Rush $25 for 16* Mod I or Mod III. coss. WO tor 32K disk 

Please odd 12 00 for *hlpplng 

•205 
MICRO KLAJAK SYSTEMS INC. 
MOO NORTH ELLEN STREET 
FLAGSTAFF. ARIZONA 44001 
(402) 774-5723 or (402) 774-7541 



EDUCATIONAL 
SOFTWARE 

For TRS-80* Color Computer. PET. Apple II. 



ELEMENTARY 

SCIENCE 

GEOGRAPHY 

ECONOMICS 

FOREIGN LANG. 

GRAMMAR 



MATH 
HISTORY 
ACCOUNTING 
BUSINESS ED. 
FARM RECORDS 
COIN INVENTORY 



Write tor FREE Catalogue 

MICRO LEARNINGWARE ^es 

BOX 2 I 34, N. MANKATO MN S6O0 1 
507-625-2205 



VISA S. MASTER CHARGE ACCEPTED 

»Vr r>,», I S - 'Oyrf ly loi f <1uC<ilion<4i 
Proe.r.tmslisietl .villi us 

Apple is a trademark of Apple Computer Co. 
T1V40 I* a registered trade****** of TANDY CORP 
f« N a trademark, of Commodore Bus. AUcMnev 



f mmm CHEAP CHIPS ARE NO BARGAIN •-»■ 

I BUYING ADD-ON MEMORY? 
I GET THE BEST!!! 

1 lYlB^ory failures cost you lime and money Japanese 16k 
I RAM chips nave a one-to-ien m-servee taikire rain to u S 

chips -trom a study Oy R Anderson Computer Ov . 

£ Hewlett-Packard reported m TUl [canamltt. 4-26-80 

o We otler d 1 16 chips Dy Fuftsu. NEC. Hitachi. Toshiba 
^J ana Mitsubishi for most popular computers and 

< expansion memory boards, including 

< 'Apple *AI TRS-40« -Hs« Pet •Heath H-4f 

2 •Suporbrtln •Eipindortm 'Mai* Otter* 

° 4116 OYNAMC RAMS THEIEST 

o 200nsec Plastic $2370. Cirinic $37.15 

j I50nsec Plastic $30 95 

2 STATIC HAMS 

° 21 14 4S0nsec S3 30 300nsec S3 90 2101 $2 90 

J EFR0MS 1 4 50 nsec std ask lor hi -speed it required) 
,_ 2708 $4 80. 2716 5V+I2V $9 40. 2716 5V $9 70 
5 2732 $18 90 

We'll beat any legitimate price lor comparable chips Hi- 
vosjme users deaws or clubs ask lor Quantity discounts 
SHIPPING 10 $25 $2 10 $50 $1 over $50 FREE 
COO ♦$' 40 

DISCOUNTS ON TOTAL over $100 5 V.. over $200 10% 
MINIS & MICROS INC. • 29486 Trail way 
9e rVgouri. CV 91301 • 1213)991-7433 

CA. resident! add 6% tales tax 
2 YEAR WARRANTY 



* SH 
a COI 

1 0IS 

L 



CALL US ANYTIME 



S m 

E. " 

J 



Program continued 

4C40 0D 

4C41 50 

4C4B 00 

4C4C 44 

4C54 00 

4C55 4F 

4C58 00 

4C59 45 

4C5D 00 

4C5B 0D 

4C5F 43 

4C6C 0D 

4C6D 00 

4C6E 0D 

4C6F 4E 

4C89 0D 

4C8A 00 

4C8B 0D 

4C8C 53 

4C9A 00 

4C9B 0D 

4C9C 57 

4CAA 00 

4CAB 0D 

4CAC 57 

S?' 

4CC9 0D 

4CCA 00 

4CCB 0D 

4CCC 2A 

4CDC 0D 

4CDD 0D 

4CDE 53 

4CEF 0D 

4CF0 52 

4D01 0D 

4D02 54 

4D14 0D 

4D15 54 

4D21 00 

4D22 56 

ION (V) ' 

4D44 0D 

4D45 42 

4D56 0D 

4D57 00 

4D58 49 

4D65 0D 

4D66 00 

4D67 54 
4D79 0D 
4D7A 4C 
4D8A 0D 
4D8B 00 
4D8C 0D 
4D8D 52 
4D9B 0D 
4D9C 48 
4DA9 0D 
4DAA 00 
4DAB 53 
4DBA 0D 
4DBB 00 
4DBC 52 
4DCD 0D 
4DCE 00 
0001 
TORAGE 
0001 
0001 
0001 
0001 

4DD4 CD2B00 
TO RECEIVE 
4DD7 B7 
CTERS 
4DD8 2808 
4DDA FE1B 

ARROW, POP 
4DDC 2004 
ETURN TO 
4DDE CI 
U 



08110 
08120 
08130 
08140 
08150 
08160 
08170 
08180 
08190 
08200 
08210 
08220 
08230 
08240 
08250 
08260 
08270 
08280 
08290 
08300 
08310 
08320 
08330 
08340 
08350 



MSG1: 

MSG2 
MSG3 
HSG4 
MSG5 

MSG6: 

MSG7; 
MSG8: 
MSG9: 



08360 

08370 

08380 MSG10: 

08390 

08400 

08410 MSG20: 

08420 

08430 

08440 

08450 

08460 

08470 

08480 

08490 

08500 



DEFB 0DH 

DEFM 'PARITY IS ' 

DEFB 00H 

DEFM 'DISABLED' 

DEFB 00H 

DEFM 'ODD' 

DEFB 00H 

DEFM ' EVEN ' 

DEFB 00H 

DEFB 0DH 

DEFM 'CHANGE? (Y/N) ' 

DEFB 0DH 

DEFB 00H 

DEFB 0DH 

DEFM 'NEW PARITY STATUS? (0/E/N) 

DEFB 0DH 

DEFB 00H 

DEFB 0DH 

DEFM 'STOP BIT(S) * ' 

DEFB 00H 

DEFB 0DH 

DEFM 'WORD LENGTH - ' 

DEFB 00H 

DEFB 0DH 

DEFM 'WORD LENGTH = (5/6/7/8) BIT 

DEFB 0DH 

DEFB 00H 

DEFB 0DH 

DEFM '*** LYNX TLS ***' 

DEFB 0DH 

DEFB 0DH 

DEFM 'STORE MESSAGE (S) ' 

DEFB 0DH 

DEFM 'RECEIVE BASIC (R) ' 

DEFB 0DH 

DEFM 'TRANSMIT BASIC (X) ' 

DEFB 0DH 

DEFM 'TERMINAL (T) ' 

DEFB 0DH 

DEFM 'VIEW/CHANGE UART CONFIGURAT 



08510 




DEFB 


0DH 


08520 




DEFM 


•BACK TO BASIC (B) ' 


08530 




DEFB 


0DH 


08540 




DEFB 


00H 


08550 


MSG11: 


DEFM 


'ILLEGAL ENTRY' 


08560 




DEFB 


0DH 


08570 




DEFB 


00H 


08580 


MSG12: 


DEFM 


•TRANSMIT BASIC (T) ' 


08590 




DEFB 


0DH 


08600 




DEFM 


'LOAD PROGRAM (L) ' 


08610 




DEFB 


0DH 


08620 




DEFB 


00H 


08630 


MSG13 : 


DEFB 


0DH 


08640 




DEFM 


'READY CASSETTE' 


08650 




DEFB 


0DH 


08660 




DEFM 


'HIT L TO LOAD' 


08670 




DEFB 


0DH 


08680 




DEFB 


00H 


08690 


MSG14: 


DEFM 


'SENDING PROGRAM' 


08700 




DEFB 


0DH 


08710 




DEFB 


00H 


08720 


MSG17 : 


DEFM 


'RECEIVING PROGRAM' 


08730 




DEFB 


0DH 


08740 




DEFB 


00H 


08750 


HUCR: 


DEFS 


1 ;TEM 


08760 


HUSR: 


DEFS 


1 


08770 


ERROR: 


DEFS 


1 


08780 


PRINT: 


DEFS 


1 


08790 


CONTRL : 


DEFS 


1 


08800 


STRBC: 


CALL 


002BH -SUB 



08810 

08820 
08830 

08840 

08850 



OR 

JR 
CP 

JR 

POP 



Z,BCR 
1BH 

NZ,BCR 

BC 



SUBROUTINE 
j BASIC CHARA 

;IF SHIFT UP 
; STACK AND R 
; MONITOR MEN 

Program continues 
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Program continued 

4DDP C36347 

4DE2 DBBA 

SIC CHARACTER 

4DE4 CB7P 

4DE6 28EC 

4DE8 DBEB 

HARACTER 

4DEA C9 

4DEB 0D 

LE 

4DEC 53 

4DFD 0D 

4DFE 45 

4E0F 00 

4E10 00 

4E11 0D 
4E12 42 
4E1D 00 
4E1E DBEA 
TO RECEIVE 
4E20 CB7F 
RACTERS 
4E22 2803 
ARACTER 
4E24 DBEB 
4E26 C9 
4E27 CD2B00 
4E2A B7 
4E2B 28F1 
, CONTINUE 
4E2D FE1B 

ARROW, TO 
4E2F 20ED 
IRST POP 
4E31 CI 

4E32 C36347 

MENU 
4590 



08860 
08870 BCR: 

08880 
08890 
08900 

08910 

08920 MSG18: 

08930 

08940 

08950 

08960 

08970 

08980 NSG19: 

08990 

09000 

09010 STRNC: 

09020 

09030 

09040 

09050 

09060 CFRTMC: 

09070 

09080 

09090 

09100 

09110 
09120 

09130 



JP 

IN 

BIT 
JR 

IN 

RET 
DEFB 

DEFN 
DEFB 
DEFM 
DEFB 
DEFB 
DEFB 
DEFM 
DEFB 
IN 

BIT 

JR 

IN 
RET 
CALL 
OR 

JR 

CP 
JR 

POP 

JP 

END 



MON 
A,(0EAH) 

7, A 

Z , STRBC 

A, (0EBH) 



0DH 



;WAIT FOR BA 



;GET BASIC C 



; MESSAGE TAB 



•STORE MESSAGE (S) • 

0DH 

•ERASE MESSAGE (E) ' 

0DH 

00H 

0DH 

•BUFFER FULL' 

00H 



A, (0EAH) 
7, A 

Z, CFRTMC 

A, (0EBK) 

002BH 

A 

Z,STRMC 

1BH 

NZ , STRMC 

BC 

MON 

RELSRT 



SUBROUTINE 

; MESSAGE CHA 

;WAIT FOR CH 

; ECHO 

;SCAN KEYS 

t IF NO ENTRY 

;IF SHIFT UP 

;MENU f BUT F 

; STACK 

;TO MONITOR 




APPLE TRS-80 f 

Computers 
I It Gambling 

presents \ Magazine 

PROBABILITY HANDICAPPING 
DEVICE 1 - A BASIC PROGRAM FOR: 
HORSE RACE HANDICAPPING 

Tins incredible program was written by a professional software 
consultant to TRW Space Systems This is a complex program 
caretuuy human factored tor easy use H is a comprehensive 
horse 'acing system tor spotting overlays m thoroughhred sprint 
aces vour computer will accurately predict the win probability 
anc odds «ne 'or each horse based on your entries Irom the rac- 
ing lorm The next day overiaiO horses can be spotted on the 
track lote board The user s manual contains a complete exptana 
two of ovenay betting plus much more usetui information Theap 
pe.tdix contains a detailed lab run of a '00 consecutive 'ace 
sysie-- wor«out showing an amazing 50% return (Si 50 return 
ed for each $1 00 iiat wagei • includes many features such as 
error correction bubble son line printer output automatic 
keyboard denounce archiving etc The manual may be ordered 
separately lor perusal tor $7 95 and credit 
CHALLENGE R IP. 2P « 4P IK VERSIONS New AraeaMe' 
PM-t User i manual ami cassette for: 
AppM il (iWj.mS^O Level ll| l6K|.Chaleneer{SK) 29 95 
TRS-ROarAPPlfOiSK 34 95 

BRAND NEW FROM SOL WW AT THE RACES This thoroughbred 
handicapping algorithm is based on a currently popular book on 
thoroughbred multiple regression techniques Both sprints a-H] 
routes Aii oi the leatures ot PHD 1 plus more This program in- 
corporates ihe best data entry technique we ve ever seen 
32K TRS-BO or APPLE CASSETTE J4 9J 

32K "TRS-80 or APPLE DISK 3995 

■OOKS 

Winning it the Races Zl. 95 ♦.75 PM 

Setting the Races wRh a Computer 14 95 ♦ .75 PAN 

Wake elects payawe ro JOE COMPUTER OEPT. 8 »- 1 93 

??m Ventura OM.. See* F, WnMeet NMi. CA 913S4 

^t^i CA residents MO 6 V. saies lax "SP 

^mr- PHONE OROERS 213-992-0514 — 

•SEND S2 00 TO PLACE YOUR NAME ON OUR MAILING LIST 

t TRS 80 is s tgisiemd uatimarit o> Tandy Corporation 



While they last . 




the complete year of 1 980 80 Microcomputing 
(in its own shelf box. . . a $2.00 value— Free) 
for only $25.00.* 

Did you miss the 2,256 pages of useful information published for your TRS-80* * in 80 Microcomputing last 
year? Now is the perfect time to catch up for only $25.00.* 

In the first year of 80 Microcomputing here were 335 articles on your TRS-80 — 2 l /« times more than any other 
computing magazine. Also in 1980 there were new product reviews, news and columns and best of all hun- 
dreds of dollars worth of useable programs. 

So to unlock the key to your TRS-80 and double its value . . . send in today for the complete year of 1980. 80 
Microcomputing (in its own shelf box) for only $25.00.* 
We have a limited number of these complete sets so send in the card today or call our toll free #800-258-5473 

and charge it to your VISA, MC or AE card. 

'plus shipping and handling ($6.00) "TRS-80 is a Trademark of Tandy 

rZtZ 1 

If S@j| I want u year of 80 Microcomputing for $25.00 plus $6.00 
for shipping and handling. Plus I'll receive a shelf box to store 
them in. 

. . Check enclosed for $ 

Name 

Address 

City 




State. 



Zip. 



Please allow 4 to 6 weeks for delivery 

80 Microcomputing • 80 Pine Street • Peterborough. N.H. 03458 

Toll free ordering number 800-258-5473 



foreign ctdtrs ph'w>t add tt 5. 00 — Surface Shipment Only 



80BI 



• See List ot Advertisers on page 336 
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EDUCATION 



The students meet the POKE instruction. 



Alternate Course— Part III 



Michael A. Duff in 
1507 East Avenue 
Berwyn, IL 60402 



In most data processing courses, the stu- 
dent usually does not write any programs 
which might affect the system— especially 
a large system. Many large systems have 
enough trouble running without novice pro- 
grammers experimenting with them. The 
TRS-80, on the other hand, is a one-on-one 
system, so the only person that is hurt by 
this type of experimentation is the program- 
mer. 

In my data processing class, I introduced 
the POKE instruction to illustrate graphics. 
There are three reasons I chose the POKE 
instruction rather than Set and Reset. 

First, when using POKE for graphic repre- 
sentations the first operand must be a num- 
ber between 15360 and 16383. These are the 
positions in memory (decimal) which con- 
trol what is on the screen (i.e. POKEd 
characters in these positions are reflected 
on the screen). POKEing outside of this 
range will result in a variety of errors and in 
many cases Memory Size? will appear on 
the screen. When this occurs the user's pro- 
gram is lost. By usine POKE my students 
learn what is stored in memory by the 
operating system. 

Second, an additional operand of the 
POKE instruction is the ASCII (American 
Standard Code for Information Inter- 
change) representation of a character. 
Thus, when we talked about ASCII in class, 
the students had a concrete example to 
refer to. 

Third, when using the POKE instruction, 
six bits are set on the screen at once. With 
the Set instruction only one bit is set at a 
time. By the way, when you program a 
figure from a TRS-80 video display work- 
sheet using POKE you must add 15360 to 
the numbers through 1023 so the figure 
will appear on the corresponding positions 
on the screen. 

Before we could begin representing 
graphics on the screen using POKE, the 
first thing we had to do was determine 



which bit position combinations corre- 
sponded to what ASCII numbers. All the 
combinations are represented by ASCII 
numbers 129 through 191. I gave my 
students the following program to deter- 
mine the correspondence between 
numbers and characters: 

10 CLS 

20 FOR A = 129 to 191 

30 PRINT A " = " CHR$<A) 

40 PRINT 

50 NEXT A 

I also gave them the following instruc- 
tions with this program: 

• Type this program in and run it. 

• Add the necessary code to this program 
to slow it down so the character repre- 
sentations can be recorded. 

• Record the character representations of 
129 to 191 on a TRS-80 video display 
worksheet. 

• Describe how this program works line by 
line. 

The problem with this program is the 
characters flash by too fast to be recorded. 
If we add the lines, 



FOR X = 1 to 250 
NEXTX 



the For... Next loop slows the program 
enough to record the characters. Should 
more time be needed, hit the Break key to 
stop the program. To continue, type in 
CONT and hit the Enter key. 

In this program, line 10 clears the screen; 
lines 20 and 50 create a loop starting with 
the number 129 and ending with the number 
191. Line 40 prints a blank line between 
each character representation. Line 30 
prints the current numeric value of A fol- 
lowed by an equal sign. The instruction 
CHR$(A) prints the ASCII equivalent of the 
number A. For this problem all the ASCII 
equivalents are graphic characters. 

Once my students had recorded all the 
graphic characters, I gave them the follow- 
ing program to type in: 



10 CLS 

20 FOR X = 15362 to 16376 STEP2 

30 POKE X- 2, 32 

40 POKE X- 1,32 



50 POKE X, 32 
60 POKE X + 1,32 
70 POKE X. 176 
80 POKEX+1,190 
90 POKE X + 2, 189 
100 POKE X + 3, 176 
110 NEXTX 
120 GOTO 20 

I then gave my students the following in- 
structions: 

• Enter this program and run it. 

• Describe how the program works line by 
line. 

• Remove the words STEP2 from line 20. 
How does this affect the program? 

• Write a program that will cause the ob- 
ject to move in a different direction. 

In the program a small flying saucer 
moves across the screen from left to right, 
top to bottom. The saucer is continuously 
erased and rebuilt so it appears to move 
across the screen. More specifically, the 
For. . .Next loop in lines 20 and 110 cause X 
to be incremented from 15361 to 16379. 
STEP2 causes this incrementation to be 
done be twos (i.e. 15362, 15364, 15366, etc.). 
Removal of STEP2 causes the saucer to 
move half as fast. Lines 30 through 60 erase 
the saucer, (i.e. the ASCI I number 32 causes 
a six-bit graphic character to be erased). 
Lines 70 through 100 rebuild the saucer. 
This program is a little unusual because it 
starts with a non-existent figure being 
erased and then builds a figure. X is then in- 
creased by two, the previous figure is 
erased, the next figure is built, and so on, 
until X is greater than 16377. 

As a further exercise I asked my students 
to write a program which would cause the 
saucer to move in three other directions. 
This isn't that simple because the sample 
program is not geared for many other direc- 
tions. For example, if we wish the saucer to 
move from right to left, the For . . . Next loop 
is of little use in its present form. Thus, they 
first had to determine a set-up for the pro- 
gram that could be adaptable for any direc- 
tion. The right to left example that follows il- 
lustrates this: 



10 CLS 

20 X = 16379 

30 GOSUB 1000 

40X = X-1 

50 IF XO5360 THEN GOTO 20 
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Reader Service for facing page ^48 



. . . the only person hurt by 
this type of experimentation 



the 



programmer. 



60 GOTO 30 
1000 POKE X.176 
1020 POKE X + 1,190 
1030 POKE X + 2,189 
1040 POKE X + 3,1 76 
1050 POKE X.32 
1060 POKE X + 1,32 
1070 POKE X + 2,32 
1060 POKE X-f 3,32 
2000 RETURN 

In this program the subroutine at lines 
1000 through 2000 can be used no matter 
what direction the figure moves. The key to 
the movement is in lines 40 and 50. Line 40 
decrements the value of X by one, and thus 
the saucer appears to move from right to 
left. Line 50 is necessary to keep the ship 
from going off the screen, and it also 
restarts the program when it reaches the 
end of the screen. 

If we wish to move in another direction 
we only have to change lines 40 and 50. For 
example, if we wish to move from top to bot- 
tom in a left to right manner we would use 
the following: 

40X = X-64 

42 IF X + 3>16383 THEN X = X - 1023 

50 IF X + 3 - 16383 THEN X - 15360 

Line 40 writes X in the position directly 
below the previous X. Line 42 places the 
figure at the top of the screen after the 
figure has been printed at the bottom. The 
figure at the top is printed to the right of the 
previous figure at the bottom. If we wish the 
figure to be printed in a top to bottom, right 
to left manner, we need only substitute the 
following for line 42: 

IF X + 3>16383 THEN X = X - 1025 



Line 50 prints the figure at the upper left 
of the screen before if goes past the bottom 
right of the screen. 

Now that we can get the figure to move in 
any direction, it would be nice if we could 
switch directions at the push of a button. To 
do this we have to make use of the IN KEYS 
instruction. As an introduction, I gave my 
students the following program and in- 
structions: 

10CLS 

100 PRINT 10:GOSUB 1000 

110 GOTO 100 

200 PRINT 20:GOSUB 1000 

210 GOTO 200 

300 PRINT 30:GOSUB 1000 

310 GOTO 300 

400 PRINT 40:GOSUB 1000 

410 GOTO 400 

500 PRINT 50:GOSUB 1000 

510 GOTO 500 
1000 FOR X = 1 TO 200-.NEXT X 
1010 IF INKEYS = "B" THEN GOTO 200 
1100 RETURN 

• Run the above program and hit the let- 
ter B. What happens? 



• Modify the program above so that lines 
100, 200, 300, 400 or 500 get executed 
when a different letter is pressed. 

• What does INKEYS do? 

When the program is executed, the num- 
ber 10 is written periodically until the letter 
B is hit. At this time the number 20 is 
printed. 

Modifying the program is somewhat dif- 
ficult. Due to a peculiarity of the INKEYS in- 
struction, once it is accessed the value dis- 
appears. Thus, if we just used If statements 
between lines 1000 and 1 100, only the first If 
statement would reflect the key that was 
depressed. If we want to check the de- 
pressed key more than once, we must use 
code similar to the following: 

1010 B$ = INKEYS 
1020 IF B$ = "A" THEN GOTO 100 
1030 IF B$ = "B" THEN GOTO 200 
1040 IF BS = "C" THEN GOTO 300 
1050 IF BS = "D" THEN GOTO 400 
1060 IF BS = "E" THEN GOTO 500 

By storing the value of INKEYS within our 
program, we can access it as often as we 
like without it disappearing. 

But now we need an If statement for 
every check we wish to make. To avoid this I 
introduced my students to the ON . . . GOTO 
instruction with the following changes in 
the program: 

1000 FOR X = 1 TO 200: NEXT X 

1010 ON VAL(INKEY$) GOTO 100,200,300,400,500 

1020 RETURN 

The way the ON... GOTO instruction 
works is more clearly explained if I use the 
following example: 

ON X GOT0 100,500,200 

If X = 1 then we go to line 100. If X = 2 then 
we go to line 500. If X = 3 then we go to line 
200. If X has any other value, the next state- 
ment in the program is executed. In line 
1010 we must use the VAL instruction be- 
cause INKEYS gives us the ASCII equivalent 
of the number we have entered. By using 
VAL the ASCII characters are converted to 
numerics. 

Now that we can move our figure in any 
direction by hitting a key, there are a few 
other things we might desire if we want to 
make this program into a game. First, we 
might want more than one figure on the 
screen. Second, we might want them to 
shoot at each other; and finally we must 
decide if the second figure will be con- 
trolled by another person or the computer. 

The 13-line subroutine in Fig. 1 con- 
structs a second figure whose movement is 
controlled by hitting the letters A,B,C or D. 
The values given to the W array in conjunc- 



tion with lines 3020 through 3050 and 3100 
control the direction of the figure. 

Line 3020 causes the letters A through D 
to be converted to the numbers one through 
four. Line 3020 subtracts 64 from the ASCII 
equivalent of the character depressed while 
the program is running. Since the ASCII 
equivalents of A,B,C and D are 65,66,67 and 
68 respectively, this line gives variable B a 
value of one when A is depressed, two when 
B is depressed, three when C is depressed 
and so on. Line 3030 allows only A through 
D to be depressed; all other letters set B to 
equal one. Line 3040 erases the figure. 

Line 3050 causes Y to be incremented by 
a member of the array W. The values of this 
array were established in line 12 along with 
the initial values of Y and B. The variable B 
points to the correct element. 

To illustrate this, let us assume that C 
was depressed while Y = 16005. Then line 
3020 becomes: 



B = ASC(C) - 64 which means 
B = 67 - 64 which means 

B = 3. 

The If statement in line 3030 fails since 
B = three. Line 3040 erases the figure that 
started at Y = 16005. 

Line 3050 translates to: 

Y = 16005 + W(3) since W(3) = 64 from line 12 

Y = 16005 + 64 

Y = 16069. 

The If statements in lines 3060 through 
3090 re-establish Y if the value of Y extends 
beyond the range of the screen (i.e. 15360 to 
16383). Line 3100 then builds the new figure 
at the desired location. 

To put it more simply, if A is entered, the 
figure moves from right to left. If C Is 
entered the figure goes down, and if D is 
entered the figure moves up. 

Fig. 2 illustrates another version of this 
subroutine. In this version the computer 
controls the ship (variable Y). The 
computer's ship chases another ship 
(variable X). In addition, the computer's ship 
fires upon the user's ship (lines 3130 
through 3200). With minor modifications 
both of these routines can be included 
within the same program. I suggest chang- 
ing Fig.1 in the following manner: 

• Change the line numbers. 

• Change variable Y to X. 

• Change Y = 16379 to X = 15360 in line 12. 

• Change the variable B to another variable 
name (such as C). 

By adding a couple of GOSUBS you'll 
have one ship chasing another. However, 
since the user's ship doesn't shoot, you had 
better add a routine for this if you intend to 
win.B 
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lows your 
love life? 




A little dull around the edges? 

Routine? Predictable? Boring? Maybe 

all it needs is a little Interlude. Interlude 

the most stimulating computer game ever conceived 

It combines a computer interview, an innovative 

programming concept, and a one-of-a-kind manual to 

turn your love life into exciting, adventurous, delicious fun! 




Interlude is: romantic... playful... outrageous... a fantasy. Interlude is: ■ A Bed of Roses (Inter- 
lude #1) ■ Mata Hari (Interlude #49) ■ The Chase (Interlude #7) ■ Rodeo! (Interlude #71) ■ The King and 1 
lude #60) ■ Some Enchanted Evening (Interlude #84) ■ Caveman Caper (Interlude #82) ■ From Here 
to Ecstasy (Interlude No. 30) ■ Satin Dreams (Interlude #72). 



More than 100 Interludes are included in the program Most are described in detail in the accompanying manual, 
but several surprise Interludes are buried in the program awaiting that very 

ial time when your interview says you're ready. (When you learn secret 

rlude #99. your love life may never again be the same!) Interlude 
can give you experiences you'll never forget. Are you ready for it? j^ e fjltirnate Experience. 



Interlude 






I INTERLUDE. Dept. 80, 10635 Richmond Avenue, Houston, Texas 77042. I'm really ready. Send my Interlude today. 
I 

I 



Apple II (16K)- TRS-80 (Model 1. 16K)"* 

issette i $18 95) ", Cassette ($18.95) 
5 Diskette ($21 95) □ Diskette ($21 95) 

Diskette - Pascal or DOS 3.3 ($21 95) 
Add $1.75 for shipping and handling. 

D MASTERCARD D VISA 
Account No. 



Poster 

□ 20"x 24" reproduction of 
this ad without ad copy 
($4.95— includes 
shipping charges) 

All charge customers must sign here. 

Expiration date . 



Available for immediate shipment. 



Please enclose your check payable to INTERLUD 
or complete the charge information: 



. 



MasterCard Bank Code 



I 
I 

I CHARGE CUSTOMERS: Order by phone toll free 1 1800 231-5768 Ext. 306 (Texas: 1-800-392-2348 Ext. 306) 
| Name _ - A 3 e 

I 



Address 
City 



State 



Zip 



I 'Apple II is a registered trademark of Apple Computers. Inc. **TRS-80 is a registered trademark of Radio Shack, a Tandy Co. 



APPLICATION 



This program will lay-up your TRS-80 for more than three seconds. 



Hoops 



William Corn well 
609 Ellynn Drive 
Cary, NC 27511 

Score! Doctor J adds two more!", ex- 
claimed the television announcer. 
"Dad, how many points does Doctor J have 
now?" asked my 14-year old son. I couldn't 
tell him as I wasn't keeping score myself, 
but as I glanced up with my response, I 
noticed our Level II 16K TRS-80 nearby, but 
not in operation. 

What a great application— design a 
basketball scorekeeping program. So in 
the next few evenings I thought con- 
siderably about what would be required. 

The more I thought, the better the pro- 
gram appeared. First, I located a video 
display worksheet and penciled in the for- 
mat of the output— team names, scores 
and fouls. I then provided lines for the 
individual players— numbers, names, 
number of field goals and fouls, total 
points scored, and number of personal 
fouls (see Photo 1). I discovered that a two- 
dimensional, 14-member array in Basic 
would handle all of this data nicely. 

With the output out of the way, I next 
considered the input data. One goal was to 
have the ability to correct any character 
keyed in error prior to entering the data, or 
provide a means of Ignoring the input re- 
quest from any character position. Based 
on my Basic experience, this precluded 
the use of an INKEYS type of routine. Also, I 
wanted any input combination to be one 
character string so the user would not 
have to continually key additional com- 
mas as field separators. This would also 
provide the flexibility of having one , two , 
and four-character input coding strings. 

Next, I started to code the Basic pro- 
gram logic, but on paper first! This turned 
out to be well worth the effort as I was able 
to develop the total program in a subrou- 
tine fashion— optimizing statements as I 
coded— and using open boxes for GOTO 



label numbers. When the Basic coding 
was finished, I wrote the statement 
numbers down for both the Basic state- 
ments and then in the GOTO boxes. 

Since I don't have the luxury of a printer, 
the paper draft provided outstanding refer- 
ence material for debugging and cosmetic 
changes. And I made several of each. 

The moment of truth arrived as I keyed 
Run. Concept was good, but I had to make 
several other minor adjustments for better 
viewing on the output display. I was quite 
happy with the results— the paper draft 
netted a nearly bug-free implementation! 
Numerical column alignment using Basic 
with combinations of single and double- 



digit numbers was the toughest problem. 
Screen data is presented in anywhere from 
one point five to three seconds depending 
upon the number of players. 

After loading the program and keying 
Run to begin program initiation, the user is 
questioned whether or not he desires an 
explanation of the program and the in- 
structions. Assuming the user wants this 
information, he keys a Y (for yes) and a 
description of the program is displayed. 

He is then requested to push the Enter 
key to continue program operation. The 
Help screen (see Photo 2) is displayed. The 
next logical function would be to load both 
a home team and a visiting team. Com- 



Hi PHILA. 76ERS 


i -> 187 Tf- 7 


V.LMH 


Wh»7 


IPUttER 


G f 


PT PF 


• PUWER 


1 f PT Pf 


SERVING 


13 1 


27 4 


89 000 


3 1 112 


lie. xrcs 


2 2 


6 3 


52UIUES 


16 5 37 1 


53 MUCINS 


6 2 


14 5 


32JM601 


14 14 42 4 


09HOLLINS 


5 3 


13 1 


18 NIXON 


12 4 8 


1IQCEKS 


5 3 


13 8 


21 COPER 


4 8 16 5 ! 


24i. xrcs 


4 e 


8 3 


34UWSBWGER 


2 15 8 


Him • 


4 • 


8 2 


14H0UPND 


3 2 8 3 


58 MIX 


8 2 


18 4 


15MHCS 


8 8 8 8 


34SWNARKEL 


e e 


8 8 




8 8 8 8 


15 TOOTC 


8 • 


8 8 




8 8 8 8 


22 RICHARDSON 


8 8 


8 8 




8 8 8 8 


ENTER DATA? . 











Photo 1. Sample Output Reflecting Box Score of 
NBA final Playoff Game Box Score (Player Fouls are Estimated). 
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Header Service lor lacing page t*371"» 



TWO NEW GAMES FROM SSI FOR THE 

APPLE 
AND THE 



TRS-80 ! 




THE BATTLE OF SHILOH Iniii.jIH w Civil War. 

pitting the Confederate Aimy again iion gunb 




TIGERS IN THE SNOW: Ghostlike Nazi Tiger tanks and infantry sweep acros:, the dark, 
frozen forests of the Ardennes against asurpi in this division/ regimenl 

simulation of Hitlers last desperate .itt.ick. 



We know it hasn't been easy 
for you TRS-80® owners to see so 
many great made-for-Apple-only 
games from SSI pass you by. But 
then, it hasn't been easy for us to 
design games for a 16K cassette 
format good enough to meet our 
critical standards 

After all. we've got a reputa- 
tion to protect, a reputation in 
strategy gaming for unsurpassed 
sophistication, innovation, realism, 
and payability. 

Well, our designers have been 
hard at work, and we've not only 
met but surmounted the challenge. 
Were delighted to announce two 
historical wargames — deserving 
of the SSI label — for both the 
Apple® and the TRS-80® (16K 
cassette for the TRS-80 Model I 
and III; 48K disc for Apple II with 
Applesoft ROM card). 

Combining our extensive war- 
game- design experience and superior 
programming techniques, we've 
given a fresh new look and feel to 
these favorite classic battles 

At $24.95 each for TRS-80 
cassette and $39.95 each for Apple 
disc these are extraordinary games 
at quite an ordinary price 

So head on down to your 
local store and check them out 
today! 

VISA and M/C holders can 
order by calling 800-227-1617. 
ext 335 (toll free). In California, 
call 800-772-3545. ext 335. 

To order by mail, send your 
check to: Strategic Simulations Inc. 
Dept EMI. 465 Fairchild Drive. 
Suite 108. Mountain View. 
California 94043. 

All our games carry a 14-day 
money- back guarantee. 




As part of our demanding standards of excellence, we use (TliJXHll floppy discs. 

Apple is a registered trademark of Apple Computer Inc TRS80 is a registered trademark of the Tandy Corporation. 



"What a great application — 
design a basketball scorekeeping 



mands for each appear later. 

The Enter Data? request appears at the 
bottom line of the screen as a result of: 
keying N (for no) to the Information request 
during program initiation; pushing Enter 
after viewing the program information and 
Input coding structure display; the suc- 
cessful conclusion of a previously keyed 
input command. 

Since the Enter Data? request is where 
all the action occurs during the course of 
this program, a more detailed description 
of the input code structure follows. After 
keying any input code, the user pushes the 
Enter key to initiate program action for 
that code. 

Valid single-character entries are: 

?— I have a question and need help— 
this will display the input coding struc- 
ture (the Help screen in Photo 2) that is 
acceptable to the Enter Data? request. 
D— Display— displays the team and 
player totals. 

X— Input keying error— this character 
appearing in any one of the four posi- 
tions of the input code positions 
signals an input error and the user can 
respond to another Enter Data? re- 
quest. 

E— Exit— exits or terminates the pro- 
gram. 

Valid two-character entries are: 

HA— Add player(s) to home team— user 
must enter a two-character number, 
push the Enter key, and then key a 
name of 12 characters or less and push 



the Enter key again. If no players' 
names exist, the user will be requested 
to key a team name with the same 12 
characters or less limitation followed 
by the Enter key prior to entering any 
player information. 

VA— Add player(s) to visiting team- 
same description as the HA code ex- 



cept information applies to the visiting 
team. 

Valid four-character entries are: * in- 
dicates that the first character will be 
either an H for a home team player or a V to 
indicate a visiting team player; the second 
character indicates what event occurred; 
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Photo 2. Sample of Help Screen Display. 



THIS IS DIGITALKER 
OUT 127,0 




This is all it takes to say this or 143 other expressions with MICRO- 
MOUTH*. Absolutely no software drivers or subroutines to load. 
MICROMOUTH*, the latest Circuit Cellar project can be used as an 
emergency annunciator, as an aid for the handicapped, for process 
control and automatic monitoring, and to add new dimensions to 
computer games. 

Sample phrases that can be programmed are: 
"THE TIME IS 4 HOURS 23 MINUTES . . .(BEEP)' 
•NUMBER 4 IS 3.47 VOLTS'' 

'THE SPEED IS 100 METERS A SECOND . . SLOW DOWN'' 
Thousands of expressions can be added by changing the ROM chips. 

MICROMOUTH* is plug compatible with APPLE II and TRS-80* com- 
puters. Directions are included for S100. H8 and parallel 

port operation . *DIGITALKER is a trademark ot National Semiconductor Corp 



Complete Kit (Model I) $150.00 
A»t»mbi«d and tested: 

A ppla II $1 50.00 

TRS-80 Model I w/power supply, caM, 

cable $175.00 

trs-80 Modal III $200.00* 

'MICROMOUTH is a trademark ot Micromint Inc 

The MicroMint Inc. ^310 
917 Midway 
Woodmere, NY 11598 
Dealer inquiries 
invited. 



To order call: 

1 800-6453479 
lnN.Y.516374-6793 
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"The program provides the basics 

for basketball scorekeeping 

and was a joy to develop." 



the last two characters of NN represent 

the number of the player. 

*BNN — Basket scored— player NN 
scored a two-point field goal. 
*LNN— Long basket scored— player 
NN scored a three-point field goal. 
# FNN— Foul shot successful— player 
NN scored one successful free throw. 
*TNN— Two foul shots successful- 
player NN scored two successful free 
throws. 

*PNN— Personal foul— player NN has 
committed a personal foul. 

The Help screen (see Photo 2) provides a 
concise listing for the above codes. 

For those readers who do not care about 
the internal data structure or have no in- 
tention of modifying the program, they 
should conclude with the summary 
paragraphs. As I stated earlier, the data 
area for the program is a two-level, 
14-member array for each field: player's 
number (A$), player's name (B$), number of 
field goals (J), number of successful foul 
shots (K), total points (L) and number of 
personal fouls (M). 

Variables N and P are used for updating 
the array fields: N is the level value— zero 
for the home team and a one for the 
visiting team. This value is determined 
from the first character of the input coding 
structure. The variable P, when it ranges 
from one to 13, represents a player value. 
When this variable is a zero it refers to a 
team value. 

For instance, the name field, B$ (0,0) or 
B$ (1 ,0), refers to the team names. The field 
goal variable, J (0,0) or J (1,0), contains the 
number of players currently entered In the 
team list (see Fig. 1). The total points field 
for the team contains the team score, and 
the number of personal fouls field con- 
tains the number of team fouls. But this 
last value never exceeds seven for either 
team since seven will handle the foul 
bonus situations for all levels of basket- 
ball. 

In summarizing, I wanted a useful, sim- 
ple and meaningful code structure. The 
basketball scorekeeping program, I think, 
meets these original objectives. In addi- 
tion, the program, as is, applies to any 
level of basketball— professional, col- 
legiate, scholastic, or non-scholastic. The 
program can also be used with several of 
the commercial basketball games 
available such as Basket. 

The program provides the basics for 
basketball scorekeeping and was a joy to 
develop. Some possible enhancements in- 



clude: Loading the players' names and 
numbers via tape, disk or data statements; 
printing a final box score at the game's 
conclusion; saving player and team totals 
on some media for use with additional 



averaging-type programs; and, lastly, cor- 
recting any error once entered (points 
credited to the wrong player, disallowed 
baskets or fouls). I would be interested in 
copies of any such enhancements. ■ 
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Fig. 1. Summary of Array Information (Home Team when N 


= 0, visiting team 


when N = 1). 











Program Listing 

10 REM INITIALIZE AND SET MAXIMUM PLAYER LIMIT (P-13) 

20 CLEAR 1000:P«13 

30 DIMA$(1,P) :DIMB$(1,P) :DIMJ { 1 ,P) :DIMI$( 2) :DIMK(1,P) :DIML(1,P): 

DIMM(1,P) 

40 CLS:PRINTf?144, "BASKETBALL SCOREKEEPING PROGRAM" 

Program continues 
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END YOUR TAPE LOADING PROBLEMS 
FOREVER! 




■ .. ■ 
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DATA 

DUBBER 
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ER ,01 


THE PERIPHERAL PEOPLE 

PO BOX 21 123 - SEATTLE. WA 081 1 1 

(206) 632-8649 MC &. VISA O K. 



EPROM-80 FOR TRS-80 
Programmer for 2700 Type EPROMs 
(2704/08, 2758. 2716. 2732, 2732A. 
Mostec 2764. Intel 2764) 




f he logical solution to EPROM programming' One program 
'or all type EPROMs Timing under software control 28 pw 
zero insertion force socket No eiternal power supplies 
required 36" ribbon cable connects directly to eipsnsiON 

■".erf ace Average programming time 100 seconds per IK 
Sytes Includes program on disc and cassette Program 
operated la two mooes Mode 1 EPROM type select Program 
: o*i ins user to set 4 toggie switches depending upon 
EPROM type Mode? Type of action Reads one EOTASM 
tile irora t sc or cassette lassembled anywhere' into fciffe' 
Reads EPROM data into Du'fer Writes 6«fter data to EPROM 
Automatic verify after write And Mote Minimum enwie 
mants TRS-80 LEVEL 2 16K RAM PRICE J290 00 

CANTECHDATA ^4&j 

7826 W ARGYLE, NORRIDGE. ILL 60656 
PHONE (312)887 0161 




rtty m If You've Written a 

5«f Topnotch Program- 

Wed Like to Publish It! 

Programs needed for BUSINESS/ 
OFFICE Applications: 

WORD PROCESSING 
PAYROLL/TAX CALCULATION 
GENERAL LEDGER ARAP 
ORDER ENTRY/INVENTORY 
Start collecting your royalty 
checks soon! Write for our free 
Programmer's Kit today. 

INSTANT SOFTWARE, INC. -2 
Submissions Dept. 
Peterborough. NH 03458 



Program continue} 

50 PRINT€351,"BY" 

60 PRINT8536, "wILLIAM cORNWELL" 

70 PRINTg600,"609 ELLYNN DRIVE" 

81 PRINTg664,"CARY, N. C. 27511" 

90 PRINT:PRINT 

100 REM TEST TO SEE IF INFORMATION WANTED 

110 INPUT "INSTRUCTIONS NEEDED? KEY: Y/N";XS:CLS 

120 IF X$="N" THEN 180 

130 REM GO SHOW THE INFORMATION SCREEN 

140 GOSUB 1130 

15 REM GO SHOW THE VALID CODE SCREEN 

160 GOSUB 1270 

170 REM MAIN PROGRAM LOGIC - ROUTINE RETURN POINT 

180 X$-" 

190 PRINTB961, "ENTER DATA";: INPUT X$ 

2 00 REM SET AND VALIDATE LENGTH OF RESPONSE 

210 N=LEN(X$):IF N-3 OR N>4 THEN PRINTP1000, "INPUT NOT 1,2 OR 4 

CHARS"; : GOTO 180 

220 REM SEPARATE FIRST CHARACTER OF RESPONSE 

230 I$(1)-LEFT$(X$,1) 

240 IF I$(l) - "X" THEN 180 

250 IF N=l THEN 340 

260 REM SEPARATE SECOND CHARACTER OF RESPONSE 

270 I$<2)=MID$(X$,2,1) 

280 IF I$(2) - "X" THEN 180 

290 REM AND GET THE FINAL TWO RESPONSE CHARACTERS 

300 IF N>2 THEN IS ( 0) »MID$ (X$, 3 ,2) 

310 IF MID$(X$,3,1) = "X" THEN 180 

320 IF MID$(X$,4,1) •= "X" THEN 180 

330 REM VALIDATE FIRST RESPONSE CHARACTER 

340 IF I$(1)-"D" THEN 1050 

350 IF IS(1) <> "H" THEN 380 

360 REM HOME TEAM SET UP ARRAY VALUE 

370 N-0:GOTO 540 

380 IF I$(l) <> "V" THEN 410 

390 REM VISITING TEAM SET UP ARRAY VALUE 

400 N-l:GOTO 540 

410 IF I$(l) <> "R" THEN 440 

420 REM RESET TEAM FOUL ROUTINE 

430 M(0,0)«0:M(l,0)«0:PRINTei0O0,"TEAM FOULS RESET";:GOTO 180 

440 IF I$(1)-"X"THEN 180 

450 REM SEE IF USER WANTS HELP 

460 IF I$(l)«"?" THEN GOSUB 1270 :GOTO180 

470 REM USER KEY / IN ERROR? 

480 IF I$(l)-"/" THEN GOSUB1270 :GOTO180 

490 REM USER WANT TO EXIT PROGRAM 

500 IF I$(1)-"E" THEN END 

510 REM CODE NOT VALID - GIVE USER ANOTHER TRY 

520 GOTO 180 

530 REM BEGIN SECOND CHARACTER VALIDATION 

540 IF I$(2)-"A" THEN 630 

550 REM ADD TEAM/PLAYER ROUTINE H OR V SET UPON ENTRY 

560 REM EXTRACT VALUE FOR NO OF PLAYERS 

570 Q«J(N,0) 

580 FOR P*l TO Q 

590 IP I$(0)=A$(N,P) THEN 810 

600 NEXT 

610 REM PLAYER NOT IN LIST 

620 PRINTG1 000, "PLAYER NOT FOUND";: GOTO 180 

630 CLS:Q-J(N,0) 

640 IF QO| THEN 680 

650 REM NO PLAYERS YET - REQUEST TEAM NAME 

660 INPUT "ENTER TEAM NAME" ;B$(N,0) 

670 K=LEN(B$(N,0)) :IF K>12 THEN PRINT "TEAM NAME 12 CHARS OR LES 

S - REENTER" :K-0:GOTO 660 

680 Q-Q+l 

690 IF Q<14 THEN 720 

700 PRINTei000,"TOO MANY PLAYERS" ;: INPUT C$:GOTO 1050 

710 REM ADD PLAYER ROUTINE 

720 INPUT "ENTER PLAYER'S NUMBER AS TWO DIGITS (05,13) ";A$(N,Q) 

730 K-LEN(A$(N,Q)) :IF K<>2 THEN PRINT "NO MUST BE 2 DIGITS - REE 

NTER":K=0:GOTO 720 

740 INPUT "ENTER PLAYER'S NAME (12 CHAR LIMIT) "; BS (N,Q) 

750 K=LEN(BS(N,Q)) :IF K>12 THEN PRINT "PLAYER'S NAME MUST BE 12 

CHARS OR LESS - REENTER" :K-0 : GOTO 740 

760 INPUT "MORE PLAYER'S TO ADD? KEY: Y/N";Z$ 

770 IF Z$-"N" THEN 800 

780 Q=Q+1: PRINT: GOTO 720 

7 90 REM SAVE NO OF PLAYERS AND EXIT 

800 J(N,0)-Q:GOTO 1050 

810 IF I$(2)<>"B" THEN 850 

820 REM BASKET SCORED ROUTINE 

830 J(N,P)=J(N,P)+1 

Program conimuts 
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Read*' Service tor lacing page ^572- 




Color Computer 4K $ 31 

w/Ext. Basic 16K $459 



Model II 64K 
S3300 





Atari 600 32K $769 



Model III 16K 

$839 

2 DR + RS232C 

$2100 



These are lust a few of our many 
fine offers — computers, periph- 
erals, modems, printers, disc 
drives and an unusual selection 
of package values. Call TOLL 
FREE today and check us out for 
price and warranty. 



Factory warrantees on Apple and 
Atari equipment Other equipment 
carries manufacturer's warranty or 
Computer Plus 180 day extended 
warranty Combined warrantees 
carry Computer Plus 180 day war- 
ranty or original manufacturer's 
warranty. 



DEALER INQUIRIES ARE INVITED 

Pnc*t sublect to change without notice 

TRS-flO it a registered trodemork ot Tandy Corp 

call TOLL FREE 
1-8QO- 343-81 24 



com 




Write lor your 
free catalog 



Dept. K 

245A Great Road 

Littleton. MA 01460 

(617)4*6-3193 



Program continued 

840 L(N,P)=L(N,P)+2:L(N,0)=L(N,0)+2:GOTO 1050 

850 IF I${2) <>"L" THEN 890 

860 REM 3 POINT BASKET SCORED ROUTINE 

870 J(N r P) =J(N,P) +1 

880 L(N,P) =L(N,P)+3:L(N,0)=L(N,0)+3:GOTO 1050 

890 IF I$(2)<>"T" THEN 930 

90 REM TWO FOULS MADE ROUTINE 

910 K(N,P) =K(N,P) +2 

920 L(N,P)=L(N,P) +2:L(N, 0) =L (N, 0) +2 :GOTO 1050 

930 IF I$(2)<>"F" THEN 970 

940 REM ONE FOUL SCORED ROUTINE 

950 K(N,P) =K(N,P) +1 

960 L(N,P) =L(N,P)+1:L(N,0)=L(N,0)+1:GOTO 1050 

970 IF I$(2)<>"P" THEN 1030 

980 REM PERSONAL EOUL ROUTINE 

990 IF M(N,P)<6 THEN M(N,P) = M(N,P)+1 

1000 IF M(N,0)<7 THEN M (N , 0) =M (N , 0) +1 

1010 GOTO 1050 

1020 REM SECOND CHARACTER INVALID - TELL USER 

1030 PRINTP1000, "SECOND CHARACTER INVALID" ;: GOTO 180 

1040 REM SCREEN DISPLAY ROUTINE 

1050 CLS:N=0:P=1:I=J(0,0) :IF J{1,0)>I THEN I=J(1,0) 

1060 PRINT TAB(0) "H: " ;TAB{ 3) B$ (N , 0) ; " ->" ; L(M, 0) ;TAB( 24) "TF-" ;M ( 

N r 0) ;TAB(33) "V: " ;TAB ( 36) B$ ( P, 0) ;" ->";L(P,0) ; TAB (57) "TF-";M(P,0) 

1070 PRINT TAB(1)"# PLAYER" ;TAB ( 17) "G F PT PF" ;TAB ( 34) " I PLA 

YER":TAB(50) "G F PT PF" 

1080 FOR Q * 1 TO 13 

1090 IF KQ THEN PRINTrGOTO 1110 

110 5 PRINT TAB(0)A$(N,Q) ; TAB ( 3 ) B$ (N ,Q) ; TAB ( 16 ) J ( N r Q) ;STR$(K(N,Q) 

) ;TAB(23)STRS(L(N,Q) ) ; TAB (27) STR$(M(N,Q) ) ?TAB(33) A$ ( P r Q) ; TAB (36) 

B$(P,Q) ;TAB(49) J(P,Q) ;STR$(K(P,Q) ) ; TAB (56) STR$(L(P,Q) ) ;TAB(60)ST 

R$(M(P,Q)) 

1110 NEXT 

1120 GOTO 180 

1130 REM INFORMATION SCREEN DISPLAY ROUTINE 

1140 CLS:PRINT TAB( 16) "BASKETBALL SCOREKEEPING PROGRAM" 

1150 PRINT: PRINT "PROGRAM WAS DESIGNED FOR EASE OF USE WHILE KEEP 

ING SCORE OF A" 

1160 PRINT'BASKETBALL GAME IN PROGRESS AT ANY COMPETITIVE LEVEL 

— PRO," 

1170 PRINT"COLLEGE, SCHOLASTIC OR PICK-UP VARIETY .": PRINT 

1180 PRINT"PROGRAM FEATURES A 'HELP' FACILITY BY KEYING '?' AND 

CODES FOR: " 

1190 PRINT"2 POINT FIELD GOALS, 3 POINT FIELD GOALS (PROS) , 1 OR 

2 FOUL" 
1200 PRINT'SHOTS MADE, AND RECORDING A PLAYER'S PERSONAL FOULS." 
: PRINT 

1210 PRINT"LIMITATIONS INCLUDE: 12 CHARACTER MAXIMUM FOR NAMES O 
F TEAMS" 
1220 PRINT"AND PLAYERS, TEAMS CAN HAVE A MAXIMUM OF 13 PLAYERS." 

1230 PRINT:PRINT 

1240 PRINT TAB(39)"PUSH 'ENTER' TO CONTINUE" 

1250 INPUT CS 

1260 RETURN 

1270 REM VALID INPUT CODE SCREEN DISPLAY ROUTINE 

1280 CLS:PRINT@9, "VALID INPUT CODES FOR THE 'ENTER DATA' REQUEST 

1290 PRINT@133, "CODES: ?" : PRINT@145 , "HELP NEEDED, DISPLAY THIS 

SCREEN" 

1300 PRINT@205,"D":PRINT@209, "DISPLAY TEAM AND PLAYER INFORNATIO 

N" 

1310 PRINTP269,"R":PRINT@273, "RESET TEAM FOULS TO ZERO" 

1320 PRINTe333,"X":PRINTe337, "INPUT KEYING ERROR - IGNORE (IN A 

NY POSITION)" 

1330 PRINT@397,"E":PRINT@401,"GAME OVER - EXIT FROM PROGRAM" 

1340 PRINT@460,"HA" : PRINT0465 , "ADD PLAYER TO HOME TEAM LIST" 

1350 PRINT@524,"VA" : PRINT0529 , "ADD PLAYER TO VISITING TEAM LIST" 

1360 PRINT@580,"( * = 'H' FOR HOME TEAM, 'V FOR VISITING TEAM B 

ELOW) " 

1370 PRINT@650,"*BNN" : PRINTG657 , "2 PT FIELD GOAL BY PLAYER NN" 

1380 PRINT@714,"*LNN":PRINT@721,"3 PT FIELD GOAL BY PLAYER NN (P 

ROS/LONG SHOT) " 

1390 PRINT@778,"*FNN" : PRINT@785 , "1 PT FOUL SHOT MADE BY PLAYER N 

N" 

1400 PRINT@842,"*TNN" : PRINT0849 , "2 PTS ON FOUL SHOTS MADE BY PLA 

YER NN" 

1410 PRINT0906,"*PNN" :PRINT@913, "PERSONAL FOUL AGAINST PLAYER NN 

1420 RETURN 

1430 PRINT@998,"PUSH 'ENTER' TO CONTINUE" 

1440 INPUT C$:RETURN 
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THE 




SWIT 

SWITCH TO 5 VDOUBLE DENSITY 



LNDoubler 5/s 



FEATURES 

• 5- and 8-inch* disk drives 

• Single- & double-density 

• Any size and density in any mix 

• Read Model I, II* and III disks 

• 5- or 8-inch* system disk 

• Single & double sided disk drives 

• DOS+ 3.3.9 included, with Disk 
BASIC. 

• 6 month warranty 

• Up to 3.75 megabytes online 
Easy installation - plug-in & run 
Analog phase lock loop data 
separation 

Precision write precompensation 
Regulated power supply 
Guaranteed operation at 4MHz 
All contacts gold plated 
Solder masked & silk screened 
Runs under DOS+ 3.3.9, TRSDOS 
2.3, NEWDOS 2.1, NEWDOS/80 
1.0, LDOS, NEWDOS/80 2.0, 
and ULTRADOS 

Reads 40- and 35-track disks on 

80-track drives 

FD1791 controller + your FD1771 

Fits Model I expansion interfaces 

Fits LNVV expansion interfaces 
' Track configurations to 80-tracks 

5 inch disk storage increased to: 
161,280 bytes - 35-track SS/DD 
322,560 bytes - 35-track DS/DD 
184,320 bytes - 40-track SS/DD 
368,640 bytes - 40-track DS/DD 
368,640 bytes - 80-track SS/DD 
737,280 bytes - 80-track DS/DD 

8 inch disk storage increased to: 



591,360 bytes - 77-track SS/DD 
1.182,720 bytes - 77-track DS/DD 
SS: single-sided DS: double-sided 
SD: single-density DD: double-density 

COMPLETE - The LNDoubler 5/8, 
switches your Model I or LNW-80 
into the most versatile computer you 
can own. The LNDoubler's switch 
allows you to boot from 5- or 8-inch 
system disks, and it's accessible from 
outside the interface. The LNDoubler 
5/8 comes with a double-density disk 
operating system (DOS+ 3.3.9), 
complete with BASIC and utility 
programs . . . ready to run your 
software NOW! 

VERSATILE - Whether you want 
single-sided, double-sided, single- or 
double-density, 5- or 8-inch operation, 
complete versatility is here today! 
Any combination of 5- and 8-inch disk 
storage is possible with the 
LNDoubler 5/8. Each of your present 
40-track, single-sided 5-inch drives 
will store up to 184,320 bytes 
(formatted storage) - that's an 80 c i 
increase in storage capacity for only 
half the cost of just one disk drive. 
With three 8-inch double-density, 
double-sided drives your Model I will 
have 3.75 Megabytes of online storage 
- that's more storage than a Model II 
or Model III! 

ADVANCED - The LNDoubler 5/8 
is the most technically advanced, 
tested and reliable double-density 



board you can buy. The LNDoubler 
5/8 has more features, more options 
and more software support than any 
other product of its kind. 

EASY TO INSTALL - The 

LNDoubler 5/8 is easy to install. 
There are no traces to cut, no wiring 
to do, just a screwdriver and a few 
minutes of your time is all that is 
required. The instructions are fully 
illustrated for all interfaces. In 
minutes you will be 'up-and-running', 
and enjoying your computer as never 
before. 

COMPARE - Compare features, 
compare quality, compare value, and 
make the SWITCH today! 
Immediate delivery from stock - at 
your dealer NOW for only 
$ 



219.95 



DKALERS - You too can 
make The Switch. 




FjNW research corpora tion 



2620 WALNUT Tuttin, CA. 92680 (714)544-5744 (714)641-8850 

•8 - ' drive operation requires special cable. 8" dm.hledrr.Miy raquim 3 SSMHl CPU ipMd-UP tDOdifiwtfoB or LNW-80 4MHz computer TR8-80 i* a trademark of Tandy Corporation. 




Just 55 hours ago, 5.3 million pounds of thrust from two solid fuel boosters sent the 
Space Shuttle Columbia into orbit. Now, on-board computers performing 325,000 
separate operations every second will help guide the Columbia safely and gracefully 
home to Earth. 

Instant Software's SPACE SHUTTLE puts you in the command pilot's chair of America's 
first reusable space vehicle. And, until commercial space flight becomes a reality, this is 
the closest you'll get to the Ultimate Flight. 



0332R-A11 Model I & III Level II 16K $14.95* 

Instant Software 



VISA 



PETERBOROUGH, N.H. 03458 



TO ORDER: 

See your local 

Instant Software dealer 

or Call Toll-Free 

1-800-258-5473 

orders only 

In New Hampshire 
1-603-924-7296 

Mon-Fn 800 am-4 30 pm E S T 



'Plus Shippir>g 



Dealer inquiries invited 



Continued from page 117 



"To help us recognize the 'programs' or 
levels of thought in our own minds, 
Hofstader engages us in various mind games. 



pie. There is no psychological proof to chart 
the metamorphosis of neuron action to 
symbol recognition to iteration. To help us 
recognize the "programs" or levels of 
thought in our own minds, Hofstader en- 
gages us in various mind games. This is the 
purpose of the fictional dialogs that follow 
each chapter of Godel, Escher, Bach. 

The main characters of the dialogs are 
the Tortoise and Achilles. The choice of 
these figures was inspired by Zeno and by 
Lewis Carroll. Zeno, a Greek mathemati- 
cian, wrote a tale about a foot race between 
the Tortoise and Achilles to illustrate his 
theories of paradoxes of motion. Lewis 
Carroll, the author of. Alice In Wonderland 
and a Nineteenth-century mathematician, 
borrowed the Tortoise and Achilles from 
Zeno to write a dialog about reasoning 
Carroll's dialog is reprinted in Godel, 
Escher, Bach. Each dialog in the book helps 
us conceptualize the intricate methods of 
human thought. 

Hofstader's dialog titled "Crab Canon" 
tells the story of a chance meeting between 
Achilles and the Tortoise in the park. In the 
middle of their conversation, they are inter- 
rupted by a friend, the Crab. The title, "Crab 
Canon," has more significance in relation 
to the dialog. 

"Crab Canon", you'll recall, is a theme 
followed by itself in reverse. The notes read 
the same melody backwards and forwards. 
In Hofstader's "Crab Canon" the lines are 
virtually the same when they are read from 
the end or from the beginning. For instance, 
the opening lines of the dialog are: 



Tortoise: Good day, Mr A. 

Achilles: Why, same to you 

Tortoise: So nice to run Into you. 

Achilles: That echoes my thoughts. 

Tortoise: And It's a perfect day for a walk. I think I'll 

be walking home soon. 



And the closing lines: 



Achilles: And It's a perfect day for a walk I think 

be walking home soon 

Tortoise: That echoes my thoughts. 

Achilles: So nice to run Into yoo. 

Tortoise: Why, same to you. 

Achilles: Good day, Mr. T. 



When the Crab appears, he's full of 
multiple-entendres and self-references. He 
talks about himself, saying he "would crab 
up a storm." Of course, his name, the Crab, 
is self-reference within the dialog. But the 
Crab's words also hint at the structure of 



the dialogue. '"Which came first— the Crab, 
or the Gene?' That is to say, 'Which came 
last— the Gene, or the Crab?"' (His refer- 
ence to his genes reflects on the structure 
of meaning in yet another way. Unless 
you're familiar with the genetics of crabs, 
you'll have to read Godel, Escher, Bach to 
appreciate the allusion.) 

The conversation between the Tortoise 
and Achilles touches on a print by Escher in 
which interlocking crabs are formed by the 
figure and the ground, and also on a crab 
canon in Bach's Musical Offering. In less 
than four pages, the word "crab" has ac- 
quired a myriad of symbolic meanings. 

The "Crab Canon" is a highly structured 
piece of writing that causes numerous sets 
of operations to be carried out within the 
reader's cognitive system. But we use such 
deep and Intertwined levels of interpreta- 
tion daily. While I was reading Godel, 
Escher, Bach, I dreamed one night that I was 
an Al researcher. My dream is a less 
sophisticated story than Hofstader's "Crab 
Canon." But it is a clear example of several 
levels of implicit meaning within the hierar- 
chy of my own thought processes. 

An Al research project I had been working 



on for many years was reaching its culmina- 
tion. Yet, I felt the answers to many of my 
questions were beyond my reach. I had ac- 
cess to a vast computer system and to sev- 
eral microcomputers. None of them could 
help me form ideas. I left the lab to walk 
along a secluded beach at twilight. 

I walked up and down the beach for sever- 
al hours. I contemplated subtle distinctions 
between the minds of men and the minds of 
machines. Finally, I laid down beneath a 
cluster of palm trees to sleep. As I listened 
to the waves, I thought to myself, "At least 
in this way, the human being will always be 
different from computers." I had struggled 
with ideas and depression, and I had been 
comforted by nature. 

When I awoke at dawn one of my micro- 
computers was beside me. It presented me 
with an exhaustive catalog comparing and 
contrasting the most current facts about 
human and machine intelligence. I hadn't 
programmed the computer to generate the 
list. It had acted on its own volition. 

In many ways, the dream is a synopsis of 
Godel, Escher, Bach. First, some thought 
patterns Hofstader stresses are evident. 
There's a circular pattern of self-reference, 
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NEED A PRINTER? 

UP TO 25% DISCOUNTS! — same day shipment! 



CENTRONICS 739 (lI££,^) 

With Graphics and 

Word Processing Print Quality 



• 18 x 9 dot matrix; suitable tor word 
processing • Underlining • proportional 
spacing • right margin justification • serif 
typeface • 80/100 CPS • 9Vi" Pin 
Feed/Friction feed • Reverse Platen • 
80/132 columns • Top of form 

CENTRONICS 738-1 (Parallel) (List $995) $765 

CENTRONICS 739-3 (Serial) (List $1045) 815 

GRAPPLER™ Apple graphics interface $165 





ANADEX 





Dot Graphics, Wide Carriage 



• 11 x 9 dot matrix: lower case descen- 
ders • Dot resolution graphics • Bi- 
directional, logic seeKing • Up to 200 
CPS • RS 232 Serial & Parallel • Forms 
control • X-ON/X-OFF • Up to 6 part 
copy. 

ANADEX 9501 (List $1650) * Call 

GRAPPLER™ Apple graphics Interface $165 



VISTA — C. ITOH STARWRITER 



Daisy Wheel Letter Quality 

• 25 CPS (Optional 45 CPS) • Typewriter 
quality • Centronics parallel • RS 232 
Serial (Optional) • Proportional spacing • 
Bidirectional • Programmable VFU • Self 
test • Diablo compatible • Friction feed 
(Optional tractors) • 136 printable columns 

• Manufactured by C. ITOH. 



VISTA V300(C. ITOH) STARWRITER (List $1895) $1575 

IDS PAPER TIGERS 

Dot Resolution Graphics, quality print, speed 



-• " 





9 wire printhead 
^ (460) with lower case descenders • Over 

150 CPS • bi-directional, logic seeking 
^^^^ • 8 character sizes; 80-132 columns 

• Adjustable tractors • High-resolution dot 
graphics • Proportional spacing & text 
justification 

IDS 460G 9 wire printhead. graphics (List $1094) $Call 

IDS 560G wide carriage, graphics (List $1394) $Call 

GRAPPLER™Apple graphics interface * 165 



CALL FOR INFORMATION & CATALOG 

(800) 854-8275 

CA,AK, HI (714) 630-3322 
RETAIL PRINTER STORES: 

Store #1 3150 E. La Palma, #1 Anaheim, CA (714) 630-3622 
Store #2 13604 Ventura Bl. Sherman Oaks, CA (213)501-3486 

Store Hours: M-F 10-6 Sat. 10-4 



EPSON MX80/MX70/MX100 



Low-Priced 
Professional Print Quality 

• 9 x 9 dot matrix • Lower case descenders 
£t • 80 CPS • Bidirectional, Logic seeKing • 
40, 66, 80, 132 columns Der line • 64 special 
graphic characters: TRS-80 Compatible • 
Forms handling • Multi-pass printing • Ad- 
justable tractors 

We also carry a full line 
of Epson Accessories. 

EPSON MX80<& MX80FT) (List $645) $Call 

EPSON MX70 Dot graphics, 5x7 matrix (List $450) $Call 

EPSON MX100 wide carriage . graphics (List $945) $C«II 

GRAPPLER™ Apple Graphics Interface $165 

GRAFTRAX 80 • MX80 Dot Graphics $ 95 

MX80/70 FRICTION FEED KIT 

User installable Kit for single sheets. 

Easv 30 minute installation $ 75 

ANACOM 

Low Cost, High Speed, Wide Carriage 

•9x9 dot matrix • Lower case descenders • Wide carriage 
Adjustable tractors to 16" • 150 CPS. Bidirectional, Logic SeeKing 

ANACOM 150 (List $1350) $995 



NEC SPINWRITER 

High Speed Letter Quality 

• 55 CPS • Typewriter quality • Bidirectional • Plotting • pro- 
portional spacing. 

5510 RO, Serial (List $3055) $2575 

5530 RO, Parallel (List $3055) $: 



TELEVIDEO CRT'S 

AT DISCOUNT PRICES! 

TVI910 "V 

i TVI912C I Please Call Toll Free 

■_, T wi Qonr } Prices are too low to 

tv \airV I advertise 

OUANTITV PRICING AVAILABLE I VI ybU J 

CRT'S 
ADDS VIEWPOINT (List$698) $60t 

PRINTERS 

MALIBU 165 wide carriage, graphics, letter quality (List $1975) $1325 
QUME 5/45 typewriter quality (List $2905) $2559 
DIABLO 830 SCall 

INTERFACE EQUIPMENT 

EPSON ACCESSORIES $ Call 

ORANGE INTERFACE for Apple II 

parallel interface board & cable $ 110 

MICROTRONICS Atari parallel interface $ 69 

TRS-80 CABLES to Keyboard or Exp interface $ Call 

NOVATION D-CAT direct connect modem $ 180 



^Orange micro * 

■■ inc. -** gg 



IOC. "2« 

3150 E. LaPalma, Suite G, Anaheim, CA 92806 



Phone order WELCOME, same day shipment Free use ot VISA & MASTER 
CARD. COD's accepted. Manufacturer's warranty Included on all equipment. 
Prices subject to revision. 



"The debate over artificial intelligence is 

a two-step strange loop, an infinite quest represented 

by an interplay between questions and answers." 



not unlike a Strange Loop. While I was 
asleep I dreamed; and in that dream, I 
dreamed I fell asleep. 

Within the dream, I awoke at dawn. For 
me the image of awaking at dawn is— 
through isomorphism— a symbol of human 
discovery. When I actually woke up the next 
morning, I'd gained insights to Godel, 
Escher, Bach. 

The dream's synopsis of the book begins 
with Its recognition that the distinctions 
between human and computer intelligence 
are apparent. Scientists and researchers 
have a relatively strong understanding of 
the thought processes of number computa- 



tion, and to some extent of logic. These 
things we have programmed into com- 
puters with measured success. 

The dream also recognizes that the gap 
between the two intelligences is currently 
the burden of human intelligence. To us 
volition and creativity are mysterious pro- 
cesses, and so far unprogrammable. The 
achievements of programs such as 
SHRDLU help us understand our own in- 
telligence. And as our understanding of our 
own intricate thought processes increases, 
it seems inevitable that computer in- 
telligence will advance. At the conclusion 
of the dream, the question "Can machines 




M. C. Escher' s Waterfall 
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think?" is overshadowed by a new question. 
"Can machines feel emotion?" 

Alan Turing, the computer scientist 
quoted at the opening of this article, be- 
lieved the complexity of the operations and 
responses a machine is programmed to 
handle is related to the quality of its in- 
telligence. Hofstader gives a great deal of 
consideration to Turing's suggested test 
for computer intelligence, and also to the 
common objections to machine intelli- 
gence which Turing anticipated. But 
Hofstader also considers a response to Tur- 
ing's proposals by the philosopher J.R. 
Lucas. The following remarks are from 
Lucas' paper Minds, Machines, and Godel. 
A lengthy excerpt is Included in Godel. 
Escher, Bach. 

■ Complexity otten does introduce qualitative differ 
ences. Although it sounds implausible, it might turn 
out that above a certain level ol complexity, a 
machine ceased to be predictable, even in principle. 
and staned doing things on Its own account, or. to 
use a very revealing phrase, it might begin to have a 
mind of Its own It would begin to have a mind ol its 
own when it was no longer entirely predictable and 
entirely docile, but was capable ot doing things 
which we recognized as intelligent, and not just 
mistakes or random shots, but which we had noi pro- 
grammed into it But then it would cease to be a 
machine, within the meaning ot the act What Is at 
stake in the mechanist debate is not how minds are, 
or might be, brought into being, but how they 
operate." 

Here is a new question, closely related to 
the question presented by the dream. If we 
learn how minds operate, and if a machine 
is programmed to act like a human mind, 
and if that machine acts of its own volition, 
is it still a machine? 

A friend of Hofstader's once commented 
that Al should have its own incompleteness 
theorem because "Once some mental func- 
tion is programmed, people soon cease to 
consider it an essential ingredient of "real 
thinking.'" The paradox of artificial in- 
telligence is that it exists (at some levels), 
but that existence cannot be proven. We 
know too little about human intelligence to 
bear the burden of proof. 

The debate over artificial intelligence is a 
two-step strange loop, an infinite quest 
represented by an interplay between ques- 
tions and answers. When one question is 
answered, another will always arise. This is 
the central message of Godel, Escher, 
Bach: An Eternal Golden Braid. ■ 

N»ncy Robertson is He lorm&r news editor lor 80 Micro- 
computing She is now Irving and writing in Peterborough 

M. C. Escher photographs courtesy of the 
Vorpal Galleries 
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PRESTO! Accessories shipped in 24 Hours 

We have a large stock of accessories available 

for immediate shipment, including ribbons, 

interfaces, cables, thimbles and other items 

for Anadex, Epson, Centronics, NEC and 

Okidata printers. We also stock the printers 

for the accessories. We stock Amdeck 

438 monitors, terminals by TEC, Telray, and 

Micro-Term, and the Altos Microcomputer 

Product line. Make us your stocking source. 





ANADEX DP-9000 
All functions are 

program accessible. 
Hi-Res Graphics. 



CENTRONICS 739 

A great printer 

with many new 

features 



NEC-3500 

A New 
Spinwnter at 
a lower cost 



ASK FOR OUR 

INSTANT DISCOUNT 

From Roy Hawthorne 

Talk To Bill Tokar On 

Applications 



CALL TOLL FREE 

U.S.A. 

1-800-521-2764 

MICHIGAN 

1-800-482-8393 



Ramambar: 
We are opan 
8:30 AM to 
6:00 PM EST 
Monday — Friday 




Mo Credit 
Card Penalty 



WRITE TO: 

"The Stocking Source" 
24069 Research Drive 
Farmington Hills, Ml 
48024 
313-474-6708 



SAY MERRY CHRISTMAS 



T.M. 




with 



microcomputing 



Give all your friends who own a TRS-80* the best possible Christmas present— 
80 Microcomputing. 80 Microcomputing is the only journal devoted to the TRS-80* 
and its users. . the only journal packed with reviews, programs, applications and hun- 
dreds of dollars worth of software. 80 Microcomputing — the best idea for Christmas 
yet, for only $25.00 a year. 

Bill: Me MC VISA AE 

Card # ^Expire Date 




Signature 


Interbank « 




My Name 






Address 






City 


State 


Zip 


Please enter a one year gift subscription to: Kjfi|| 
Name 




Address 


City 


State 
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CONSTRUCTION 



Correcting a failure to communicate. 



Tape Regenerator 



Cass R. Lewart 
12 Georiean Dr. 
Holmdel, NJ 07733 



The tape recorder is an inexpensive and 
popular means of program and data 
storage for the TRS-80. Even disk owners 
sttl! need the tape recorder to transfer pur- 
chased cassette programs to disk. Unfor- 
tunately the tape recorder brings Its share 
of problems to the unwary. One of the 
most frustrating moments for a TRS-80 
owner is when, after spending several 
minutes loading a new program, the letter 
"C" or a permanent double asterisk ap- 
pears in the right upper corner of the 
monitor screen. 

Frequently a Basic tape may seem to 
load correctly, but whl produce a garbage 
listing. 

Regardless of the symptoms, the 
diagnosis is the same— an irrecoverable 
error occurred during program reading. 



(At this point, grown men and women have 
been known to cry.) The only way to load a 
program 'rorn a poor y recorded tape is to 
find by repeated trial and errc the very 
narrow range of volume control settings 
good for this particular taoe. There is also 
no assurance that the volume control set- 
ting will work the next time around even 
with the same tape; a slight recorder head 
misadjustment may require repeating the 
whole procedure. 

The Problems 

The reason for difficulties in loading 
commercial tapes such as Radio Shack's 
is that they are reproduced on high-speed 
audio machines not specifically designed 
for digital encoding and not always kept in 
tip-top condition. The ideal signal wave 
form and the typical good and poor wave 
forms found on commercial copies of 
Level II programs are shown in Figs. 1 and 
2. The superimposed noise, 60 Hz hum, 



T1 


Audio transformer, R ShacK 273-1380 or equiv. 


T2 


12 Voit transformer, R Snack 273-1385 or equ v 


01 02 


Silicon diodes 50 Voll/IA 


03 


3-6 Vo ! t Zener diode 


RECT 


Bridge rectifier 50 Volt/1 A 


LED1.LE02.1ED3 


Red iighf emitting diodes 


IC1 


74LS02, Quad NOR gate 


IC2 


74LS367, Hex tr.-state bu"er 


iC3 


7805 Positive 5 Vcit regulator 


01 


NPN silicon transistor. R, Shack 276 2014 or equlv 


R1.R3.R5 


270 Ohm resistors 


R2 


1C Kohm resistor 


R4.R6 R7 


470 Ohm resistors 


C1 


200 MF<35 Volt capacitor 


C2C3 


0.1 mf capacitors 


Si .82 


SPOT switches 


Pi 


2 by 20 pin edge connector, H ShacK 276-1558 or equiv. 



A drilled glass epo»y silk screened p-inted circuit boaro, and a listing of Regen In Basic to allow POKEIng it into 
memory can be purchased Irom C&R Lleclronics, P.O. Sox 217. Holmde , NJ 07733 lor J10 95 ppd New Jersey 
■esidents, please add 5°'a sales tax. Alio* 2-3 weeks for de'iverv 

Table 1. Parts list 



amplitude distortion, ringing, and, what Is 
worst— the incorrect displacement of the 
data pulses relative to the clock pulses- - 
make it difficult or even impossible for the 
computer to read the tape. 

If a single reading error occurs, e.g., one 
out of 100,000 pulses in a typical program 
is misread, then the whole program cannot 
be executed. Once a Basic program has 
been properly loaded one can make a good 
backup copy of it with the CSAVE com- 
mand. It is not as straightforward with 
System programs. Monitors such as T-Bug, 
MON3, RSM or TRCopy will generate a back 
up copy o f a System program, but with se- 
vere limitations, i.e., the original program 
has to be readable and the program cannot 
overwrite the monitor. 

The Solution 

The Tape Regenerator, on the other 
hand, will take any TRS-80 tape with Level 
II Basic or System programs, even if it is 
poorly recorded, and generate, using the 
TRS-80 computer, a backup copy of the 
programs on a second tape recorder. The 
Tape Regenerator circuit and the 
associated program Regen reshape and 
retime the pulses on the new tape, thus 
producing a tape that is easily read by the 
TRS-80 circuitry. 

The Tape Regenerator does not care 
whether a program consists of multiple 
segments with separate loader or whether 
there is more than one program on a tape. 
Regen operates on one pair of clock/data 
pulses at a time, and unlike the monitor 
programs it does not store the whole pro- 
gram in computer memory. Thus tapes 
with multiple programs can be handled in 
a single run and even a 4K computer can 
back up copies of large programs. 

It should be mentioned that several 
commercially available hardware devices 
(Data Dubbers) were designed for the 
same purpose as the Tape Regenerator. 
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"The backup tapes produced from 

these devices. . . retain and may 

even worsen the timing jitter. . . " 



However, these devices only reshape the 
clock and data pulses and do not retime 
them in respect to each other as Regen 
does. The backup tapes produced by these 
devices, though better in some respects 
than the originals (thanks to pulse reshap- 
ing) retain and may even worsen the timing 
jitter— one of the major causes of tape 
reading difficulties. 

To test the soundness of the regenera- 
tion approach, multiple generations of the 
same program were made by generating 
tape 2 from 1, tape 3 from 2, etc. The test 
was run through five tape generations with 
a fairly long System program. It was found 
that a fifth generation tape would load on 
the computer as easily as the first genera- 
tion tape with no apparent degradation in 
quality. Backup copies were also made of 
commercial tapes that, due to poor record- 
ing, would not load properly at dozens of 
different volume control settings. The 
backup copies loaded then with no dif- 
ficulties. 



Circuit Description 

The circuit shown in Fig. 3 reshapes the 
clock and data pulses received from the 
first tape recorder and feeds them to the 
computer for processing. The audio 
transformer T1 provides DC separation 
between the tape recorder and the rest of 
the circuit. Switch S1 and diodes D1 and 
D2 allow selection of the better half of the 
pulse (see Control Adjustments). Zener 
diode D3 and transistor Q1 further shape 
the incoming signals. 

The NOR gate in IC1 decodes the IN 
command from the computer indicating 
that It is ready to accept data for further 
processing. Spare gates in the IC1 serve as 
buffers and open the gate in IC2 to let the 
clock/data pulses pass via P1 connector to 
the data bus in the computer. LED1, LED3 
and LED2 indicate respectively that the cir- 
cuit is powered, that the Regen program is 
running and that the tape recorder is send- 
ing data at the proper level. 
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programs 

on TRS-80* 

MODELS 1 &3 
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"The signal is partially reshaped. . . 
still it frequently can be read. . . 
where the original tape could not" 



Transformer T2 in conjunction with the 
voltage regulator IC3, full wave rectifier 
RECT and two capacitors provides 5V to 
power the transistor and ICs. J2 provides a 
"quick and dirty" direct output to the 
TRS-80 if no backup copies are required. 
The signal at this point is partially re- 
shaped but not retimed. Still it frequently 
can be read by the computer where the 
original tape could not be read. 

Regenerator Program Regen 

The Regen program shown in Listing 1 
takes care of retiming and reshaping of 
Level II clock and data pulses. After clear- 
ing the screen, displaying a message with 
the author's name, and putting a graphic 
character in the upper right corner of the 
screen, the program waits for the clock 
pulse from the first tape recorder. After 
finding it another test is made to make 
sure that It was not a transient. 

When the clock pulse is confirmed, it is 
put out after a 200-microsecond delay 
using subroutine output. This subroutine 
produces a perfect signal, as shown in Fig. 
4, via the computer plug leading to the 
recording (AUX) jack on the second tape 
recorder. The graphic screen character is 
changed every time a clock pulse is 
detected to indicate that something is 



happening. A search for the data pulse 
now begins. A delay of 500 microseconds 
excludes any residual ringing from the pre- 
ceding clock pulse. 

If no data pulse is found during the 
following 700-microsecond window, the 
search for the next clock pulse starts 
again. If a data pulse is found, it is tested 
to exclude a transient; if the data pulse is 
confirmed, it is put out at the end of the 
1000-microsecond interval that started at 
the beginning of the preceding clock pulse 
as shown in Fig. 4. A data pulse appearing 
any time between 500 microseconds and 
1200 microseconds after a clock pulse is 
thus correctly retimed to occur exactly 
1000 microseconds after the clock pulse. 

The program then continues after a 
100-microsecond delay with the search for 
the next clock pulse. The above-mentioned 
delay constants of course could be modi- 
fied to operate on Level I programs, or to 
make Level II programs generated on the 
Model I computer more readable on the 
Model III computer, with its slightly dif- 
ferent optimum tape-timing requirements. 

Regen can be loaded either from Listing 
1 using EDTASM or one of the monitor pro- 
grams, or it can be loaded by running an 
equivalent Basic program mentioned in 
the parts list, which will POKE the program 
into memory. 



Operating Instructions 

1. Turn off the power, then make all con- 
nections between the tape recorders, com- 
puter, and the Tape Regenerator as shown 
in Fig. 5. 

2. Turn the power on to the computer 
and the Tape Regenerator. LED1 should 
light up and the Memory Size question 
should appear on the screen. If it does not, 
check all connections, in particular the 
40-pin connector from the Tape Regen- 
erator to the CPU or the expansion inter- 
face. Repeat steps 1 and 2 if necessary. 

3. Load the Regen program and run it. 
LED3 should now light up, author's name 
should appear in the middle of the screen, 
and a stationary graphic character should 
appear in the right upper corner. The pro- 
gram is in an infinite loop and will run until 
you reset the computer or turn it off. 

4. Start playing the tape from tape 
recorder 1 and set the polarity switch and 
the volume control on the tape recorder as 
explained under Control Adjustments. Re- 
wind the first tape recorder. 

5. Start tape recorder 1 in play mode and 
tape recorder 2 in record mode. Observe 
LED2 and the changing graphic character 
on the screen. When LED2 goes dark and 
the graphic character stops changing, you 
are finished with the recording. Turn off 
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Fig. 3 




into a Word Processing or 
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If you require a system printer, the new Okidata 
Microline 82A, 83A, 84 should be your choice. 

These printers feature: 

• 9x9 Dot Matrix heads rated at 200 million 
characters continuous duty - true lower descenders 

• Full forms control - vertical tab, top of form 
Block Graphics 

• Bidirectional, Short Line Seeking 

• Dual Interface - Parallel & RS-232C Serial 
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Y AUTO-BASIC > 

BASIC 

LANGUAGE 

PROGRAM 

WRITER 

SIMPLE TO USE 

FOR THE TRS-80* 
MODEL I 

YOU fcNTER YOUR EQUA 
MON-ONE OR MORE 

YOU ENTER THE 
NUMERIC DATA — INPUT 
VARIABLES 

AUTOBASIC WRITES THE 
PROGRAM FOR YOU 

AUTO-BASIC STORES IT 
IN A DISK FUE 

AUTO-BASIC LOADS THE 
PROGRAM INTO THE COM- 
PUTER AND RUNS IT 

YOU CHECK THE LOGIC 
OF THE EQUATIONS BY EXAMIN- 
ING THE OUTPUT OF THE 
PROGRAM WRI'TEN BY AUTO- 
BASIC 

YOU POLISH THE PRO 
CRAM BY ADDlNC SENTENCES 
WHILE IN AUTOBASIC 

AUTOBASIC REWRITES 
THE PROGRAM USING YOUR 
SENTENCES 

YOU'RE FINISHED!! 

HOURS OF TIME SAVED COM- 
PARED TO WRITING THE PRO- 
GRAM YOURSELF. AUTOBASIC 
ASKS YOU FOR INFORMATION 
IN "PLAIN ENGLISH." 

SPECIAL FEATURES 

YOUR CHOICE OF THE 

PROGRAMS OUTPU T PRINTED 
TO THE VIDEO SCREEN. YOUR 
PRINTER. OR A DISK FILE 

COMPLETE SUBROUTINE 
HANDLING AND EXTRACTION 
FROM YOUR OTHER PRO- 
GRAMS 

TWO PROGRAM STRUC- 
TURES-DATA REDUCTION- 
CONDITIONAL 

ALL TYPES OF VARIABLES 
CAN BE USED INCLUDING AR- 
RAYS 

AUTOBASIC TAKES THl PRO- 
GRAMMING PROCESS ONE 
LEVEL HIGHER THAN THE 
STRUCTURED LANGUAGES 
SUCH AS BASIC. OR FOR IRAN 
AUTOBASIC PAYS FOR ITSELF 
IN A SHORT TIME. IT IN- 
CREASES YOUR PRODUCTIVI- 
TY. AND REDUCES THE 
NUMBER OF PROGRAMS YOU 
HAVE TO BUY. 

MODEL I REQUIRES: 32K RAM. 
ONE DISK DRIVE MINIMUM 
$195.00 

SEND CHECK OR MONEY ORDER TO: 

• 388 
SCHNEIDER ENTERPRISES 

1252 N. BROWNSLAKE RD. 

BURLINGTON, WIS. 53105 

DAYS 414-961-2800, EVF .414*5346813 
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"The Tape Regenerator will 
only process tapes having 
complete program information." 



everything. The 40-pin connector can be 
left in place as it does not interfere with 
normal computer operation. 



Control Adjustments 

There are two controls to be set to prop- 
erly read a poorly recorded tape: the polari- 
ty switch in the regenerator circuit and 
the volume control on the tape record- 
er. Make both settings while the tape 
recorder 1 is in play mode. The settings 
will vary from tape to tape depending on 
the machine on which it was recorded. 
However, your own backup tapes produced 
with the Tape Regenerator or CSAVE com- 
mand should all work with the same set- 
tings. First, set the polarity switch to the 
position giving a stronger signal as evi- 
denced by LED2 being brighter at a low 
volume control setting. Then find the opti- 



volume control setting by one of the 
following methods: 

• Turn up the volume control until LED2 
lights up brightly, then back up slightly. 

• Turn the volume control slightly above 
the point when the graphic character In the 
corner of the screen starts changing. 

• Observe the Incoming pulses with a 
scope at point TP1 (best method) and ad- 
just the volume control for cleanest and 
widest pulse shape. 

Program Limitations 

The Tape Generator will only process 
tapes having complete program informa- 
tion. Tapes with eighteen-minute gaps (see 
history books) or those with pulses of very 
unsteady amplitude or embedded in noise 
are not acceptable. Neither the Tape Regen- 
erator nor any other device will restore 
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"Neither the Tape 

Regenerator nor any other 

device will restore them." 



them. The hardware and software de- 
scribed here will only work with a Model I, 
Level II computer. 

Construction Hints 

Keep all wires as short as possible; use 
of a printed circuit board is highly recom- 
mended. As only four contacts are being 
used on the 40-pin connector you can 
spread the remaining contacts with a 
screwdriver for easy insertion. Before turn- 
ing the power on, check all connections. 



Proper care may prevent unexpected fire- 
works. 



Not* for Disk Users 

The Regen program is fully relocatable 
and can be stored at any convenient loca- 
tion in memory not interfering with DOS. 
The Dl instruction at the beginning of the 
program will assure that the internal clock, 
which would interfere with tape operation, 
is not running. ■ 
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0014 
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001A 


00170 DL200 
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0022 


00180 DL700 


EQU 


34 




0022 


00190 LEN2 


EQU 


34 




00FP 


00200 CASS 


EQU 


0FFH 




01C9 


00210 CLS 


EQU 


01C9H 




3C3F 


00220 BLINK 


EQU 


3C3FH 




3DD6 


00230 LINE1 


EQU 


3DD6H 




3E0F 


00240 LINE2 


EQU 


3E0FH 




4A00 


00250 


ORG 


4A00H 




4A00 CDC901 


00260 REGEN 


CALL 


CLS 


1 CLEAR SCREEN 


4A03 F3 


00270 


DI 




;DISABLE INTERNAL LOCK 


4A04 216D4A 


00280 


LD 


HL,TAB1 


; DIE PLAY LINE1 


4A07 11D63D 


00290 


LO 


DE,LINE1 




4A0A 011400 


00300 


LD 


BC,LEN1 




4A0D EDB0 


00310 


LDIR 






4A0P 21814A 


00320 


LD 


HL,TAB2 


.-DISPLAY LINE2 


4A12 110P3E 


00330 


LD 


DE.LINE2 




4A15 012200 


00340 


LD 


BC,LEN2 




4A18 EDB0 


00350 


LDIR 






4A1A 213F3C 


00360 


LO 


BL, BLINK 


(POINTS TO SCREEN CORNER 


4A1D 0609 


00370 START 


LD 


B,DL100 


;100 NICS DELAY 


4A1F 10PE 


00380 DEL0 


DJNZ 


DEL0 




4A21 7E 


00390 


LD 


A, (HL) 




4A22 3C 


00400 


INC 


A 


; CHANGE GRAPHIC BLOCK 


4A23 F6B0 


00410 


OR 


80H 




4A2S E6BF 


00420 


AND 


0BFH 


; ASSURE GRAPHIC CHARACTER 


4A27 77 


00430 


LD 


(HL) ,A 


(DISPLAY NEW CHARACTER 


4A28 DB00 


00440 SRCHC 


IN 


A, (PORT) 


(START CLOCK PULSE SEARCH 


4A2A IF 


00450 


RRA 






4A2B 30FB 


00460 


JR 


NC, SRCHC 


(CLOCK PULSE FOUND? 


4A2D DB00 


00470 


IN 


A, (PORT) 


|YES, TRANSIENT ONLY? 


4A2F IF 


00480 


RRA 






4A30 30F6 


00490 


JR 


NC, SRCHC 


;YES, KEEP SEARCHING 


4A32 061A 


00500 


LD 


B,DL200 


;NO, SET 200 NICS DELAY 


4A34 10FE 


00510 DELI 


DJNZ 


DELI 




4A36 CD584A 


00520 


CALL 


OUTPUT 


»PUT OUT CLOCK PULSE 


4A39 0622 


00530 


LD 


B,DL700 


(START 700 NICS READ WINDOW 


4A3B DB00 


00540 SRCHD 


IN 


A, (PORT) 


(SEARCH FOR DATA PULSE 


4A3D IF 


00550 


RRA 






4A3E 3804 


00560 


JR 


CFOUNDl 


( FOUND? 


4A40 10F9 


00570 


DJNZ 


SRCHD 


(NO, WINDOW TIMED OUT? 


4A42 18D9 


00580 


JR 


START 


(YES, SEARCH POR CLOCK PULSE 
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00590 FOUND1 


IN 


A, (PORT) 


(TRANSIENT ONLY? 


4A46 IF 


00600 


RRA 






4A47 3804 


00610 


JR 


CPO0ND2 


(NO 


4A49 10F0 


00620 


DJNZ 


SRCHD 


(YES, WINDOW TIMED OUT? 


4A4B 18D0 


00630 
00640 


JR 


START 


(YES, SEARCH FOR CLOCK PULSE 
(DATA PULSE FOUND, 


4A4D DD23 


00650 F0UN02 


INC 


IX 


(WASTE 10 CYCLES 


4A4F CBSE 


00660 


BIT 


3,(HL) 


(WASTE 12 CYCLES 


4A51 10FA 


00670 


DJNZ 


FOUND2 


(WINDOW TIMED OUT? 


4A53 CD584A 


006 80 


CALL 


OUTPUT 


(YES, PUT OUT DATA PULSE 


4A56 18C5 


00690 


JR 


START 


(SEARCH FOR CLOCK PULSE 


4A58 3E05 


00700 OUTPUT 


LD 


A, HIGH 


(PULSE OUTPUT 


4A5A D3FF 


00710 


OUT 


(CASS) , A 


(PULSE HIGH 


4ASC 0612 


00720 


LD 


B.DL150 


(150 MICS DELAY 


4A5E 10PE 


00730 DEL2 


DJNZ 


DEL2 




4A60 3E06 


00740 


LD 


A, LOW 




4A62 D3FF 


00750 


OUT 


(CASS) ,A 


(PULSE LOW 


4A64 0612 


00760 


LD 


B.DL150 


(150 MICS DELAY 


4A66 1IFE 


00770 DEL3 


DJNZ 


DEL3 




4A68 3E04 


00780 


LD 


A, CENTER 




4A6A D3FF 


007 90 


OUT 


(CASS) ,A 


(RESTORE TO CENTER 


4A6C C9 


00800 


RET 






4A60 54 


00810 TAB1 


DEFM 


'TAPE REGEN PROGRAM' 


4A81 43 


00820 TAB2 


DEFM 


'COPYRIGHT (C) 


1981 CASS R. LEWART' 


4A00 


00830 


END 


REGEN 




00000 TOTAL 


ERRORS 












Listing 


1. Regen Progra 


m 



loiu/e/FOfl 

AD€flD 

MICROCOMPUT6R 

no.45 




101U/e/FOfl 
flD€AD 

MICROCOMPUT6R 
no.5 





as 



• See List ol Advertisers on page 386 
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CONSTRUCTION 



Make your computer a sophisticated 80. 



Real World Interface— Part I 



Elliott K. Rand 
P.O. Box 552 
Melbourne, FL 32901 



do not jump suddenly from 50 degrees to 70 
degrees; velocities do not change from to 
60 mph in an instant. However, computers 
use numbers that appear to change abrupt- 
ly. There is no such thing as a fraction of a 



bit. Obviously, some translation is needed 
in both directions. 

Input/Output 

Our goal is to get information on the data 



With a few trivial exceptions, every byte 
of information in your system got 
there through a keyboard. Missing is a real- 
time, now communication with the physical 
w>rld: complex communication, not just 
turning a switch on or off. Sensing the real 
world, the computer can be programmed to 
respond intelligently and control the out- 
side world. With additional sensors to 
monitor its action, the system becomes 
self-adjusting. 
The world is continuous— temperatures 




Fig. 1. I/O Control = Bus Signals in the 
TRS-80. 



A-in) 

Data byte at Port (n) is transferred to accumulator. 

Format: 



Opcode 

IN 



Operands 
A,(n) 



■■■■■"■ ■ 



OBH 



I I I 



Description: 

The operand n Is placed on the bottom half (A0 through A7) of the address bus to select the I/O device at one of 266 
possible ports. The contents of the Accumulator also appear on the top half (A8 through A 1 5) of the address bus at 
this time. Then one byte from the selected port is placed on the data bus and written Into the Accumulator (regis- 
ter A) in the CPU.I 

M CYCLES: 3 T STATES: 1 1(4,3,4) 4 MHZ E.T.: 2.75 

Condition Bits Affected: None 

Example: 

If the contents of the Accumulator are 23H and the byte 7BH is available at the peripheral device mapped to I/O 
port address 01 H, then after the execution of 

INA,(01H) 

the Accumulator will contain 7BH. 



Fig. 2. Out Control - Bus Instruction. 
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INPUT 
PORT 

#(N,) 




ADDRESS 
BUS 



CONTROL 
BUS 



> 

AO 



ADDRESS 
DECODE/ 

DEVICE 
ENABLE 

(LOOKS FOR 
PORT ADDRESS 
(N)). 



DATA 
BUS 



ENABLE 



D7 



DO 



DEVICE 
*(N) 



OUTPUT 

PORT 

*(N 2 ) 



A7 

AO 



ADD 
BUS 



RESS \ 



CONTROL 
BUS 



ADD DECODE 

DEVICE 
ENABLE 

(LOOKS FOR 
PORT ADDRESS 
N 2 ). 



D7 



DO 



DATA 
BUS 



V 



DEVICE 
*(N 2 ) 



Fig. 3. Connection of data bus to data register of external device. 



Operation: A— (n) 

Format: 

Opcode Operands 
OUT (n),A 



- 1 — i — i — i — i — i — r~ 
110 10 11 

I I I I I I I 



D3H 



m — i — i — i — r~r 



Description: 

The operand n Is placed on the bottom halt (AO through A7) of the address bus to select the I/O device atone of 256 
possible ports. The contents of the Accumulator also (register A) appear on the top half (A6 through A15) of the ad- 
dress bus at this time. Then the byte contained In the Accumulator is placed on the data bus and written into the 
selected peripheral device. 

M CYCLES: 3 T STATES: 1 1 (4,3,4) 4 MHZ E.T.: 2.75 

Condition Bits Affected: None 

Example: 

If the contents of the Accumulator are 23H, then after the execution of 

OUT(01H).A 

the byte 23H will have been written to the peripheral device mapped to I/O port address 01 H. 

Fig. 4. In Control = Bus Instruction. 



A/DD/A LAB 80 

A Real World Interface 
for your TRS-80 
MOD l&lll. Control 
motor speed & direc- 
tion, measure voltages 
— any analog to digital 

or digital to analog 
operation. For details, 

see article or next 
month's advertisement. 

SPECIALS: 

16K add on memory 

prime NEC 200 nsec $18.50/8 

"Shades" green filter $18.00 

ATHANA quality 5Y« floppy disk- 
ettes with hubrings in plastic 
library case 

(soft, 10, 16 sector) 

10/34.25 

100/321 85 

BOOKS 
6809 assembly language prog. 

$16.99 
Learning Level II $15.95 

The Basic Handbook $19 95 

Microsoft Basic decoded & 

other mysteries $29.95 

TRS-80 disk & 

other mysteries $22 50 



H.I.S. - 57? 

COMPUTERMATION, INC. 




roger wilson 
vice president 

1295 Cypress avenue 
melbourne. florida 32935 
(305) 254 9399 

For fast delivery send certified checks, money ordei 
call to arrange bank wire 
transfers Personal or com- 
pany checks require two to 
three weeks to clear Add i2 
tor shipping charges 



*-Sm List Ol Advertisers on page 386 
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"Apply power to the real world 
interface; all LED's should be lit. 



bus into the outside world and convert infor- 
mation from that world into a format ac- 
ceptable to the data bus. This information 
must arrive at the data bus at a precise 
time; otherwise it will be missed or conflict 
with other signals, resulting in chaos. Pro- 
perly synchronized signals are generated 
by the central processing unit (CPU) for I/O 
control. 

Fig. 1 shows how In and Out control-bus 
signals are generated. The Z-80 responds to 
"OUT (N), A" (Fig. 2), by outputting a logic 
on pins 20 (IORQ*) and 22 (WR*). A logic 1 
appears on pin 21 (RD*) as the Z-80 forbids 
RD* and WR* signals from being low simul- 
taneously. The IORQ* and WR* signals are 
AND-ed in a 74LS32 and buffered by a 
74LS367 providing the TRS-80 OUT* con- 
trol-bus signal whenever those outputs are 
low, as indicated by the asterisks. 

At the same time, the CPU outputs the 
second byte of the instruction (a binary 
number between 00000000 and 11111111) 
onto the lower eight lines of the address 
bus causing connection of the data bus to 
the data register of the external device (see 



Fig. 3). 

The "OUT (N), A" instruction also trans- 
fers data from the Z-80 accumulator to a 
latched data register in the external device. 

The "IN A, (N)" command (Fig. 4) is 
similarly handled. Data flow is from the ex- 
ternal device to the Z-80 accumulator, 
Register A. Input normally does not require 
latching hardware. 

Instead of the variety of integrated cir- 
cuits required for signal control, output 
latching and input buffering, an 8255 
Programmable Peripheral Interface is used. 
Depending on software, this 40-pin device 
has three eight-bit ports which may be used 
for input or output; a tri-state bi-directional 
bus transceiver; or a 12-bit output port with 
an eight-bit ^ input port and a four-bit 
status port. 

For our purposes the 8255 is pro- 
grammed for simple I/O with ports A and B 
as latched output ports, and port C as an 
unlatched input port. Port B is uncommitted. 

Some Introductory Experiments 

Fig. 5. shows the real world interface cir- 



cuitry required for these experiments. Inte- 
grated circuits U5, U6, U7 and transistors 
Q1 and Q2 are not used and need not be in- 
stalled. A well-regulated (4.75-5.25 v. max.) 
+ 5-volt DC supply capable of delivering 
one ampere is required (see Fig. 6). 

Before attempting these experiments 
remove the power from your TRS-80 and the 
power supply. Never leave power on while 
setting up test hardware. 

Before installing the interconnect cable 
to the TRS-80 and the real world interface, 
connect the power supply to the real world 
interface's + 5 and ground terminals. Turn 
on the power supply. Eight light-emitting 
diodes should light up. If not, disconnect 
the power supply and examine the board for 
soldering defects. 

If all indications are normal, turn off the 
power supply, but do not disconnect it. 

Install the 40-pin card-edge end of the in- 
terconnect cable to the TRS-80 expansion 
port with the ribbon cable exiting upward. 
Pin 1 of the 40-pin DIP plug goes to pin 1 of 
socket SO 1. 

Apply power to the real world interface; 



FROM 
TRS80 
EXPANSION 
PORT 



SOI 

(40 PIN 
DIP) 



+ 5V 



RESET 



30 



22 



32 



26 



28 



24 



20 



AO 
Al 



25 



GND- 

?N - 

A2- 
A6- 
A3- 
A4- 
A5" 

A7- 



29.37 



40 



38 



34 



31 



35 



36 



U2 
74LS04 



t>* 



WR 
DO 



10 



PI 
D2 
D3 
D4 
D5 
D6 
07 
AO 
Al 



35,39 



T 



GND 



38 



U2 
74LS04 



3 



cs 



Ul 
74LS3I 



PORT 
C 



U4 
8255 



PORT ( 
A 



25 
24 
23 
22 
21 
20 
19 
IB 
10 
II 

12 

13 

17 

16 

15 

LI4 

37 

38 

39 

40 

I 

2 

3 

4 



CIO 
lO^F 



T±rC2 
'O.I^F 



CI 

O.I^F 



C3 
'O.I M F 



UI.U2.U3 



1 



lOK(ALL) 



B6 



83 



B2 



Bl 



BO 



C7 



-W\. — I . 



C6 



C5 



C3 



C2 



S02 
PORT B 
SEE 
NOTE 



S03 
) SEE 
NOTE 



74LS04 



A7 



A6 






2 5 



* 47011 
■4 Wv — 

y IO 9 8 

* 470JI 

49 — **+*■ 



12 II 






470X1 

-WV 



CI 



CO 



A7 



U7. PIN 13 
U7.PIN 2 



74LS04 



S04 

SEE NOTE 



A6 
A5 






A2 



AO 






10 9 8 



47011 

-WV— 



' 470ft 
■wv— 



vcc 



+ 5V 



*U3 v 



C4 
O.I^F 



SOS 

SEE NOTE 
NOTE . 

UNIDENTIFIED LED's AND RESISTORS ASSO- 
CIATED WITH SOCKETS S02.S03.S04, AND 
S05 ARE MOUNTED ON 16 PIN DIP HEADERS, 
NOT ON CIRCUIT BOARD. 



Fig. 5. Real-World Interface Circuitry. 



204 • 80 Microcomputing, October 1981 



ANNOUNCING R REVOLUTION 
IN TH€ COST OF PROFESSIONAL SOFTWARE 




VISflCCOUNT is o fully integrated business ond accounting 
system designed for use in small businesses. Visflccount is 
extremely comprehensive and professional, yet it is very easy to 
use. The system is controlled from a series of interconnected 
menus permitting user-friendly operation, everything you need to 
set-up ond operate the system is provided uuith the VisAccount 
packoge. 

RLL SVST6MS is able to provide you Visflccount ot this incredible 
Iouj price because it runs on so many different machines. Through 
volume sales we ore able to substantially reduce our prices. 

OUR GUARANT€€ - Buy both our software and that of our 
competitors (who will no doubt charge several times our price 
because they need to recapture their development cost). Compare 
the two systems and we know you'll return theirs (make sure 
they'll let you return their software). If you decide not to keep our 
system, then return it within 45 days for a full refund. Once you've 
used our system we're confident you'll be delighted. 



VISflCCOUNT 



computers for Business Applications. 1 979 






What Vou Receive 

• Nine 5'/*' double aensitj disks (or six 8" sing.e 
density disks) 

• €asu-to-use ope r otor s manual (over 200 pages) 

• Self-study guide on bookkeeping and accounting (over 
180 pages) 

• Cassette based instruction program or set-up ond 
operation 

Available for TR5-80 I, II 6i III, Apple* and most others. 
*The Apple version requires the Microsoft Z80 softcard. 
CSCfl has C8ASIC2. CP/M ond Microsoft Z80 softco'O in stock. 




MVINTOK* MMMKHIUH1 



KtOv«" ««( I v»«lt 




MCOUNIS »«V«ii< i^^^B 


FIX! D «W1 I^^H 
IKCOUMTINO I^^H 



FMC: MAILING LIST PROGRAM 

Requirements: 48K CBRSIC 2 
2 DISK DfllVCS CP/M 




Send $159 for the VISflCCOUNT system 



Q | i CTUCTT^AACr Cornpu!er Services Cofpototion of Amenco *«* 59 

IlLL jYJ I CfVO 358 €ost 30th Street New Vork. New Vork 10016 

Order Toll free 1 800 221 2486 
For New Vork ond "echnical Number 1-2^2-68S-CC9C 



ALSO 


WORD STAR 


$290 


SUP€RCALC 


S249 


DATA 8AS€ SVSTCM 


$190 


CP/M for TRS80 MODCl II 


$ 99 


T€RMINAL PROGRAM for 




MODC-l II CP/M 


$ 39 



Name 



Address 






' 



CituVStote/Zip 

□ Master Charge D Visa [ American €xpress 

No. €xpires . 

Vour System 



196' Compvte' Services CcxpoKXior o' Amer« 



Disk Size i ] 5!A" double density 8" single density 



■* See List ot Advertisers on page 38b 
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"You may return to Basic at any time 
without losing programs in memory." 



all LED's should be lit. 

Turn on the TRS-80 power. A normal 
memory size start-up routine should occur. 
No memory need be reserved for these ex- 
periments, so press Enter to get into Level II 
Basic. 

Enter and run the following Basic pro- 
gram: 



10 OUT 127, 137 
20 OUT 124, 85 



('Configures 8255) 
('Loads 55H into Port A) 



Every second LED should be lit. Change 
line 20 to: 

20 OUT 124. 170 ('Loads AAH into Port A) 

Run it. You should observe the first, third, 
fifth and seventh LED lit. You may want to 
try other values in the second term of line 
20. 

Next enter and run the following Basic 
program: 

10 OUT 127, 137 
20 FOR N = to 255 
30 OUT 124, N:NEXT N 
40 GOTO 20 

The LEDs should continuously cycle from 
zero through 255. Because the count is 
rapid, the two least significant digits on the 
right appear to be on all the time. 

Insert the following line into the program 
and run it: 

25 FOR M = TO 100:NEXT M 

Now the two least significant (right-hand) 
digits should clearly blink on and off and 
the count can be visually followed. 

Next, enter the same program in machine 
code using either the Basic POKE com- 
mand, or load the T-Bug, RSM or EDTASM 
System programs. Keying in the hex words 
with T-Bug or RSM is fastest and easiest 
(see Table 1). 

Refer to your system's instructions in 



Decimal 


Decimal 


Hex 


Hex 


Mnemonic 


Address 


Instruction 


Address 


Instruction 




24576 


62 


6000 


3E89 


LD A. 89H 


24577 


137 








24578 


211 


6002 


D3 7F 


OUT7F 


24579 


127 








24580 


22 


6004 


16 00 


LD D, 00H 


24581 


00 








24582 


122 


6006 


7A 


LD A, D 


24583 


211 


6007 


D3 7C 


OUT 7C,A 


24584 


124 








24585 


20 


6009 


14 


INCD 


24586 


58 


600A 


3A40 38 


LD A, (3840H) 


24587 


64 








24588 


56 








24589 


230 


6000 


E6 04 


AND 04 


24590 


04 








24591 


194 


600F 


C2 19 1A 


JP NZ.1A19H 


24592 


25 








24593 


26 








24594 


24 


6012 


18 F2 


JR6006H 


24595 


242 












Table 1. 





loading this program. The first few instruc- 
tions using the POKE command appear as 
follows: 



10 POKE 24576,62:POKE 24577.137:POKE24578,211; 
POKE 24579,127 (etc.) 

Execute the program at 6000H. In Basic 
this is done by entering the System com- 
mand. When an asterisk appears on your 
screen, type /24576 and press Enter to com- 
mence execution at 6000H. All the LEDs 
should be on, although the more significant 
(left-hand) bits may appear slightly dimmer 
than the least significant bits. The micro- 
processor is counting near its maximum 
speed— around 100,000 counts per second. 

Next, delete the last line of the program 
and insert Table 2. 

Execute the program beginning at 6000H. 
The instructions slow the count by a factor 
of approximately 300. The count now ap- 
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Fig. 6. Typical + 5 volt, and ± 15 volt direct current supply. 
80 Microcomputing, October 1981 



pears at about the same rate as the Basic 
program running at its fastest speed. 

To slow the machine code program down 
to where all the bits may be visually ob- 
served, delete the last three program in- 
structions and insert Table 3. 

These steps slow the microprocessor by 
a factor of around 1 00,000. You may want to 
try loading different values into register pair 
BO Loading BC with 0000H decrements it 
2 1f (65,536) counts before both B and C are 
zero again. Loading BC with 0001 H causes 
the minimum delay. 

You may return to Basic at any time with- 
out going through Reset and losing pro- 
grams in memory by pressing and holding 
the Break key until the Basic prompt ap- 
pears. It may take a second to work through 
the delay routine and get to your break sig- 
nal. You may return to the machine code 
routine by exiting Basic with a System com- 
mand, then answer the asterisk prompt as 
before. 

When in Basic, enter and run: 



10 OUT 127, 137 

20 CLS:INPUT "ENTER A NUMBER BETWEEN AND 

255 INCLUSIVE";N 

25 IF N<0 OR N>255 GOTO 20 

30 OUT 124.N 

35 S$ = INKEY $: REM WAIT FOR ANY KEY DOWN 

40 GOTO 20 



For each decimal number entered the LEDs 
should indicate the equivalent binary num- 
ber. 

Here's one for the Trekkies. Enter and 
run: 



DBS... 

true data base management 
for your TRS-80 ™ 

Your Model II is not a toy... and neither is MDBS. 
MDBS is the serious tool for applications development. 



Harvey M. Weiss, 

an independent 

software reviewer: 



ONLY MDBS has 
all these features! 



"MDBS is truly a data base management system. . .. not a file management system " 

'MDBS. .. offers the data manipulation, query, and report-wnter capabilities of a DBMS 
fourd on mucn la r ge r and more complex computer systems " 

'MDBS has come to the r escue w th . . . products whose ability to reduce development time 
and implement processes not available elsewhere make them invaluable to integrators and 
developers of M c-based systems [With MDBS.; .. .program development and data base 
description is simple " 

For the complete Weiss review, see 'Downscaling DBMS to the Microworld," Mini-Micro 
Systems. April. 1981. pp 187-195. 

F'exible. powerful data structuring capabilities, network and hierarchical data structures, 
including direct many -to- many relationships (not available elsewhere). 

Genuine data base management capabilities far surpasses file management In data 
independence, automatic maintenance of relationships, and control over data redundancy. 

Fng';sh- ,; ke. nonprocedural query language interface- ad hoc queries resuit in theautomatic 
generation of desired repo r ts, tables, files, and relations. 

Host language nterfaces. including various BASICs COBOLs, PASCALS, FORTRAN, PL/I, 
C, and severa 1 assemblers. 

Extensive built-in data access security (256 levels). 

Automatic transaction logging and data base recovery 

Dynamic data base restructuring . and many other advanced data base management 
features. 

MDBS is written in Z 8C machne language and runs under TRSDOS or NEWDOS with TRS 
DISK BASIC, under CP/M» (and similar derivatives) with CBASIC2, PL/1, PASCAL Z, 
PASCAL M. PASCAL MT+, BDS C, CIS COBOL, and Microsoft COBOL, FORTRAN, or BASIC. 
MDBS code size is only 18K to 20K bytes for Models I and II 

MDBS is independent of the types and sizes o* disk drives. Supports data base spread over as 
many as eight disk drives. 

Tb learn more • For free literature about serious data base management on Models I and 1 1, call, write, or TWX 
us. We'! 1 include a pamphlet on features to consider when choosing a software tool for 
application system development 



Is MDBS right 
for your system? 



r-n 



Free pampnlet 



For a practical introduction to true data base management for small computers, please send 
S?0 (Indiana residents, add 80C tax) for PRIMER/GUIDE booklets. 

■ For a comprehensive DOCUMENTAT ION PACKAGE consisting of THE PRIMER plus user 
manuals covenng the MDBS. QRS. RTL, and DRS please forward $60 (•* $2.40 Ind fax). 



Setting standards of excellence for data bass 
softwara. . . worldwide. 



yUicrc 
Data Base 
Systems, inr. 

Box 248 

Lafayette, Indiana 47902 

31 7-448-1 61 6/TWX 810-342-1881 

Dealer/distributor/OEM inquiries invited. 




□ Please send me free literature on the MDBS. 

□$20 (Ind. tax 80«) enclosed for MDBS PRIMER 
and GUIDE (total 97 pages). 

□$60 (Ind. tax $2.40) enclosed for Complete 
MDBS DOCUMENTATION PACKAGE. 



Name 



(Pleaee print) 



Title 



Company 
Address _ 



City _ 
Phone 



(8tote) 



(Zip) 



MAIL TO: Micro Data Base Systems, Inc. ^315 
Box 248- M 
Lafayette, IN 47902 



■ See List 0' Aaveriisers on page 386 
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"With a few trivial exceptions, every byte 

in your system got there through a keyboard." 



s 


OUT 127, 137 


6 


CLS: PRINT@320 "PRESS L' TO GO LEFT 




PRESS 'R' TO GO RIGHT 


10 


A$ = INKEYSMF A$ = "L" GOTO 30 


20 


IF A$ = "R" GOTO 80 


25 


GOTO 10 


30 


A = 1 


40 


OUT 124, A 


45 


FORX = 1 TO10:NEXTX 


50 


CS = INKEYSMF CS = "R" GOTO 80 


60 


A = 2*A: IF A>129 GOTO 30 


70 


GOTO 40 


80 


A = 128 


90 


OUT 124, A 


95 


FOR X = 1 TO 10:NEXT X 


100 


C$ = INKEY$:IF CS = "L" GOTO 30 


110 


A = A/2 


120 


IF A<1 GOTO 80 


130 


GOTO 90 



24594 


06 


6012 06 00 


LDB, 


24595 


00 






24596 


16 


6014 10 FE 


DJNZFE 


24597 


254 






24598 


24 


6016 18 EE 


JR6006 


24599 


238 






- 




Table 2. 





Press L to go left. Press R to go right. Neat. 
This is still just a fancy version of turning a 
switch on and off. 

Now that digital information is released 
from the confines of the personal computer, 
it remains to be converted into a form mean- 
ingful to the physical world. 

Next month we will explore the applica- 
tions of digital-to-analog conversion as a 
means of sophisticated control.! 



24594 


01 


6012 


01 00 00 


ID BC, 00 00H 


24595 


00 








24596 


00 


6015 


0B 


DECBC 


24597 


11 








24598 


121 


6016 


79 


LDA, C 


24599 


176 


6017 


B0 


ORB 


24600 


32 


6018 


20 FB 


JRFB 


24601 


251 








24602 


24 


601A 


18 EA 


JR6006 


24603 


234 


Table 3. 







TRS-80 OWNERS 
T REJOICE! 



Sr; 



Our professional quality software 
development tools let you program 
your TRS-80 with more ease and 
power than you ever imagined possi- 
ble. Programming will become a 
pleasure when you use our full 
screen editors. These editors are not 
just patched up word processors. 
They have been specialty designed to 
enhance the BASIC and ASSEMBLER 
programming languages. Our 
assemblers provide full screen option 
menus to relieve you of the burden of 
remembering command names. Com- 
bine user oriented features like this 
with the finest and most extensive 
documentation in the industry and 
you will see why programming a 
TRS-80 is now better than ever. 



T-ZAL: TAPE BASED ASSEMBLER: Assem- 
ble to memory or tape. Create relocatable 
SYSTEM tapes! Includes relocating LOADER 
pgm 8 character symbols with XREF. 
Upgrades to disk when you do! 
Mod 3 Cat # 1250-20 S 49.95 

FULL SCREEN PROGRAM TEXT EDITORS: 

All CAU lull screen editors support lour way 
cursor motion and scrolling with user selec- 
table auto repeat and scroll speeds. Totally 
visual character insert, delete, and change 
Block move, copy, delete. Global find and 
change. Editor for BASIC also provides 
automatic line renumbering and 26 user- 
definable macro keys. 
For Tape and Disk BASIC: 
Mod 1 Cat # 1010-20 S24.95 
Mod 3 Cat # 1210-20 S29.95 
For Mod 1 EDTASM source files: 
Tape Cat # 1010-30 S24.95 
Disk Cat # 1010-31 S34.9S 

(Disk version shipped on (ape I 



M-ZAL. DISK EDITOR/ASSEMBLER: 

Modular Assembler Language development 
system includes full screen text editor, multi- 
pass assembler, and ob|ect module linker. 
Allows B character symbols and source file 
chaining/nesting with "INCLUDE cmd. Full 
support lor relocation and global symbols. 
Symbol table with cross reference. Req. 32K 
Disk system. 

Mod 1 Cat # 1050-10 S149.00 
Mod 3 Cat # 1250-10 S149.00 

XBUG: DEBUGGING TOOL & MONITOR: 

Display/ Modify memory and regs Set up to 
10 invisible and transparent breakpoints. 
Multi-speed single step Load/Copy/Create 
SYSTEM tapes Uses only 2 5K and can be 
dynamically relocated to any address 
Mod 1 Cat # 1020-10 S19.95 
Mod 3 Cat # 1220-10 S19.95 



Note: these products are not available for 
level 1 machines. 

When ordering specify Model. RAM size. # of 
disks. 

Send check, money order, or MC/VISA 
numbers and expiration date to: 
Computer Applications Unlimited 
P.O. Box 214, Dept EEW 
Rye. New York 10580 

N Y State residents add applicable sales tax 
Allow 4-6 weeks for delivery. 
Dealer Inquiries Invited. 

pl I COMPUTER 
1 J 'J APPLICATIONS 
Am UNLIMITED ^107 

A Div ol CAU Inc 

Quality* Reliability Service 

* TRS 80 ib a TM ol Tandy Corp 
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WH4T DOES 

80 miCROCOIYlPUTING 
DO FOR YOU? 

| |» provides you with more information on your TRS-80* than any other single source 

• gives you 20-30 new programs to use each month 

• reviews equipment and software so you know what or what not to buy 

• gives you the truth about the TRS-80— its good points and its limitations 
{80 Microcomputing is not affiliated with Tandy) 

• lets you save money — lots of it — by comparison shopping within the ad pages 

• clues you in on how other TRS-80 owners are using and updating their systems 

• lets you in on what is really happening in the industry 

• brings you Wayne Green's outspoken 
and often controversial editorials every 
month 

• and best of all it gives you a no risk 
subscription offer- 



Subscribe today — if you are not satisfied with 
the first issue— write "cancel" across your 
invoice and send it back. 
The 80 Microcomputing is yours to keep. 




Canadian 1 year only/US funds $27.00 Foreign 1 year only/US funds $35.00 

B0 Microcomputing • PO Box 981 • Farmmgdale, NY. 11737 

'TRS-80 is a trademark of Tandy 
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REVIEW 



The greatest program Radio Shack has released. 



Profile 



Profile 

Tandy/Radio Shack 
Ft. Worth, TX 
$79.95 Models I & III 
$180 Model II 

Bill O'Brien 

11 Donga n Place 

New York, NY 10040 

Profile is probably the greatest program 
Radio Shack has released, far surpass- 
ing the potential of Microtias, although it 
costs $20 less. 

What makes it so great? The higher 
priced Microfiles lack useability; the user 
can access data stored in Profile, using it to 
provide information for programs which 
can be manipulated and output outside the 
Profile environment. 

Profile is a data storage/retrieval system 
available for the TRS-80 Model I. It consists 
of four sub-programs — Init, Access, Print 
and Profile— and uses Disk Basic with one 
drive, with additional drives and a line 
printer optional. 

The User's Manual begins with a general 
description of the terms used throughout 
the instructions, and the reminder that you 
cannot use the lowercase driver to enter 
data Standard computer format is data en- 
Try with uppercase characters only. Lower- 
case is great for word processing, but it's 
not that great a loss. (For those of you keep- 
ing score, Microfiles has the same restric- 
tion.) 

Profile is a machine language program 
that loads through DOS and asks the user, 
"How Many Drives (1 -4)?" Be sure you have 
the program disk in drive 0, there are calls to 
othe' routines stored on that disk. Also, a 
formatted disk should be in any other 
drives. 

In a few seconds your screen will be 



ablaze with life as the Profile program takes 
control. You will see a program header at 
the top of your screen, what appears to be 
operating instructions at the bottom of the 
screen (they are non-functional at this point 
in the program), and below that, the impor- 
tant message: Set Up Your Form— Press 
<Break> When Done. 

Creating the Field 

First, using the arrow keys to move the 
cursor, retitle the file by overwriting the pro- 
gram title line: ** PROFILE DATA FORM** 
can be changed to: **MY DATA FILE**, or 
any other heading you want to give it. Then 
create the fields you want to store data in: 

ACCOUNT NAME. 

INVOICE* 

3ATE: ../../.. 

AMOUNT: 

PO/„OB#: 

POSTED/PAID: ../../.. 
CHECKED*: .... 

Field headings can be whatever you 
choose, and are created by typing each 
literal (the field names are literals, while the 
values we will insert are variables), a colon 
and a space (which Profile recognizes as a 
delimiter), and whatever characters you 
decide to use to mark the size of the fields. 
(Periods are acceptable, but, as in the ex- 
ample, other characters are permissable— 
dollar signs, for instance, to mark monetary 
fields.) Keep in mind that the top line of the 
screen is used solely for the file title, and 
the total space available for field informa- 
tion is 255 characters. If you exceed this 
limitation (after entering all those dots and 
slashes) a Data Too Long message appears 
and you must reformat the file content. 

If you find that you've made a mistake 
anywhere, use the arrow keys to position 
the cursor over the error, oruse<shift> Dto 
delete a character, or <shift> I to insert a 



space (to add a character or align the field 
names for a professional look). Make sure 
that once you finish, the field names and 
lengths are exactly the way you want them. 
When you press the Break key you're stuck 
with it, and making changes later is a lot of 
trouble. 

Sorting 

After entering data you can sort it by any 
of the fields you established. When the pro- 
gram looks at an entry, it sees it exactly as it 
has been typed. If we sort by a numeric field 
in ascending order (included in Profile is a 
search routine where the same rules apply), 
and two of the entries are $1104.20 and 
$9.68, something strange will happen. 

Any common fool can tell that $1100 is 
more than $9, but the computer is no com- 
mon fool; it's a very special kind of half-wit 
that takes everything literally. Therefore, as 
the computer sees it, nine is greater than 
one, so one comes first. Any numeric entry 
should have all spaces filled with zeroes. If 
our field is seven characters long, then 
0023.89, 1404.13, and 0002.66 will produce 
the correct sort and search responses. 

Searching for a particular entry or group 
of entries is accomplished by stating the 
field heading, and then specifying what 
qualities the found entries should have in 
relation to a comparator, which you enter 
using FORTRAN-like specifiers (NE, EQ, 
GT, LT, LE or GE for not equal, equal, 
greater than, less than, less than or equal 
to, and greater than or equal to.) For exam- 
ple, if you have an invoice number you want 
to search for, use I NVOICE* as the field, EQ 
as the comparator and the number in re- 
sponse to the Search For question. If you 
want a range over or above the number 
specified, use GT and LT, or GE and LE if 
you want the entered number included. 

The final option available is the printout. 
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Ever tried to read computer sales literature? 

Ever tried to talk to a computer salesman? 

Ever tried to make a decision about 
which computer to buy? 



Yes . . . then you know what frustration is. 
Help is on its way. Desktop Computing pre- 
miers this fall. The first and only computer 
magazine written in plain En g lish. Preposter- 
ous? Not at all. It is possible to explain com- 
puters without all the "computerese." That is 
what Desktop Computing will do each month. 
Send the card today for a no- risk subscription 
that will give you the kind of understandable, 
useful information on computers you've been 
waiting for. 

Why do you need a plain-En g lish explanation 
of desktop c omputers? Because they have Just 
come of age and are saving thousands of busi- 
nessmen like you an amazing amount of 
money. They not only save money, do things 
faster, provide access to more information, 
allow a smaller staff to do more work, they also 
allow you to get into services for your custom- 
ers which were not practical before. You can 
provide more services at lower cost. To get in on 
the savings and expanded customer services, 
you need information Desktop Computing will 
bring you that information Desktop Com- 
puting will cut through all the technical 
hocus-pocus. 

In this time of high interest rates, a truly low 
cost desktop computer system (usually a micro- 
computer system) is a welcome event. Let Desk- 
top Computing explain what these systems can 
do for you. The subscription price is $25 a year 

but as a charter 

subscriber you can 

get the first year 

for only $17.97. 

totally tax 

deductible. 

Call toll-fir**: 

(BOO) SM-S473 

or mail tb* 

coupon below. 




Here's a look at some of the articles $17.97 will 
bring you: 

•When a small Business Computer 
Arrives, What Happens to the 
Small Business? 
• Letter to Hemingway RE: Word 
Processing 

•Professional & Small Business 
Microcomputers: Buying, Using 
and Fixing a System. 
•Adequate Backup: Protecting the 
Data in Your Computer. 
Wayne Green, the publisher of Desktop Com- 
puting (and also of Kilobaud Microcomputing 
and 80 Microcomputing— both successful 
computing publications) has gone through both 
the agony and joys of working with computers. 
He has lost a quarter of a million on a mainframe 
big boy computer only to come out on the other 
side with all the frustration necessary to run a 
200 employee publishing firm on several 
TRS-80's. 

Wayne has a reputation for being honest and 
unafraid. He'll make sure you get the truth. In 
the meeting introducing the idea of Desktop 
Computing to his staff Wayne said, 

"Our objective is to be the only com- 
puting magazine written in plain 
English." 

So that is what you'll be getting— honesty and 
directness. Desktop Computing will give you all 
the information you need on computers in plain 
English. 

This charter subscription is available for a 
short time only. Send the card today for the 
premier issue — October 1981— and get the infor- 
mation you've been needing for only $17.97. 

Desktop (kmprting 



Relief is here for only $17.97 



L 



ypc Sign me up as a Charter Subscriber to Desktop 
*■ £-"-- ) Computing I will get one year of the only comput- 



ing magazine written in plain English for $17.97 (a savings of 60% 
off the newsstand). My subscripuon will begin with the premier 
issue— October 1981 

Your first issue Mill be arrmng by mid-October 1981. 



Canadian 1 yr. only/US funds $19.97 Foreign 1 yr. only/US funds $29 97 



NAME _ 
ADDRESS 
CITY 



STAT?: 



ZD?_ 



SIGNATURE. 
CARD# 



EXPIRE DATE. 



INTERBANK # 



Desktop Computing 

BC Pine Street Peterborough. NH OM6B 31AB6 



K-See Lis' ol Advertisers on page 386 
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FLOPPY DISK DRIVES 

$ 275 

Famous make 40 Track drives, in grey 
textured enclosure with power supply. 
Fully tested and guaranteed. 

ADD $20 FOR "FLIPPY." 

80 TRACK "FLIPPY" $395 

40/40 DOUBLE SIDED $395 

EPSON PRINTERS $CALL 

C. ITOH PRINTERS $CALL 

CORSAIR COMPUTER CORP. 
7952 Highway 80 West 
Fort Worth, TX 76116 

817-244-8051 



™TRS80 color 

rro-r the January 1961 issue of Ihe CSRA Computer 
Club newsletter 



There was some amusement at the Novem- 
ber meeting when the Radio Shack repre- 
sentatives stated thai the software in the 
ROM cartridges could not be copied This 
month s 66 Micro Journal reported they had 
disassembled the programs on ROM by 
covering some ol the connector pins with 
tape They promise details next month Never 
ted a hobbyist something can't be done 1 This 
magazine seems to be the only source so tar 
of technical informations on the TRS-80 color 
computer" Devoted to SS 50 6600 and 
6609 machines up to now. 68 Micro Journal 
plans to include the TRS-80 6809 unit in 
future issues 



To get the MOST trom your 6809 CPU - This is re 
BEST SOURCE' The ONLY Magazine lor the 6809 
Computer Months Ahead of AH Others' 



68 MICRO JOURNAL 



USA 

1 Vr J18 SO 2 1> - J32 50 3 Yl W SO 

•For«gn Surlace Add Si? Yr 10 USA Pnce 

Foag'i Ai' Mail Add $35 Vr lo USA Pnce 

•Canada 4 Mmico Add $5 50 Vr n USA Pfce 



M 



NEW! 

The Wizard's City 



8K 



*, 



A FANTASY ADVENTURE GAME 

Search for gold as a Fighter, Dwarf, Elf, 
Halfling or Magic-User in the dungeons 
beneath the Wizard'sCity or surrounding 
forest. Evil monsters lurk everywhere to 
protect the gold. All in graphics! 
Cassette $12.95 Disk S 16.95 

Financial Statement 16K $14.95 

Income Tax 8K 19.95 

Income /Deductions File 8K 10.95 

Stock Charting 8K 15.95 

Mail List Labler 32K disk only 22.95 

Ada $4 for disk except Mail List 

Add $1.50 shippmg A handhng 

All programs for TRS-80 Mod. 1 Lev. 2 

BAP$ Software 

6221 Richmond, Suite 220 

Houston, Texas 77057 

713/783-3433 

TRS-80 it a rag trademark ol thai Tandy Corp 



". . . the computer is no common fool; 
it's a very special kind of half-wit 
that takes everything literally." 



During the display/edit mode you can get 
hard copy of the entry displayed. 

If it is your first run through the printing 
section, you will be asked to construct a 
print format. This consists of three lines of 
data: the title line, the column headings and 
the data line(s). One hundred and thirty-two 
columns of print are available; the screen 
scrolls sideways as you pass the 64-column 
mark that would normally terminate a video 
line. Again, the choice of literals is up to 
you, although title headings should have 
something to do with the field headings you 
entered. The field headings themselves 
may be used as column titles. 

When you're done, tell the computer 
which fields are to be placed in what 
spaces. You then specify which field you 
want, its relationship to the comparator 
you've selected, and the program begins to 
print. 

Fooling Profile 

The one thing Microfiles has over Profile 
is that it will work with a serial printer whose 
driver you have loaded into memory while 
Profile won't. Whoever created the program 
included a routine to check if there was a 
printer attached to the parallel port (there's 
a memory location in the machine that gets 
loaded with a certain value; if that value 
isn't there, Printer Not Ready is written on 
the screen). 

Remember I said it was a machine lan- 
guage program: and you're as big a klutz 
with machine language as I am, right? Don't 
fear, pilgrim, there is something you can do 
(no, not call Texas). Have you got a copy of 
NEWDOS or T-BUG around? (Aw, c'mon, 
everybody's got a copy of T-BUG.) 

The offending portion of the code in the 
Print program looks like this: 



7C8B210O3E 
7C8E 222040 
7C91 214875 
7C94 CD2752 
7C97 CD4562 
7C9A CDCE76 
7C9D FE01 
7C9F CA2152 
7CA2 FE0D 
7CA4 28DE 
7CA6 18EF 



LD 

LD 

LD 

CALL 

CALL 

CALL 

CP 

JP 

CP 

JR 

JR 



HL.3E00H 

(4020HJ.HL 

HL.7548H 

5227H 

5245H 

76CEH 

01H 

Z.5221H 

0OH 

2.7C84H 

7C97H 



7C84 3AE837 


LD 


A.(37E8H 


7C87 FE80 


CP 


80H 


7C89 381D 


JR 


C.7CA8H 



Bear with me, its not that complicated. I 
did it right, and as far as I'm concerned, Bill 
Barden might as well be reciting 7"ne Epic of 
Gilgamesh in the original Sumerian. 

The NEWDOS Fix 

If you have NEWDOS, run Superzap. With 
a backup copy of Profile in the drive, select 
the DD option, the disk drive number, track 
C, sector 9 (that's the position it was in on 
my copy). Look for the sector display that 
matches Fig. 1. Type MOD C1. (This is the 
position in the sector of the first disk loca- 
tion we will modify.) The screen will blink, 
an M will appear at the beginning of the line 
and you can now proceed to modify it. To do 
this, type "0" 72 times, covering the values 
3A through EF. Press Enter and Y, making 
the modification permanent. This changes 
the instructions in the listing above to NOP, 
which is the same in machine language as a 
line number, and a colon followed by a 
blank line in Basic. The computer knows the 
lines are there, but skips over them, since 
there is No OPeration to be performed. 

We just changed the code that told the 
computer what it is supposed to do. Origi- 
nally it was supposed to load a value into 
the A register from memory location 
37E8(hex) (LD is a machine code load in- 
struction), compare it (CP is machine 
language for compare) to the hex value 80H 
(128 decimal), and if it found them to be the 
same, proceed to memory location 
7CA8(hex) (JR C,7CA8H is a jump instruc- 



10C900 


7221 


BB71 


0684 


7EFE 


2020 


1A2B 


1001 


82D0 




10C910 


7BF8 


2100 


3E22 


2040 


2107 


7 5CD 


3952 


0602 


..!.>'.$! ...9R.. 


10C920 


CD3C 


52CD 


3F77 


C39A 


77AF 


32BD 


7206 


84DD 




10C930 


21BF 


72FD 


2121 


70FD 


3600 


0121 


3872 


7EFE 


! .. . 1 ! ..6.. 18.. . 


10C940 


2028 


2DCD 


C57A 


0E01 


FD34 


0023 


7EFE 


2028 


-(- 4.#...( 


10C950 


030C 


104F 


DD7E 


05B9 


3801 


7 9DD 


7705 


1106 


8 


10C960 


00DD 


193A 


BD7 2 


3C32 


BD7 2 


FE20 


3008 


1804 


.. .: ..<2 0.. . 


10C970 


23FD 


3400 


10C8 


CDFB 


7621 


803C 


2220 


4021 


1.4 !.<".*! 


10C980 


FE7b 


CD 27 


5211 


003D 


CD57 


52FE 


01CA 


2152 


. . . 'R..-.WR.. . !R 


10C990 


FE01 


8258 


7C02 


CA4C 


7CED 


5332 


7622 


3476 


. . .X. . .L. .S2."4. 


10C9A0 


1140 


3DCD 


5A52 


FE01 


CA21 


5279 


3236 


7611 


.t?«.ZR.. . IB. 26.. 


10C9B0 


803D 


2137 


76CD 


5D52 


FE01 


CA21 


5278 


3258 


.-17...R... IR.2X 


10C9C0 


763A 


E8 37 


FE8 


381D 


2100 


3E22 


2040 


2148 


.: .7. .8. ! .>".§IH 


10C9D0 


7 5CD 


2752 


CD45 


52CD 


CE76 


FE01 


CA21 


52FE 


. . 'R.ER !R. 


10C9E0 


0D28 


DE18 


EF 




















21 


003E 


2220 


4021 


2475 


CD27 


. (... !.>".$! !.. ' 


10C9F0 


52AF 


3 2 AC 


7332 


9175 


21FF 


FF22 


EE5D 


CD7 


R.2..2..!.." 






Fig- 


1. The Sector Display Minus the Spaces 
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IS YOUR PRINTER SMARTER 
I* THAN YOUR WORD PROCESSOR? 

f > THEN MOVE UP TO 
PROSOFTS NewScript: 



Easy-to-use Full Screen Editing 

Headings, Page Numbering, 

Centering 

Global Search and Change 

Table of Contents, Indexing 

All 12 MX-80 fonts + underlining 

Italics on GRAFTRAX MX-80 

Supports Diablo, Microline, Anadex 



Typehead — never loses 
keystrokes 

Form Letters, Big Documents 
Double Width, Underlining 
Sub-scripts, Super-scripts t 
Proportional font right-margin 
justification on 737, 739, L.P IV, 
and now R/S Daisy wheel II 



* 160 pages of excellent documentation includes "EZEDIT", "EZSCRIPT", 
self-study tutorial, and hundreds of examples 

' runs under TRSDOS, NEWDOS, NEWDOS/80, LDOS, DOSPLUS 

* Requires 48K TRS-80 with one disk drive. Specify Model I or Model III 
TSome features work only if your printer has the mechanical capability. 



NewScript 

Nailing Labels Option 

Special: New Script + Labels 



$ 99.95 
$ 29.95 
$115.00 



CALL TOLL FREE For Onto My 

(800) 824-7888. Operator 422 
Cal: (800) 852-7777. Operator 422 

Alasktrlawaii: (800) 824-7919 



FASTER 



RPM 

RPM measures the rotational speed and variation of your disk 

drives, and reveals a common cause of unexplained errors. Simple 

one-key operation, runs under any DOS, interchangeable between 

Models I and III. Shows current and average speeds, plus 

fluctuation history. Recovers from severe errors. Documentation 

explains how to adjust drives. Use RPM monthly for best results. 

32-48K Model I or III disk : $24.95 



Monitors your BASIC programs while they run, then displays a simple 
change (usually one line) that can reduce run-times by as much as 50%. 
No hardware changes, and handles programs that cannot be compiled! 
Complex programs benefit the most. See review in Personal Computing, 
May, 1981. 

1 6-48K Model I or III, tape and disk: $29.95 




Order from your Software dealer, or from: 



QUICK COMPRESS 



PRom 



Box 839 
North Hollywood. CA 91603 

(213) 764-3131 



Small (276 bytes), fast (processes 800 lines in under 3 seconds) 

utility removes blanks and remarks from your BASIC programs. 

Produces smaller, faster programs, and doesn't alter the 

original logic. 

16-48K Model I or III, tape and disk: $19.95 



SPECIAL FASTER + QUICK Compress: $39.95 



ORDERING INFORMATION: We accept checks. Mastercard, Visa, Money Orders, C.O.D. 
(under $50.00, add $2.00), and even cash. Please, no Purchase Orders. California residents 
add 6% sales tax. 15% outside North America. 



vSee List of Advertisers on page 386 
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TRS-80** 

COLOR GAME 

LIMITED OFFER! 



WE LI SEND YOU OUR BONUS GAME OF THE MONT* 
WHEN »OU SEND US A SELF ADORESSED STAMPEO 
ENVELOPE FOB OUR FREE COLOR PROGRAM l 1ST 



16 K i? t °So tD HI-RESOLUTION GAMES" 

STARBASE ATTACK 5295 

wmwrntom ffvaaw"95 

8&9MM BXM9M s im 

HIGH SPEfO ARCADE GAME 

KQ5WC KMUKrtZE 18.95 

JOYSTICKS REQ'D ""rSL"^? " 

CERTIFIED CHECKS OR MONET OBOEAS ONLr 

^fe iiljsc~ated memory Eanka 

[ P.O.BOX 289 

V WILUAMSTOWN. MA. 01267-0289 
EXPIRES 12-15-81 "CASSETTE 



f Smartmodem A 




A 



• Auto-Answer • Auto-Dial • Repeat 
' Programmable - Use Any Language 

• Touch-Tone and Pulse Dialing 
Audio Monitor - Listen to Connection 

• FCC-Approved Direct-Connect 

• Full or Half Duplex, 0-300 Baud 
RS-232C Interface • 7 Status LED s 

• Two Year Limited Warranty 

$249 

Send certified check or money order 
Allow two weeks for personal check 
Florida residents add 4°o sales tax 

flC€ COMPUT€R PRODUCTS 

^265 of Florida Inc. 

1640 N.W 3rd STREET 
DEERFIELD BEACH. FLA 33441 A 



HORSERACE 
HANDICAPPER 



Uses past performance data from daily racing form 
to predict probable order of finish 

SIMPLE and FAST. Evaluate a horse in seconds. 
Handicap an entire race in minutes. 

Often reveals longshots missed by other methods. 

TRS-80* 

Tape $29.95 Disk $39.95 

Disk $39.95 

Tape $34.95 Listing $24.95 



MODEL I or III 
MODEL II 
POCKET 

BUSINESS 
PROBLEM 
SOLVERS 



250 Richards Road. No. 254 

Kansas City, MO 64116 

(816)471-8660 

^448 



". . . if no printer is attached, 
or the driver program 
was omitted or overwritten, 
your machine will hang up." 



' Trademark ot Tandy Corp Missouri resKJents pteose oda 4 !%soJesTax 



tion if the C register contains a 1, which is 
the computer's way of saying that the com- 
parison matched). 

Otherwise, the computer continues on its 
merry way down the instructions and we 
wind up with a Printer Not Ready message. 
We could have told it to jump there if the C 
register did not contain a 1 , (JR NC.7CA8H 
is a jump if not); this can be done by typing 
the same Mod instruction, pressing the 
right arrow key 11 times and then pressing 
zero once, changing the line from: 381 D, or 
in assembled form: 381 D JR C,7CA8H, to: 
301 D, or in assembled form: 7C89 301 D JR 
NC.7CA8H. 

We changed the 38, which the computer 
understands as "jump if", to a 30, which 
tells it to "jump if not"— 1D(hex) or 29 ad- 
dress locations, depending, in this case, on 
the value in C. If we had done it that way, 
and later hooked up a parallel printer, the 
value would have to be changed back again 
or we would get a Not Ready message any- 
way. 

If you want to do serial printing under the 
display/edit mode, (H)ardcopy option of 
Profile, one more change has to be made. 
The code contained in the Access program 
looks like this: 



731 1 3AE837 


LD 


A,(37E8H) 


7314 FE80 


CP 


80H 


7316 3809 


JR 


C7321H 


7318 21D372 


LD 


HL.72D3H 


731BCD8F72 


CALL 


728FH 


731EC36471 


JP 


7164H 



Still using NEWDOS and Superzap's DD 
option, select the drive number that the 
backup copy of Profile is in. For my copy, 
the track number was 1C, the sector was 3. 
If it isn't on yours, just match up the sector 
display with Fig. 2. 

Locate the hex digits beginning with 3A 
(these are the numbers in the second 
through eighth columns of the listing, the 
group of six numbers in the first column is 
the hex address of the program location on 



the disk) and ending with 71. Fill these 32 
places with zeros, and press Enter and Y to 
make the modification permanent. 

You should now have a copy of Profile 
that will run with a serial printer. However, 
you should note that if no printer is at- 
tached, or the driver program was omitted 
or overwritten, your machine will hang up. 

That wasn't so difficult, was it? And I real- 
ly don't know how to program in machine 
language. All it took was a burning desire to 
get printed output, and some plowing into 
the Editor/Assembler manual. (And perhaps 
a truckload of perseverance!) 

Now for T- BUG Users 

It should be a lot easier for you, but I 
haven't tried to do it this way. Load the print 
program. Hold down the Break key and 
press the reset button. Get into the System 
mode and load and run T-BUG. 

PRINT loads from 7000H to 7CFEH, 
T-BUG uses 4000H to 42E8H, so there is no 
conflict of memory. When the asterisk ap- 
pears, type M 7C84. You should see: M 7C84 
3A. Now type 00. The next memory location 
should be displayed: 7C85 E8. Again type 00 
and keep doing that until you've gotten to 
memory location 7CA7. This is the last 
memory location you will zero out. 

Press Break, put a blank tape in the 
cassette drive, set it up for recording and 
press P, T-BUG's Punch command, used to 
write memory locations to cassette. We 
need now specify a start address, end ad- 
dress and entry point, plus a name. The 
start address is 7000, the ending address is 
7CFE. Here's where the fun starts. 

According to NEWDOS, the entry point is 
402D. Normally we would assume that a 
program's starting point and entry point are 
the same, but not necessarily. You'll have to 
try it both ways. Use Print as the program 
name. The punch line will look like this: P 
7000 7CFE 402D PRINT, or P 7000 7CFE 
7000 PRINT, depending on which entry ad- 



11C300 


C370 


71ED 


4BEE 


5DCD 


4B52 


C3D2 


71 
3A 


E837 


K...KR.. . : .7 


11C310 


FE80 


3809 


21D3 


7 2CD 


8F72 


C364 


71 
3A 


2940 


..8.1 |)| 


11C320 


FE32 


3805 


3E0C 


CD3B 


0006 


0B21 


403C 


0140 


. 28. >..;... ie<.@ 


11C330 


3273 


C511 


7073 


0140 


00ED 


B0E5 


EB2B 


0640 


2 § + .§ 


11C340 


7EFE 


2020 


082B 


10F8 


2170 


7306 


0123 


0436 


+ .. ! #.6 


11C350 


0D21 


7073 


7ECD 


3B00 


2310 


F9E1 


C110 


D306 


. ! ; . 1 


11C360 


053E 


0ACD 


3B00 


3E0D 


CD3B 


0010 


F4C3 


7071 




11C370 


0182 


B17 3 


3AF1 


5DB7 


2009 


21C6 


7 2CD 


8F72 




11C380 


C364 


7172 


C03F 


2220 


4021 


1C5E 


CD27 


52CD 




11C390 


4552 


FE59 


2804 


FE4E 


20F5 


CD00 


67FE 


4ECA 


ER.Y(. .N N. 


11C9A0 


7071 


3AEF 


5A3D 


4721 


9D55 


36C0 


2310 


FBED 


.. : .Z=G! .U6.#... 


11C9B0 


4BEE 


5DCD 


4E52 


2AED 


5A23 


22ED 


5A21 


9D56 


K.. .NR*.Z#".Z1 .V 


11C9C0 


CD2A 


52CD 


27 52 


AF32 


F15D 


3E01 


32E9 


5DC3 


.*R. 'R.2..>.2.. . 


11C9D0 


6471 


1140 


3FCD 


5752 


FE01 


CA64 


71FE 


02CA 


.. .@?.WR 


11C9E0 


6471 


ED53 


0D71 


220B 


7111 


803F 


CD5A 


52FE 




11C9F0 


01CA 


6471 


0132 


3174 


7932 


1071 


11C0 


3F21 


21. .2 ?! 




Fig. 


2. The Sector Display for ACCESS Minus the Spaces 
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ti'E'UE MO VIV! 

How ice can ohhoJi hatsteji and 
mOKQ. Kctlablo. bWJAJKL -- 
Including UPS upon te.quc.bt! 



DUALCASE* 

UPPER lowercase, full time from power-up,- 
NO software; Standard typewriter keyboard 
operation (shift to UPPERCASE); Control charac- 
ters can be displayed; 128 Total character set 
plus full graphics. 

SWITCHABLE* 

No switches. No driver. Operates from key- 
board. Totally disables "PATCH" functions. 

KEYBOARD DEBOUNCE* 

Extra keyboard debounce, full time from 
power-up; NO software. If dirty keys are a prob- 
lem, this is for you. 

BLOCK CURSOR* 

Replaces the underline style cursor directly. 
Easier to locate on a full screen. No distracting 
blinking. 

SHORT CASSETTE LEADER* 

For tape based systems. Does NOT change 
baud rate. Only shortens recorded leader. Saves 
four seconds of waiting time. Great for data files! 
No conflict with high baud rate cassette systems. 

ELECTRONIC SHIFT-LOCK* 



No extra keys or switches. Simply tap either 
shift key, UPPERCASE lock, normal shift unlocks. 

TRS-80 is a Trademark of Tandy Corp. ORDER INFORMATION 



"THE PATCH" is not only a lowercase modi- 
fication, but a complete system offering many 
of the enhancements you would like available on 
your TRS-80. How is this possible? "THE PATCH" 
is a "smart chip" which monitors the same ad- 
dress lines as the ROM in your TRS-80 Model I 
Level II. "THE PATCH" recognizes certain ad- 
dresses, turns off the Lll ROM, then substitutes 
its' own byte of data. This "Patching" is what 
allows ALL these enhancements with NO soft- 
ware overhead, thus NO software conflict. In 
fact "THE PATCH" is the ONLY lowercase modifi- 
cation that is compatible with both Basic and ma- 
chine language programs AND the ONLY all 
hardware lowercase modification. 

You install "THE PATCH", no need to send 
your TRS-80 away so there's no hidden installa- 
tion cost. Detailed instructions guide even the 
most inexperienced owner to complete installa- 
tion in about 30 minutes. Works with the two or 
three chip ROM set. "THE PATCH" unit plugs into 
the ROM sockets (does not replace existing ROM). 
Lowercase does require installation of the extra 
video RAM (supplied with "THE PATCH"). 

"THE PATCH" is compatible with any word 
processor, any DOS and also other languages 
which use ROM sub-routines. "THE PATCH" is 
never obsolete. As new features become avail- 
able they can be installed in your "PATCH". 

"THE PATCH" is covered with a one year 
limited warranty on materials and workmanship. 
(Does void Radio Shack's 90 day warranty). Ask 
for details . . . we can install for a small fee. 



CALL NOW 
(208) 772-9571 



CECDAT, INC. 

P. O. Box 497 
Hayden Lake, ID 83835 

"THE PATCH" is a trademark of CECDAT, INC. 



Name - 

Street ... _ 

City .._ State 



"THE PATCH 2" Switchable 



$94.97 ea 



ZIP 



Signature — 

□ Check, Money Order, Bank Draft 

□ VISA, MASTERCHARGE, Purchase Orders (add 3%) 
Card/PO No _ 

Expiration Date .. Today's Date 

You must check one: 

□ "MEW. SIZE" □ "MEMORY SIZE" 

Price valid through December 31, 1981 



OPTIONS: (please check) 

PI "Electronic Shift-Lock" Add $30.00 

[~I "Short Cassette Leader" Add $10.00 
f | "Block Cursor" No Charge 

[~] "Debounce" No Charge 

Ship. & Hand, (a 2.50 ea. 

COD ADD 5% . . . . 

ID Sales Tax 3% (Id Res) 

TOTAL ORDER .... 



*-See Lis! ol Advertisers on page 386 
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"Always experiment on backup copies of data. 
Tattoo that on your arm somewhere." 



dress you've used. Press Enter and the tape 
should start recording the program. Now go 
back to DOS and run TAPEDISK to create a 
disk file with the same Print. 

When you've done that, or if you find that 
the entry address doesn't work, turn the ex- 
pansion interface and the CPU keyboard 
off. Take any disks out of the drives first; 
this will ensure that all memory locations 
start up clear. You should then repeat the 
procedure for Access, modifying addresses 
7311 to 7320 with 00 as in Print. Again we 
are faced with the entry point problem, giv- 
ing us the following punch lines: P 7000 
7460 402D ACCESS or P 7000 7460 7000 AC- 
CESS. You don't have to press Enter this 
time, since the file name is six characters 
long. Make sure there Is a blank tape in the 
cassette recorder set for record before you 
type this out. T-BUG starts the process au- 
tomatically. Run TAPEDISK again, creating 
the file Access. 

When you create the disk file, do not use 
an extension (/CMD, /BAS, whatever) on the 
file name. You may specify the destination 
drive. When you're creating the tape file, 
make sure you start the tape on the tape 
and not on the leader. I only mention this 
because I've done it myself. There you have 
it. See, it was easier than using NEWDOS 
(maybe). Remember, even hate mail costs 
money to send. 

Data Manipulation 

You still can't specify a range of data 
within the data base. (Please remember that 
altnough Microfiles is advertised as 
creating a data base, it actually complies 
only a data set, not something that can be 
accessed, and the data manipulated, used, 
or modified by an alien program source as 
may a true data base.) Nor can the data be 
acted upon in any way but the ways im- 
posed by Profile. But hang in there. 

When Profile initializes the disk it grabs 
up all the available space it can and formats 
the disk as if it had files to store there. Take 
a look at Fig. 3. If you get the chance to 
look at a formatted diskette, you will notice 
that the only data is coded E5. See the dif- 
ference? Think of the asterisks as claim 
markers that Profile uses to mark off disk 
space. It's a shame all those neat rows of 
asterisks have to be spoiled by the periods. 

Notice that the data stored is 2A, and as 
long as there is a 2A there is an asterisk. 
When we have a period, there is an OD. If we 
realize that 2A is a hexadecimal number 
whose decimal equivalent is 42 (2*16 + 
1*10), and then look at page C/2 in the Level 
II manual, we would see that 42 is the ASCII 
decimal code for an asterisk. OD, on the 
other hand, is decimal 13(16*0 + 1*13), and 
that's a carriage return (where there is an 
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ASCII character available for the code dis- 
played, we see it; where there is none, 
Superzap places a period in the spot). 
Wouldn't it be nice if there was a function in 
Basic that creates a string like that, and 
something in Disk Basic that handles such 
a file? Oh, but there is! Ever hear of line in- 
put? Let me quote to you those blessed 
words from the Book of DOS, chapter 7, 
verse 42: 

LINEINPUT (or LINE INPUT-the space is optional) reads 
everything from the tirst character up to: 

1) an <EN> character not preceded by <LF> 

2) the end-of-f ile 

3) the 256th data character (this 256th character is in- 
cluded In the string) 

Although the TRS-80 generates a line feed 
(LF) with a carriage return, only the carriage 
return is stored (OA is the hex value of a line 
feed). We seem to satisfy the requirements 
of line input for data retrieval from disk and 
at the same time, answer the burning ques- 
tion why we cannot store more than 255 
characters. 

Take a look at Fig. 4. It shows a sample 
set of data filed using the fields we speci- 
fied at the beginning of the article. As usual, 
the first column of six numbers is the disk 
storage location of the data. If we go back 
for a moment to the file we set up and count 
the total elements in all the fields, we'll find 
our file length is 63 characters. If we then 
count out 63 hex numbers (each hexadeci- 
mal number is a pair, so the first line con- 
tains 16 numbers, the first of which is 49, 
followed by 4E, 20 and so on), at the end of 
63 of them we find our friend OD. To read 
this data all we have to do is write a pro- 
gram: 



100 OPEN "I", 1, 'PRODAT:0 ":REM IF PRODAT IS ON 

DRIVE O 
110 PRINT'OO YOU WISH TO ACCESS A FILE? " 
120 AS *= INKEYMF ASO'Y" AND A*<>"N" THEN 

120 



130 IFA$="N THEN 210 

140 IF EOF(1) THEN PRINT "END OF FILE 

REACHED 'GOTO 220 
150 LINEINPUT#1,DATA$ 
160 IF LEFTS(DATA$.1) = ". " THEN PRINT "END OF 

DATA" GOTO210 
170 IF LEFTS(DATA$.1) = CHR$(192) THEN PRINT 

• DELETED FILE": FOR X - 1 TO 500NEXT X CLS 

GOTO 140 
160 PRINT DATAS 
190 PRINT' ANOTHER 9 " 
200 AS - INKEYtIF A$<>"Y" AND ASO'N" THEN 

200 
210 IF AS = "V" THEN CLS GOTO 140 
220 CLS:CLOSE:END 

This is the skeleton of a sequential ac- 
cess program that can be used to read the 
disk data. We can customize the program to 
search for a particular value contained in 
the 64 character string (63 data characters 
plus the carriage return) using MID$. To 
handle the data, we would again use the 
MID$ function to break down the main 
string into substrings. We could then con- 
vert any numeric data we need from string 
form with the VAL function. Unfortunately, 
it's not simple to use sequential access to 
write to the disk file. We would have to input 
all the data, modify it, and then rewrite the 
entire file back to disk again. Otherwise, 
writing to disk under that mode would set 
the pointer back to the beginning of the file 
and all stored information would be lost. 
Always experiment on backup copies of 
data. If you make a mistake, the data will 
still be available. Tattoo that on your arm 
somewhere. 

Suppose we wish to write some modified 
data to the file without entering Profile, us- 
ing random access techniques. When we 
deal with random access, we retrieve or 
store data with the GET and PUT com- 
mands 256 character buffers. When we deal 
with less data than would fill a buffer, we 
can form the small data packets into a large 
group, using an array that will fill the buffer 
more efficiently. Using the same array, we 
can also retrieve the data. 



106100 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A **************** 

106110 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A **************** 

106120 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A **************** 

106130 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A 2A0D *************** 

Fig. 3. The INFOFILE acquires disk space by filling vacant files with asterisks. 



ttiltl MM Hi 8 4F43 4B2fl 434F 2E20 494E 432E ™. HOCK. CO.. INC. 

116510 2020 2020 2020 2030 3535 3231 3130 362F 05521106/ 

116520 3132 2F38 3030 3031 382E 3437 2020 

116530 4120 202E 2E2E 2E2E 2E2E 2E2E 2E2E 



4E2F 12/800063. 68.. N/ 
2E0D A. 



Fig. A. 63-Character File 



"None of the MK functions allow 

for the storage of a single byte; 

it must be converted using ASCII." 



By accident, our file contains a total of 63 
characters plus the CR. Coincidental^, 64 
can be divided into 256 an even four times. If 
we planned to use random techniques, we 
should make sure our data adds up to a 
number that, plus 1, will be evenly divisible 
into 256, as the Profile manual suggests. 
That means 3, 7, 15, 31, 63, 127 or 255. (Pro- 
file files are dumped to disk one after the 
other. If we try to access a file that does not 
conform to the above lengths we will find 
each buffer's remainder contains data 
which will be left out of the next GET call.) 
We could use a program like this: 

100 Open "R", 1, "PRODATO" 

120 EF = LOF(1) 

130 FOR PF = TO 3 

140 FIELD 1. (PF.64) AS DUMMFILES. 63 AS DATAJ 

150 NEXTPF 

160 INPUT-FILE NUMBER: ";N 

170 IF N> EF.4 THEN PRINT "OUT OF RANGE -, :FOR 

X = 1 TO 500: NEXT X:CLS: GOTO 160 
180 FP= «N-1)/4) + 1 
190 PN= N-<(FP.4^3) 
200 GET 1, FP 
210 IF LEFT$(OATA$(PN),1) = CHRJ(192)THEN PRINT 

"DELETED FILE":FOR X - 1 TO 500: NEXT X:CLS: 

GOTO 160-.REM CHRS092) IS USED TO FILL THE 

POSITIONS IN A DELETED FILE 
220 IF LEFT$«DATA$(PN),1) = "#" THEN PRINT "NO 

SUCH FILE": FOR X = 1 TO 500: NEXT X:CLS: 

GOTO 160 
230 PRINT DATA$<PN) 
240 PRINT" ANOTHER. .?" 

250 AS = INKEY$:IF A$<>"Y" AND A$<>"N" THEN 250 
260 IF AS = "Y" THEN CLS:GOTO 160 
270 CLS: CLOSE: END 

Again, it's a skeleton program. Flesh it 
out for specific fields, to change drives if 
more than one is used for storage and to 
search for particular pieces of data in 
string. 

Infofile 

Did I just say "change drives"? How the 
heck can the program know if I have more 
than one drive? Allow me to introduce you 
to Fig. 5a. This is a section of a diskograph 



for another file created by Profile, called In- 
fofile. 

The first pair of hex digits (a hex pair is 
called a byte) 18, convert to decimal 24. It 
just so happens that in this file I have stored 
24 records. In fact, the first two bytes in this 
record of Infofile contain the number of rec- 
ords currently in the Prodat file. It is saved 
to disk using the MKI$ in a random file 
mode, since it will always be an integer. If it 
had a numeric value larger than one byte 
(not simply 1800, which has no value in the 
second byte), it would not necessarily have 
been directly readable without using the al- 
ternate CVI function to reconvert it to a nu- 
merical value. 

The next two bytes (A007) are the MKI$ 
converted value for the maximum allowable 
number of files, followed by the single byte, 
01, which is the maximum drive number. 
(This value is stored as CHR$(n) where n is 
the maximum drive number. None of the MK 
functions allow for the storage of a single 
byte; it must be converted using ASC.) The 
two bytes, 0000, note that there are no delet- 
ed records in this file. Had there been any, 
their number would have been stored here. 
The next piece of data, 40, is the length of 
the record, 64 (63 characters for the file data 
plus the carriage return). As with the max- 
imum drive number and the following byte, 
07, (which is the number of fields assigned 
at initialization) this was stored as a 
CHR$(n) and can be converted to its numer- 
ic value with the ASC function. The last four 
byte pairs tell us what the highest file num- 
ber is on drives 0, 1, 2 and 3 respectively. 

Fig. 5b is the second sector of Infofile, 
showing our field names and a small 
amount of additional data. The first 13 bytes 
are allotted to the field name itself, while 
bytes 14 and 15 are the MKI$ equivalent of 
the screen print position, plus 15360. 
(Therefore, if printing to the screen we 
would use Print @, CVI(x$)-15360.) Byte 16 
is the length of the field. If we look at the 



F00B00 1800 A007 0100 0040 077B 029F 0700 0000 

F00010 00DC 559D 0500 0000 0000 0000 0000 0000 .-U. 



Fig. 5a. The first set of numbers, 18, is the hex equivalent of 24, the total number of files 
on record. 



F00100 4143 434F 554E 5420 4E41 4D45 204E 3C17 ACCOUNT. NAME. N< . 

F00110 494E 564F 4943 4523 2020 2020 208E 3C06 INVOICE! <. 

F00120 4441 5445 2020 2020 2020 2020 20CE 3C08 DATE <. 

F00130 414D 4F55 4E54 2020 2020 2020 200E 3D07 AMOUNT ". 

F00140 504F 2F4A 4F42 2320 2020 2020 204E 3D07 PO/JOB* N= . 

F00150 504F 5354 4544 2F50 4149 4420 208E 3D08 POSTED/PAID. ..= . 

F00160 4348 4543 4B23 2020 2020 2020 20CE 3D04 CHECK! = . 

Fig. 5b. The Second Sector of INFOFILE, Showing the Titles of the Established Fields 



64K COLOR 

TRS-80' COLOR 
COMPUTERS 

64K $699 16K $389 

32K $429 4K $329 

Add $90 for extended baalc. 

EXPANSION KITS 

64K $375 16K $35 
32K $75 XBASIC$90 

Call for details on other TRS-80 
computers A accessories. 

SOUND CENTER „«* 
RADIO SHACK DLR 
Los Alamos, NM 87544 
(505) 672-9824 

'TRS-80 Is a trademark of 
Tandy Corp. 



ENGINEERING ANALYSIS 
SOFTWARE .569 

Box 1 059 

Highstown. N.J. 08520 

(20I) 367-5735 

Critical Path (CPM) Prefect Control 

computes network sun/ scop dates «Mih float 

prints cost and protect sutus evaluate* report 

S network gantt chart SCO node tapaoti 

TRS-80 |l II & llll & North Stir U00 00 

Ttlb* Be*4in| — fabrication data lor bent tube snipes 

mpot bend radius and node coord-nates 

computes lube cut length bend and plane angles, segment 

lengths and mandrel stop setting required lor bending 

machines - TRS 80 {I II. I lll| 1 North Star SI2S 00 

Linear Programming — computes maalrnm cost hinctions 

equations are entered using free- form input 

TRS-80 (I II. S III) i North Star SAO 00 

Custom applications ol this program to compute <eed miet 

ice cream blench meat matures, etc are available 

cal lor quote 

Other Engineering Programs including MCJ Sofc»are 

Space frame Structural Analysis 

HVAC Load Computations 

fire Sprinkler Deugn 

Hardy Cross Water System Analysis 

Sheet Metal Estimating 



DOUBLE DENSITY - 179K on SA-400 

ALLTTL-NOFDCChip 

PLUGS INTO CARTRIDGE SLOT 

UCSD Pascal' COMPATIBLE 

COLOR 
COMPUTER 

$99.95 

FLOPPY 
DISK 

DISK ROUTINES ft DEBUG MONITOR EPROM $S4.95 

MK Mt RAM Chip ADAPTER BOARD $2 3.95 

Wfflk-^.u**^*" 447 9009 W. 95th St. 

■ Schnrtoales Overland Pic, ks 66212 
WMlS&'iSr 3 * (913)581-5588 

UCSO Pascal n a reQttttrea traoemar*. VISA 

erf ir* R«9«nt5 of tn« umv of California MASTfaTCASO 



'See List of Advertisers on page 366 
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• D«D»Dt[>D»D«D»D»D«D«D«DC«D 

LNW80 COMPUTERS D 

• 446 • 

100Z TRS-8Q* mod 1 or 3 a 

COMPATIBLE! + HI-RES BW • 
AND COLOR GRAPHICS! D 

IN STOCK NOW!! call for d 

SPECIAL DISCOUNT PRICE! • 

a 



a 

a 

D 
D 
□ 
□ 
D 
□ 
□ 



RAK Electronics 
7180 woodrow wi 

LOS ANGELES, CA 



180 woodrow WIL £Q[y} R ' 



a 

D 

a 

a 

D 

D«a»D»D«D«n»a»D»n»n*D«D»n»D • 



(213) 851-0626 

(71«0 973-1939 

ORDER LINE OPEN 2{4 HRS 

INFO M-F 6-9pm 9-9 S&S 

THAOCMARK or Tandy Coh^okation 



COWBOYS ? 
I 






RAJDCM ? 
RAMS ? 



W you a Hk« lo know NOW before the big gamt 

With PMOCAI* and your TRS - BO' you can us« statistics and 
probability theory to predict me results of this *ee« s b>g 
games And more PftOCAP 

• Gives offensive and aeier-sive ratings tor every 
National Football League team 

• Predicts range of results and probable score tor 
each game 

• Allows computer matchup of any two teams 
(Great for playoffs!) 

• Gives "up to-the- mmute standings statistics 
and ratings for each NFL Division 

pmxiAF is easy to use and comes with extensive documentation 

Disk o' cassette version is only left 95 

To order call our 
guarentee so you i 

D>al (MO) M 3 3000 operetor 400 

in Ohio dial (W0) 56?- '364 operator 400 



^444 

The Tnnfty Computer Group • Software Agent; PuWtaher 



Dynamic Report Generator 

No Programming Required 



• Maintain different data files, each with its own set 
of internal logical relationships. 

• Permits user to define customized report formats 
and column headings. 

• Specify arithmetic relationships between columns. 

• Automatic sorting and file compression. 

• Keyed index for rapid retrieval of data. 

• Redefine index by exchanging it with other report 
columns. 

• Flexible add, delete, and list modes. 

• Edit mode allows headings and arithmetic relation- 
ships to be altered without re-entering data. 

• List mode allows for selected ranges and optional 
sub-totals. 

FOR USE ON 48K-TRS-80 MOD 1, 
1 DISK AND PRINTER. 

PRICE: $14.95 INCLUDES DISK, 

44 PAGE BOOKLET, SHIPPING AND HANDLING. 



DYNAMIC 

M-04 .'<<Hth Street 




• 242 

SOFTWARE 

B.i> side Mew York 11 J64 
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"The user's manual gives a great program 

for extracting this data 

from a specified file number." 



line that contains the field Account Name, 
we see the final byte is 17, 23 decimal, the 
length of our entry for that field. 

Procedures 

The first thing we must do is define some 
variables. We'll use the ones that are provid- 
ed in the Profile user's manual: 



NR The Number of Records In Prodat, including any 

deleted records 
MX The Maximum Number of Records Allowed 
MD The Maximum Drive Number 
NF The Number of Fields in the Record 
D(l) "I" Is an Integer between and 3. D(l) is the 

highest record number stored on disk 

drive "I" 

And now some program lines: 

100 CLS: CLEAR 1000 

110 OPEN "R",1, "INFOFILfcO" 

120 FIELD 1, 2 AS NR$, 2 AS MX$, 1 AS MD$, 2 AS 

DR$, 1 AS RL$, 1 AS NFS, 2 AS D$(0), 2 AS D$(1), 

2 AS DS(1) 

2 AS D$(2), 2 AS D$<3) 

Usually when dealing with a random ac- 
cess file, we'd use an array to break down 
the elements in the 256 character buffer. 
However, here we are only interested in the 
elements we need for the program. 

130 GET 1,1 

140 NR = CVI(NRS): MX = CVI(MXS): MD = ASQMDS): 

NF = ASQNFS): FOR DN = TO 3: D(DN) = CVI(D$ 

(DN)): NEXT DN 

Normally, we would then get the second 
buffer and discover the field names and 
lengths. The user's manual gives a great 
program for extracting this data from a 
specified file number. As we already know 
these things, we can bypass that section. 

150 CLOSE 1 

We will assume that the first 90 lines of 
the program load all the account names 
and addresses into a matrix in memory, 
MASTERLISTS, which will be used to coor- 
dinate the data from PRODAT. (Otherwise, 
we should have three disks on line, two for 
Profile and one for the account data.) In the 
program lines that follow, we will use the 
variable EF to indicate the numeric position 
of the final entry In MASTERLISTS and the 



variable RP to indicate any intermediate 
relative position within the matrix. 



160 DN = 0:DN$ = STR$<DN) 

170 OPEN"R',VPRODAT";DNS 

180 FOR I = TO 3 

190 FIELD 1, (L63) AS DUMMYSTRINGS, 23 AS NM$(I), 

6 AS IN$(I), 8 AS DT$(I), 7 AS AM$(I), 7 AS PO$<l) 

8 AS PDS(I), 4 AS CK$(I) 
200 NEXT I 



Now use the data in MasterfileS to check 
out the status of the accounts stored in 
PRODAT. 

210 FOR RP = 1 TO EF 

220 FOR BN = 1 TO INT(D(DN)/4) 

230 GET 1, BN 

240 FOR I = TO 3 

250 IFLEFT$(NM$(I).1) = CHR$(42)THEN280 

260 IFLEFT$(NM$<I),1) = CHR$<192)THEN 1000 

270 IF NM$(I) = MASTERFILE$(RP,1) AND LEFT$(PD$(I).1) 

= "." THEN 2000 
280 NEXT I, BN 

Line 250 procedes to the next record in 
the subfile if the entry being currently ex- 
amined was deleted. Line 260 sends the 
program to a controlled error message if the 
end of the stored data has been reached 
and no information has been recovered for 
a given account name. 

290 DN = DN = 1: DNS = STR$<DN): IF DN>MD THEN 310 
300 CLOSE 1: OPEN "R", 1, 'PRODAT: ':DN$:G0T0 220 
310 IF DN<>0 THEN DN =0: CLOSE 1: DNS = STR$(DN): 

OPEN ■■R", 1, "PRODAT'iDNS 
320 NEXT RP 

The loose end, lines 2000-xxxx, is merely 
a print statement that will send the informa- 
tion to our line printer (formatted to reflect 
page number of account statement on a per 
account basis) and performs the addition 
necessary to give total due amounts. 

Fig. 6 is a small program for single disk 
users that will read each of the Prodat en- 
tries over a given range of dates (for in- 
stance, if you wanted the entries for August 
you would use 08/00/80 in response to the 
Greater Than question and 09/00/80 for the 
Less Than prompt), print the account name, 
invoice number and amount with pagina- 
tion and, when done, print the total amount 
involved. More fields for manipulation can 
be specified and other actions performed 



Program Listing 




10 CLEAR 1000 

30 CLS: OPEN "R" , 1 , "PRODAT: 0" 

50 EF-LOF(l) 

60 DIM FS(EF) 

70 FOR J-0 TO 3 

90 FIELD 1, (64*J) AS DUMMYS, 63 AS F$(J) 

110 NEXT J 

115 PRINT § 320, "MONTH OF : ";: INPUT M$:CLS 






Program continues 
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"But what good is collecting information 
if you can't do whatever you want with it?" 



Program continued 

120 PRINT $ 320, "DATE RANGE: ";: INPUT"GREATER THAN: 

";GT$:PRINT @ 448 , " " ; : INPUT'LESS THAN: ";LT$ 

130 CLS 

180 FP=1 

190 GET 1,FP 

195 FOR RP=0TO3 

197 IF LEFT$(F$(RP) ,1)=CHR$(42) THEN 290 

199 IF LEFT$(F$(RP) , 1 ) *CHR$ (192) THEN PRINT T:GOTO 202 

200 IF RIGHT$(F$(RP) ,4)«" " AND 

MID$(F$(RP) ,30,8)>GT$ AND MID$ (F$ (RP) , 30 , 8 )<LT$ THEN 
GOSUB 400 ELSE 202 

201 N$=LEFT$(F$(RP) , 23) : IN$«MID$ (F$ (RP) , 24 ,6 ) :AM= 
VAL(MID$(FS(RP) ,38,7) ) : T-T+AM: LPRINTNS; " 

";IN$;" "; :LPRINT USING" till .•#"; AM : LS-LS+1: 

IF LS>50 THEN 500 

202 NEXT RP 

204 FP=FP+1:IF FP>EF THEN 290 
210 GOTO 190 
290 LPRINT " 



300 LPRINT " 

";:LPRINT USING'SSIIII . II" ;T 

310 CLOSE 

320 END 

400 IF FL>0 THEN RETURN 

410 PN=PN+l:FOR X=1T02: LPRINTCHRS (13) ; :NEXTX 

:LPRINT"COPYQUICK<LF>107 EAST 42ND<LFXLF> 

CHARGE DATA MONTH OF ";M$;" 
PAGE "; 

415 LPRINT USING"lll";PN:LPRINT"<LF>";:LPRINT"ACCOUNT 
NAME INVOICE! 

AMOUNT" : FL=1 : RETURN 
500 F0RX=1T06:LPRINTCHR$(13) ; : NEXTX : FL-0 :GOTO202 



on the data by simply following the pattern 
the program provides. 

That's it. Those few lines are all it takes to 
turn Profile into more than just an over- 
priced in-memory information system for 
disks. We now have available to us a feature 
seen on many, if not all, of the large multi- 
user computers: an accessible data base of 
information! For a relatively small machine 
such as the TRS-80 that is some ac- 
complishment! 

If you're not a business and have no ac- 
counts receivable to take care of, don't 
think you can escape Profile. Do you collect 
comics? Magazines? Computer Programs? 
What about all you CB and amateur radio 
operators? Want your logs up to date? 

Forget about Microfiles. Its' expanded 
entry formatting is very nice if all you want 
to do is enter data and recall it according to 
the parameters present in the program 
itself. But what good is collecting informa- 
tion if you can't do whatever you want with 
it? 

Profile gives you this added flexibility, 
and at a cheaper price. (Isn't that against 
the law?)! 



STEREO 



STEREO— Separation by instrument! 
For example, play trumpet and oboe 
through channel A, clarinet and organ 
through channel B. You can switch 
instruments from channel to channel 
at any time! 

PERCUSSION - Now you can add a 
wide range of percussive sounds and 
special effects to your music 1 

Existing Orchestra-80 files load and play 
in stereo automatically 1 
Optional 5th Voice for use with 
speed-up mods! 



AND PERCUSSION! 

New editing features and commands 1 ^^ *f±V% ^ ^4 vr* Q C 

Plugs into any 16k Model I keyboard or KJT Qn^STlCt'OO 
expansion interface without voiding £*M*%f\ /\C 

warranty' yl A 9-9 O 



New editing features and commands 1 
Plugs into any 16k Model I keyboard or 
expansion interface without voiding 
warranty! 

Includes tape and disk versions on 
cassette. 4 sample music files, manual, 
and fully assembled and tested printed 
circuit board 1 






plus $2 00 postage and handling 

($5 for overseas airmail; 

CA residents add 6% sales tax 

MasterCard and Visa 

accepted 



V ^ N 



vW^ 






tfi* 




^1«mAii 



WRITE FOR INFORMATION ON: 

• Upgrading — Orchestra-80 to Orchestra-85. Switch to Stereo 1 

• Greatest Hits— Volumes I and I. All new music! Ready to load and play! 

• Orchestra-90 "— Model HI version of Orchestra-85. Available soon! 



Software Affair 

„ v* 858 Rubis Drive. Sunnyvale. CA 94087 
(408) 295-9195 



■ See List ot Advertisers on page 336 
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APPLICATION 



A home inventory program that remembers the little things. 



Wordly Goods 



John E. Fail 
6170 Downey Ave. 
Long Beach, CA 90805 

Have you ever wondered about the pos- 
sibility of your house being burglarized 
or burning down? We live with this possibili- 
ty every day whether we are at home or not. 
In the event of such a catastrophe your in- 
surance should cover the loss. However, 
when the insurance man comes to call, will 
you be able to accurately recall all the items 
you have lost? Chances are you will remem- 
ber the tv set, the couch, the computer, the 
major items in your household; it is the little 
items you will not easily recall— tools, pic- 
tures, jewelry and the like. 

This program, for a 48K system with two 
disk drives, catalogs 300 items per room 
and provides a line printer routine. 



Inventory for Living Room 



Number Item 

1 



Depending on the total items in your in- 
ventory, you could utilize one file for all 
items in your household. Included in the 
program are full correction and deletion 
routines. Categories included in an indivi- 
dual file are: location; item; data purchased; 



Fail Family Household Inventory 

Directory 

1 = Load Data From Disk 

2 = Look at List for Living Room 

3 = Save Data on Disk 

4 = Printout of Data on File 

5 = Delete an Entire Entry 

6 = Correct an Entry 

7 = Add Entries to File 

8 = Print Total Value of Living Room 

9 = Item Search by Name 

Your Selection Please? 
Fig. 1 Directory Layout 



Couch 

Serial Number None 

Comments: Gold with Flower Patterns 

Chair 

Serial Number None 

Comments: Gold with Flower Pattern (Set of 4) 

Television 

Serial Number 43566981 

Comments: Motorola Model 333-8799.1 

Lamp Floor 

Serial Number None 

Comments: With Shade 

• •••Continue 'C Finished 'F' ....?_ 



Cost 
$ 995.00 



Mfr/Dealer 
Sears 



$ 140.00 Sears 
$1000.00 Dooleys 
$ 40.00 Sears 



Date 
02/05/81 



03/01/81 



04/01/80 



01/01/81 



Fig. 2 Print List Sample 
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initial cost; business the item was pur- 
chased from; serial number; and com- 
ments. 

The program is straightforward, user 
oriented and prompting at all points. The 
scheme is to set up individual files on a 
separate disk by room. The other alternative 
is to file your inventory on the program disk 
providing the inventory is not too large. The 
inventory program can be used by 32K sys- 
tems by adjusting the clear statement in 
line 20 and the dimension statements in line 
25. Line 30 should be changed to fit your 
family name. 

After you have run the program, entered 
files for your inventory and are ready to save 
to disk, you will be prompted by the pro- 
gram to provide a filespec for writing to 
disk. This list of filespecs will be provided 
just prior to loading from or to disk. The user 
should change lines 13010 and 13020 to his 
or her own filespec if those in the program 
are not acceptable. 

A word of caution— plenty of string 
space is provided in the clear statement in 
line 20, however, don't get too carried away 
with large comments or string space will be 
used up fast. 

When first running the program and en- 
tering files, the first item entered will call for 
a location. No further locations will be 
asked for during the course of the entries. 
The program will automatically print that 
location in all entries after number one. If 
you are not using separate files for all 
rooms in the house but use one file for the 
entire household, a single filespec will be 
used to answer the location question. On the 
first entry use a word such as "household." If 



you are using separate files for each room, 
assign that room's name to the location 
question and separate the rooms by file- 
spec when saving and loading from disk. 



Search, Delete and Correct 

The search section is based on key 
words. When searching for an item, the item 
variable is compared against the first three 
letters of the search request input. For ex- 
ample, suppose you have three chairs in a 
room. When you are requested for an item 
to search for, enter chair. The program will 
then search out the first chair encountered 
and print it out. The program will then ask if 
this is the correct chair; if not, the program 
will continue the search. If no comparison 
is found, the program will so advise you. 
When entering data into the item section, 
use the major subject first, such as chair, 
couch, television, computer. If you still can- 
not find the item you are looking for there is 
always the 'Look At List' function on the 
menu to locate an item. 

The deletion routine is very straightfor- 
ward. When an item is deleted, all other 
items are moved up one to fill the space left 
by the deleted item. When the deletion rou- 
tine is called, the program will check with 
you to be certain you are indeed deleting 
the item you wish to delete. 

The correction routine operates much 
like the deletion routine. It checks to make 
sure this is the item you wish to correct, and 
then displays an input form similar to the 
normal entry input routine. You need only 
enter the portion to be corrected. If the item, 
cost and dealer information is correct and 
you only want to enter a new serial number, 
merely press Enter for the items you do not 
want to change and enter the new data in 
the serial variable. All information in the 
other columns will remain unchanged. 

The Line Printer Routine 

The line printer routine is set up for 
80-column printers to maintain compatibili- 
ty with most any printer in use these days. 
The printer function is very handy for keep- 
ing a permanent record of the inventory. 
You can run out a copy of each listing and 
keep it in a safe place, such as a friend's 
home, your place of employment, or a safe 
deposit box. This ensures the list will not 
disappear with the house or burglar. It may 
be a good idea to keep a separate copy of 
the program disk and data disk outside the 
home also. The listing automatically prints 
"a value of room routine" at the end of the 
printout. This function is also available on 
the video for a quick check of the total value 
without a printout. 

Readers without line printers should re- 
move the 4000 series of line numbers lo pie- 



vent locking up the program in case of inad- 
vertently going to that function. This pro- 
gram can also be used by cassette-based 



systems merely by changing the 1000 and 
3000 series of line numbers to accomodate 
cassette i/O.B 



Inventory lor Living Room 

Page: 1 Last Revision: 6 April 1981 

Number Item 

1. Couch 
Comments: Gold with Flower Patterns 

2. Chair 
Comments: Gold with Flower Pattern (set ot 4) 

3. Television 
Comments: Motorola Model 333-8799.1 

4. Lamp Floor 
Comments: With Shade 

5. Lamp 
Comments: Matched set of 2 Table Lamps 

6. Clock Digital 
Comments: With Alarm and FM Radio 

7. Table 
Comments: Coftee Table with Glass Top 

8. Stereo System 
Comments: With 50-60 Records in Cabinet 

9. Painting 
Comments: The Mona Lisa Original by Oa Vinct 

Total Value of Living Room $13,044.00 

Fig. 3 Line Printer Print Sample 



Cost 


Mfr/Dealer 


Date 


Serial Number 


S 995.00 


Sears 


02/05/81 


None 


$ 140.00 


Sears 


03/01/81 


None 


$1000.00 


Oooleys 


04/01/80 


43566981 


$ 40.00 


Sears 


01/01/81 


None 


$ 100.00 


Wards 


02/02/81 


None 


$ 30.00 


Sears 


12/25/80 


322479 


$ 140.00 


Sears 


02/02/81 


None 


$ 600.00 


Wards 


09/18/81 


5559091 


$9999.00 


Art Shop 


01/01/81 


None 






Program Listing 

20 CLEAR25000:T«300:U$=" $##♦#. ##":V$=" Sff.ftt.tt" 

25 DIML$(300) ,I$(300) ,C(300) ,D$(300) ,M$(300) ,S$(300) ,CO$(300) 
30 B$=L$(1) :SK=*0:SW=0:CLS:PRINTTAB(15) "FAIL FAMILY HOUSEHOLD INV 
ENTORY":PRINTSTRING$(63,"=") : PRINTTAB( 24) "DIRECTORY" : PRINTSTRING 
$(63, " = ") :PRINT"1 « LOAD DATA FROM DISK" : PRINT"2 = LOOK AT LIST" 

35 PRINT@337,"F0R ";B$ 

40 PRINT"3 = SAVE DATA ON DISK" :PRINT"4 = PRINTOUT OF DATA ON FI 

LE":PRINT"5 = DELETE AN ENTIRE ENTRY" : PRINT "6 = CORRECT AN ENTRY 

50 PRINT"7 = ADD ENTRIES TO FILE" :PRINT"8 = PRINT TOTAL VALUE OF 

55 PRINT§729,B$ 

57 PRINTe768,"9 = ITEM SEARCH BY NAME" 

60 PRINTfl832,STRING$(63," = ") 

70 PRINT :PRINT@896, "YOUR SELECTION PLEASE" ;: INPUTA: IFA<10RA>9GOT 

030 

80 ONAGOTOl 000, 2000, 3 000, 4000 ,5000, 6000, 70 00, 8000, 9000 :GOTO30 

1000 'LOAD FROM DISK ROUTINE 

1020 GOSUB13000 

1025 CLS:PRINTTAB(20) "LOAD FROM DISK ROUTINE" :PRINTe448 , "PLACE D 

ATA DISK IN DRIVE AND PRESS ENTER" ;: INPUTA$ 

1029 ONERRORGOTO14020 

1030 OPEN"I",l,FS$ 

1040 CLS:PRINTfJ448, "LOADING FILE #" 

1100 FORL=lTOT 

1110 PRINT?462,L 

1160 INPUT#1,L$(L) ,I$(L) ,C(L) ,M$(L) ,D$(L) ,S$(L) ,CO$(L) 

1180 IFEOF(1)THEN1980 

1500 NEXTL 

1980 CLOSE1 

1990 B$=L$(1) 

1999 GOTO30 

2000 'LOOK AT LIST ROUTINE 
2010 B$=L$(1) 

2020 GOSUB12500 

2025 H=0 

2030 FORL=lTOT 

2035 IFLEN(LS(L))=0THEN12700 

Program continues 
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C. C. WRITER 
TRS-BO* 
Color Computer 
WORD PROCESSING 

iixixi:ms:::::::::::::::~ ======= = 

USER MODIFIABLE EX. BASIC N/PA6E 
FORMATTING, HOVE, TABS, DELETION 
INSERTION, 6L0BAL SEARCH I EDIT 
CENTERING, INDENTING, PA6E PAUSE 
ASCII CODES, JUSTIFY, 32K OPTION 
THIS AD PREPARED NITH C.C.HRITER 
ITRS-BO is a TH of Tandy Corp. 
Send $30 Check or Honey Order to 

s»i:sxi:cii:Ks::x:xx:t:ix»tttii 

C-C. WRITER .44 

TRANSFORMATION TECHNOLOGIES 

194 L0CKN00D LANE 

BL00MIN6DALE, IL 60108 



MODEL III 
TREASURE HUNT 

FIND THESE: 

Relocating macro assembler, linking 
loader, symbolic debugger, text editor, 
print spooler, interactive editor/assem- 
bler, disk-disassembler, command 
processor, disk exam/modify, disk 
utilities 

ALL FOR $99.00 

Clue: KKA 

PDS ^ 413 

ALLEN ASHLEY 

395 SIERRA MADRE VILLA 

PASADENA, CA 91107 

(213)793-5748 

Also: Cross assemblers for 8048, Z-8, 1802, 3870. 
S-2000. COP-400 — $75.00 each. Call tor details. 



f MODEL III \ 

TAPE EDITOR/ASSEMBLER 

Run ^adio Shack's Tape Editor/Assembler 
EDTASM) 'or Model I on the Model III using our 
ASPTCH. Srnply !oad EDTASM. trier, load ASPTCH 
and run [angle load possioiei Ai; EDTASM features 
supported plus 

• Full Model I source tape compatibility 

• Assemble directly to memory or tc tape. 

• Execute your object and return to EDTASM 

• Change cassette speed while in EDTASM. 

• Verify source tape after "W" command. 

• Display and edit memory 

• Recover from reset without tape re-load 

Requires TRS-80* Model III 16K and up. Also 
available Model I ASPTCH (specify) and other Model 
III software products 

Send Checker money order for S 1 7 95 for ASPTC H 

tape and detailed instructions to. 

BYTE MISER SOFTWARE 

720 W. Haven Blvd. 
Rocky Mt.. N.C. 27801 ^455 

V 'TWS-8C is i trademar* of TAND - 



Program continued 

2036 IFSK=1ANDLEN(L$(L) ) =0THENPRINT§448 , "NO DATA ON FILE FOR ITE 

M #";ID;" PRESS ENTER" ;: INPUTA$ : G0T051 00 

2038 IFSW=1ANDLEN(L$(L) ) =0THENPRINT£448 , "NO DATA ON FILE FOR ITE 

M # ";ID;" PRESS ENTER" ;: INPUTA$ :GOTO6080 

2040 PRINTL".";TAB{7) I$(L) ; : PRINTTAB( 29) USINGU$;C ( L) ;:PRINTTAB(4 

1)M$(L) ;TAB(54)D$(L) :PRINTTAB(7) "SERIAL NUMBER: "S$(L) :PRINTTAB( 

7) "COMMENTS: "C0$(L) : H=H+3 : IFH=12GOSUB12580 

2045 IFSK=1GOTO5050 

2050 IFSW=1GOTO6050 

2800 NEXTL 

2999 GOTO30 

3000 'OUTPUT TO DISK ROUTINE 
3005 GOSUB13000 

3010 CLS:PRINTTAB( 15) "OUTPUT DATA TO DISK ROUTINE" : PRINT@448 , "PL 

ACE DATA DISK IN DRIVE AND PRESS ENTER" ;: INPUTA$ 

3020 CLS:PRINT@448, "SAVING FILE #" 

3025 OPEN"0",l,FS$ 

3030 F0RL=1T0T 

3040 PRINT§461,L 

3070 IFLEN(I$(L))=0THEN3998 

3075 L$(L)=BS 

3080 PRINT#1,CHR$(34) ;L$(L) ;CHR$(34) ;CHR$(34) ;I$(L) ;CHR$(34) ;C(L 
) ;CHR$(34) ;M$(L) ;CHR$(34) ;CHR$(34) ;D$(L) ;CHR$(34) 
3090 PRINT#1,CHR$(34) ;S$(L) ;CHR$(34) ;CHR$(34) ;C0$(L) ;CHRS(34) 
3500 NEXTL 

3998 CLOSE(l) 

3999 GOTO30 

4000 "LINE PRINT ROUTINE 

4010 CLS:PRINTTAB(15) "LINE PRINTER PRINTOUT ROUTINE" :PRINT: PRINT 

"ENTER THE DATE TODAY" ;: INPUTDA$ 

4015 PRINT: PRINT'SET PRINTER TO WIDE CHARACTERS AND PRESS ENTER" 

; :INPUTLP$ 

4020 CLS:PG=0:GOSUB12800 

4025 PRINTG640, "PRINTING ITEM #:" 

4030 FORL«lTOT 

4035 PRINT@656,L 

4040 IFLEN(L$(L) )=0THEN4230 

4060 LPRINTL;".";TAB(6) I$(L) ; : LPRINTTAB( 28) USINGU$;C(L) ;:LPRINTT 

AB(38)MS(L) ;TAB(53)D$(L) ;TAB(63) S$(L) :LC=LC+1 :GOSUB14000 

4065 LPRINTTAB (6) "COMMENTS: "CO$(L) :LC=LC+1 :GOSUB14000 

4070 LPRINTSTRINGS(79,"-") :LC=LC+1 .-GOSUB14000 

4220 NEXTL 

4230 SW=1:GOTO8000 

4980 SW=0:LPRINT"":LPRINT"TOTAL VALUE OF ";B$;" " ; : LPRINTUSINGV$ 

;RT:LPRINTCHR$(12) 

4999 GOTO30 

5000 'DELETE ENTRY ROUTINE 

5010 SK=0:CLS:PRINTTAB(15) "DELETE ENTRIES ROUTINE" :PRINTg448 , "WH 

AT IS THE ITEM NUMBER TO BE DELETED" ;: INPUTID 

5015 IFID<1ORID>300THEN5010 

5020 CLS:SK=1:L=ID:H=0:GOSUB12500 

5040 GOTO2036 

5050 PRINT@448, "CORRECT ITEM TO BE DELETED (YES/NO) ";: INPUTA$ 

5060 IFLEFT$(A$,1)="N"THENSK=0:GOTO5100 

5065 CLS:PRINT@448, "DELETEING ITEM #: " ; ID 

5070 FORX-IDTOT 

5080 L$(X)=L$(X+1) :I$(X)=I$(X+1) :C(X)=C(X+1) :M$(X) =M$ (X+l) :D$(X) 

=D$(X+1) :S$(X)=S$(X+1) :CO$(X)=CO$(X+l) 

5085 IFLEN(L$(X) )=0THEN5100 

5090 NEXTX 

5100 CLS:PRINTTAB( 15) "DELETE ENTRIES ROUTINE" : PRINT@448 , "DELETE 

ANOTHER ITEM ( YES/NO) ";: INPUTDK? 

5110 IFLEFT$(DK$,1) ="Y"GOTO5010ELSESK=0 :GOTO30 

5999 GOTO30 

6000 'CORRECT ENTRY ROUTINE 

6010 CLS:PRINTTAB( 15) "CORRECT ENTRY ROUTINE" 

6020 PRINT§448,"WHAT IS ITEM NUMBER TO BE CORRECTED" ;: INPUTID 

6025 IFID<1ORID>300THEN6010 

6030 SW=1:GOSUB12500 

6040 L=ID:H=0:GOTO2038 

6050 PRINT§448,"CORRECT ITEM TO BE CORRECTED (YES/NO) ";: INPUTA$ 

6060 IFLEFTS<A$,l)="Y"THENCLS:SW=l:L=ID:PRINTei92."ITEM * ":ID:G 

OTO7110 

6070 IFLEFT$(A$,1)="N"THENSW=0:GOTO6080 

6080 SW=1:CLS:PRINTTAB( 15) "CORRECT ENTRY ROUTINE" : PRINT@448 , "CHA 

NGE ANOTHER ITEM ( YES/NO) ";: INPUTDK$ 

6090 IFLEFT$(DK$,1)="Y"GOTO6010ELSESW=0:GOTO30 

6999 GOTO30 

7000 'ADD ENTRIES ROUTINE 
7010 CLS 

7050 FORL=lTOT 

7100 IFLEN(L$(L))=0THENPRINTTAB(15)"ADD ENTRIES TO LIST ROUTINE" 

:PRINTSTRING$(63,"=") :PRINTgl92 , "ITEM #";LELSE7900 

7105 PRINT@192,"ITEM #";L 

7110 IFL=1THENPRINTG256, "ENTER ROOM : " ; : INPUTL$ (L) 

7115 IFL>1THENPRINT@256,L5(1) 

7120 PRINT§320,"ITEM (19 MAX) "; : INPUTI$(L) 

P'ogram continues 
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Color computer owners 




Yes, that's right - for as little as 
S298.00 you can add 32K of dynamic 
RAM, and a disk interface, to your 
TRS-80 Color Computer! If you just 
want the extra memory it's only 
SI 99.00, and you can add the disk 
interface later for $99.00. 

Just plug the Color Computer In- 
terface (CCI). from Exatron. into 
your expansion socket and "Hey 
Presto!" - an extra 32K of memory. No 
modifications are needed to your 
computer, so you don't void your Ra- 
dio Shack warranty, and Exatron give 
both a 30 day money-back guarantee 
and full 1 year repair warranty on 
their interface. 

The CCI also contains a 2K 
machine-language monitor, with 
which you can examine (and change) 
memory, set break-points, set memo- 
ry to a constant and block-move 
memory. 

So what about the CCI Disk Card? 
Well as we said it's only an extra 
S99.00, but you'll probably want 
Exatron's CCDOS which is only 
$29.95 - unless you want to write your 
own operating system. The CCI Disk 



Card uses normal TRS-80 Model I 
type disk drives, and CCDOS will 
even load Model I TRSDOS disks into 
your color computer - so you can 
adapt existing TRS-80 BASIC pro- 
grams. 

As a further plus, with the optional 
ROM Backup adaptor, you can dump 
game cartridges to cassette or disk. 
Once the ROM cartridge is on cas- 
sette, or disk, you can reload, examine 
and modify the software. The ROM 
Backup adaptor is only $19,95. 

For more information, or to place an 
order, phone Exatron on their Hot 
Line 800-538 85o9 (inside California 
408-737 7111), or clip the coupon. 




excellence in electronics 

exatron 




DEALER ENQUIRIES INVITED 



Exatron, •^ 500 

181 Commercial Street, 
Sunnvvale. CA 94086 



□ Please send a 32K Color Computer 
Interface for $199.00 

□ Please send a CCI Disk Card for $99.00 

□ Please include ('('DOS and manual 
for $29.95 

□ Also include a ROM Backup adaptor 
for $19.95 

Please add $5.00 for shipping to all orders, 
and ti percent sales tax in California. 

Name 

Address 



City 

State Zip 

Charge my: 

Z MasterCard Interbank Code 

□ Visa Expiration Date 

Card 

Z. Check enclosed for 

D Ship COD ($2.00 extra) 



Signature 



iJK K \M plu> Disk Int.-rfaix 



1 KS-vi i» a trademark of Tandj 



.■' 



CHURCH DONATIONS 
TRS-80 MODELS I &. II 

Manages, stores and reports on the 
offerings made by a church congrega- 
tion. 

Model I handles up to 1000 members 
and 4 categories of offerings Operates 
under TRS0OS 2.3 or Newdos $ I 25.00. 

Model II handles up to 3000 members 
and I 5 categories of offerings. Includes 
Mailing list and operates under TRSDOS 
2.0. $175.00. 

CUSTOM DATA 

P.O. Box 1066 
Alamogordo. NM 883 1 
Phone (505) 434-1096 

.-412 



TRS-80* COLOR Computer 

BORED 

with SLOW Cassettes 

Put your BASIC program into 
a ROM CARTRIDGE. Instant 
run at power-up! More data 
space! IT'S EASY! Send us your 
program on cassette and we'll 
quickly return it in a ROM 
CARTRIDGE. 

Prices start at $45.00 

(Quantity Discounts Available) 



Eigen 
Systems 



-510 



P. O. Box 10234 
Austin, Texas 78766 
(512) 837-4665 

—Assembly Language Rom Cartridges 
— Custom Programming Services 
TRS'-80 is a trademark of Tandy Corp. 



TRS-80 

COMPUTER 
DISCOUNTS 

• Factory Direct 

• Best Prices Anywhere 

• No Out-of-State Taxes 

• Full Radio Shack Warranty 

• Free Price List 

SCOTT TASSO 

Owner 
Radio Shack Associate Store #7053 

175 N. Delsea Drive ^10 
Vineland, N.J. 08360 
(609)691-7100 



. 



Program continued 

7130 IPLEN(I$(L) ) >19THENPRINT§335,STRING$(40," "):GOTO7120 

7140 PRINT§384,"COST (7 MAX I.E. 9999.99) ";: INPUTC(L) 

7160 PRINT#4 4 8, "MANUFACTURER/DEALER (11 MAX) " ; : INPUTMS (L) 

7180 IFLEN(M$(L) ) >llTHENPRINTe478, STRINGS ( 20 , " ") :GOTO7160 

7200 PRINTe512,"DATE PURCHASED (MM/DD/YY) " ; : INPUTDS(L) 

7210 IFLEN(DS(L) ) >9THENPRINT#53 9, STRINGS (20," ") :GOTO7200 

7220 PRINTe576, "SERIAL # (14 MAX) "; : INPUTS$(L) 

7230 IFLEN(SS(L)) >14THENPRINT§594, STRINGS (2§," ") :GOTO7 220 

7240 PRINT £6 40, "COMMENTS (40 MAX) "; : INPUTCOS(L) 

7250 IFLEN (COS (L))>40THENPRINT§659, STRINGS (45," ") :GOTO7240 

7300 PRINT#896,"IS ABOVE DATA CORRECT (YES/NO) ";: INPUTFS: IFLEFTS 

(F$,1)*"Y"THENPRINT£896,STRING$(40," ") 

7310 IFLEFTS (F$,l)="N"THENL=*L:CLS:GOT071i5 

7315 IFSW=1GOTO60B0 

7320 PRINT§896," ENTER 'A' FOR ANOTHER ENTRY. 'R' RETURN TO DIREC 

T0RY";:INPUTG$ 

7340 IFG$«="A"THEN7900ELSE30 

7 900 CLS:NEXTL 

7 999 GOTO30 

8000 "TOTAL VALUE OF ROOM ROUTINE 

8040 B$=L$(1) 

8050 CLS:RT«0 

8055 PRINTS448, "TOTALING VALUE OF ";B$ 

8070 F0RL-1T0T 

8090 RT*C(L)+RT 

8130 NEXTL 

8140 IFSW=1GOTO4 980 

8150 CLS:PRINT8448, "VALUE OF ";B$;" "; : PRINTUSINGV$;RT:PRINT0960 

, "PRESS ENTER"; :INPUTA$:GOTO30 

8999 GOTO30 

9000 ' SEARCH FOR ITEM ROUTINE 

9010 GOSUB14050:PRINTg448," NAME OF THE ITEM YOU ARE SEARCHING F 

OR"; :INPUTSE$ 

9020 GOSUB14050:PRINTg448, "SEARCHING FOR ";SE$ 

9040 F0RL=lT03fl 

9045 IFL«=301ORLEN(I$(L))-0THEN9250 

9050 IFLEFT$(I$(L) ,3) -LEFT$(SE$,3) THENGOSUB12500ELSE9200 

9060 PRINTL".";TAB(7)I$(L);:PRINTTAB(29)USINGU$;C(L);:PRINTTAB(4 

1)M$(L) ;TAB(54)D$(L) :PRINTTAB(7) "SERIAL NUMBER: "S$ (L) : PRINTTAB( 

7 ) "COMMENTS : "COS ( L) 

9070 PRINT§448,"IS THIS THE ITEM YOU ARE LOOKING FOR (YES/NO) " ; r 

INPUTSIS 

9075 IFLEFT$(SI$,1)="Y"THEN9100 

9080 IFLEFT$(SI$,l)«"N"THENGOSUBl4050:PRINTe448, "CONTINUE SEARCH 

FOR ";SE$" (YES/NO)"; :INPUTSJS 
9090 IFLEFT$(SJ$,1)-"N"THEN9100ELSE9200 

9100 GOSUB14050:PRINT§448, "SEARCH FOR ANOTHER ITEM ( YES/NO) ";: IN 
PUTSA$:IFLEFT$(SA$,1)="Y"THEN9010ELSE30 
9200 NEXTL 
9250 PRINT§448, STRINGS (40," ") :PRINT8448, "NO FURTHER DATA AND/OR 

DATA ON FILE FOR " ;SE$: FORZ-1TO1000 :NEXTZ :GOTO9100 

9998 GOTO30 

9999 END 

12500 CLS:PRINTTAB( 20) "INVENTORY FOR " > B$: PRINTTAB(l) "#" ;TAB(7) ■ 

ITEM";TAB(29)"COST";TAB(41)"MFR/DEALER";TAB(55)"DATE":PRINTSTRIN 

G$(63,"«") 

12550 RETURN 

12580 H«0:PRINT§980,"**** CONTINUE 'C FINISHED 'F' ****"i:INPUT 

J$ 

12590 IFJ$-"F"THEN30ELSEGOSUB12500 

12600 RETURN 

12700 PRINT§960,"END OF LIST FOR ";B$;" PRESS ENTER" ;: INPUTKS: GO 

TO30 

12800 LC«0:PG«PG+1:LPRINTTAB( 25) "INVENTORY FOR ";B$:LC»LC+1:LPRI 

NT" ":LC-LC+1:LPRINT"PAGE:"PG;TAB(45)"LAST REVISION: ";DA$:LC-LC 

+1 

12805 LPRINTSTRING$(79,"-"):LC*LC+1:LPRINT" ":LC=LC+1 

12810 LPRINTTAB(1)"#";TAB(6) "ITEM" ; TAB ( 28) "COST" ; TAB (3 8) "MFR/DEA 

LER";TAB(54)"DATE";TAB(63) "SERIAL * " :LC-LC+1 :LPRINTSTRING$ (79 , "- 

"):LC=LC+1 

12820 RETURN 

13000 CLS:PRINTTAB(20) "FILESPEC KEYWORD LIST" 

13010 PRINT: PRINT'THE FOLLOWING FILESPEC WORDS ARE AVAILABLE: ": P 

RINT:PRINT"RADIO ROOM - RADIORM" :PRINT"LIVING ROOM » LIVINGRM":P 

RINT'DINING ROOM = DININGRM" 

13020 PRINT"KITCHEN - KITCHEN" :PRINT"MASTER BEDROOM = MASBEDRM": 

PRINT"MIKES BEDROOM •= MIKEROOM* : PRINT'GARAGE = GARAGE" : PRINT "PAT 

10 = PATIO" 

13030 PRINT8960, "FILESPEC DESIRED" ;: INPUTFS? 

13040 RETURN 

14000 IFLC=60THENLPRINTSTRING$(5,CHR$(10) ) : LC«0 :GOSUB12800 

14010 RETURN 

14020 RESUME14030 

14030 CLS:PRINTe460, "********** FILE SPEC ERROR **********" s forz 

=1TO1000:NEXTZ:GOTO30 

14050 CLS:PRINTTAB( 19) "SEARCH FOR ITEM ROUTINE" : PRINTSTRINGS (63 , 

14060 RETURN 
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Poor 

Man's 

Floppy 



HIGH SPEED CASSETTE SYSTEM 



Now the widely acclaimed 
JPC Cassette System is available 
lor your TRS-80' computer. 
The price is only $90.00 

TC-8 Cassette System 
JPC Products 

Albuquerque, NM 
Kit: $90 
Assembled: $120 

by Ctrl A. Kollar 

I guess I don't have to tell any TRS-80 owners 
how frustrating the cassette system that 
comes with the computer can be. Even with the 
factory mod that's available, the annoyance of 
loading and checking programs becomes just 
barely tolerable. 

If you're like me. after you've just plunked 
down a chunk of money for a Level II 16K ma- 
chine, "you ain't got nuttin left" for even one 
disk drive at 500 bucks apiece. So you suffer. 

A reasonable alternative is the Exatron 
Stringy Floppy (ESF). This will cost you about 
2S0 bucks and totally eliminates your loading 
and saving problems, automatically and fast. 
I've had one of these for about six months and 
love it! 

But, if the price is still too steep, have I got a 
device for you! 

The Device 

The February 1980 issue of Microcomputing 
had an ad that intrigued the hell out of me. It 
was a high-speed cassette system by JPC Prod- 
ucts acclaimed as a "poor man's floppy." It 
made all sons of seemingly ridiculous claims 
such as "loads five times faster," "stores 50,000 
bytes on a 10-minuie cassette," "less than one 
bad load in a million bytes with the volume con- 
trol anywhere between one and eight." 

All this for a measly (90) bucks? How could 
this be? A call lo Albuquerque answered a few 
questions: Yes, it had its own power supply, 
and, it stored programs five times faster be- 
cause it utilized higher density data. The com- 
puter outputs the information at a higher rate 
out of the rear keyboard connector. 

The ad had even claimed anyone could build 
it even if you have never soldered before. JPC" 
would make it work, if you couldn't — for free. 
I was sold. I placed my order, and it arrived 
about two months later (parts shortage). 

I work in electronics, so I found the unit ex- 
ceptionally easy to build. It took about an 
hour. The manual is superb. (That's better than 
great.) It was clear, concise and exact with no 




FOR TRS-80* 



[Reprint of June 1980 Review, 80 Microcomputing] 



ambiguities. Important parts placements are 
stressed (polarity markings on electrolytics, 
bands on diodes, etc.). 

JPC was right! With these instructions, you 
couldn't go wrong. The board quality is excel- 
lent. It is double-sided and parts locations are 
clearly marked on the component side of the 
board. There are no jumper wires to install. 
JPC utilizes PC traces and plated-through 
holes for connections to traces on the other side 
of the board. 

Also, there are absolutely no adjustments or 
settings to bother with. 

The documentation is a sheaf of 8 '•'; X 1 1 pa- 
pers stapled together. It is written in the nicest 
format I've seen in a while. Each command 
and/or subjects is covered on its own sheet in 
large type. All explanations are in easy to read 
English— not computerese. 

Commands and Features 
SAVE"fHename": Saves your BASIC pro- 
gram on cassette. 

LOAD: Reads the next BASIC program from 
the cassette. 

LOAD" filename": Searches for and loads the 
specified file from cassette. 
LOAD? and LOAD?"fllename": Reads file 
from cassette, and compares contents to mem- 
ory. 

l.OADN: Prints a list of all the programs on a 
cassette, until interrupted by the "break" key. 
LOADN"fIlename": Same as above except the 
tape will stop at the end of the program named. 
KILL: Removes the file manager program 
from memory so that the extra memory can be 
used by large programs. 
RSET: Allows the operator to rewind and posi- 
tion the tape on tape recorders that have these 
functions tied to the motor control jack. 
RUVfHename": TC-8 searches for a specified 
program and runs it immediately. 
PUT'filename": Same as SAVE "filename", 
except it is for use with system tapes. 
GET: Same as LOAD, except it is for use with 
system tapes. 

GET"fllename": Same as LOAD "filename", 
except it is for use with system tapes. 
GET? and GET?"filename": Same as LOAD? 
and LOAD? "filename", except it is for use 
with system tapes. 
GETN and GETN'Tilenime": Same as 



I OADN and I OADN"filename '. except it is 
for use with system tapes. 
OPEN: Required before cassette input or out- 
put of a data file can be attempted. 
CLOSE: Required to end a cassette data file. 
PRINT*: Allows numerical or string data to be 
output to a cassette file 
INPUT*: Allows numerical or string data to be 
input Irom a cassette file. 

I haven't counted them, so I don't know 
about the "one load in a million bytes" claim, 
hut m\ son. Anthons (age II). loaded about 30 
of his programs from his Radio Shack format 
tape to a new TC-8 format tape. He's run them 
all and lound no bad loads. 

Unlike the standard tape system, you can po- 
sition your tape anywhere before the program 
you want and not has e to look for a blank spot 
between programs. The TC-8 patiently waits 
lor the program you want and then starts load- 
ing without getting confused by the portion of 
the previous program you just fed it. 

Try that on your regular cassette system; 
you'll wear out the reset button. ■ 

ORDER NOW 

To order your TC-8 kit. send your check or 
money order lor $90.00 plus $3.50 pottage 
and handling to JPC PRODUCTS CO.. 12021 
Paisano Ct.. Albuquerque. NM 87112 (New 
Mexico residents add 4°fo sales tax). Credit card 
orders accepted by phone or mail. Personal 
checks will delay shipment. We will otherwise 
immediately ship you the TC-8 kit. the cabinet, 
the ribbon cable, the power adapter, an instruc- 
tion manual, and a cassette containing the 
software. 



II JPC Pf 

%^Phnnp f5f 



,xl90 



JPC PRODUCTS CO. 
Phone (505) 294-4623 
12021 Paisano Ct. 
Albuquerque, N.M. 87112 
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ALIEN DEFENSE 

MOD III with Sound 




By Larry Ashmun 
/ 



ITS HERE! 

"Ifs more than just another 
machine language arcade 
game." 

ITS AN EXPERIENCE 

Super Fast 
1 or 2 Player 

MOD III ONLY 

Tape version $19.95 

Disk Version Coming Soon 




SEE OUR EXPANDED AD 

IN 80 US JOURNAL 

for more product information. 




Larry Ashmun Is Back . . . 
and Brings You . . . 

SUPER VADERS 

With Sound - Mod I & Mod III 

•1981 Soft Seotor Marketing, inc 

The third in the evolution of the 
most popular space invaders games 
for Tandy machines. Now for 1 or 2 
players. 10 levels of play. 

Cassette (goes to disk) $19.95 



Ask for upgrade information for TRS-Super 
Jnvoaers or Invaders- Plus. 



MOD III ROM 
COMMENTED 

B 1981 Soft Sector Marketing, inc 

Only $22.50 

+$2.50 Shipping & Handling 

Not just a rehash of old information, 
but detailed comments on the ROMS 
in the latest machine from Tandy. 

Now in its 3rd printing! 
Over 150 Pages! 



TAPE COPY 2 

•1981 Soft Sector Mofkettng. inc 

This program will load most any TRS-80 
500 Baud system tape (standard) Mod I 
speed) and load it into memory and save 
it at either 500 or 1 500 Baud on the Mod III 
NO KNOWLEDGE OF MACHINE LANGUAGE 
NEEDED Now it gives you a way to bock 
up a machine language program that 
loads at the lower speed and makes 
cassette loading into your new Mod III a 
much faster and more reliable process. 
Works with Mod l* & Mod III. 



Only 



$14.95 



Omit T ' *. %x<a :*••» 



MASTER CONTROL 

For the Color Machine 

1981 Soft Sector Marketing. Inc. 
Requires 16K 



! ■ BHHIIUaRHBi 

J iaaaBQaaanH 
aaaa a a b u >< 



^Dout our other Color Machine programs! 



FEATURES: 

1. 50 preprogrammed command keys, standard and 
extended commands. 

2. Direct control of motor, trace and audio. 

3. Relocatable machine code. 

4. Automatic line numbering, starting point and incre- 
ment alterable. 

5. Programmable custom key 

6. Direct Run button. 

7. Keyboard overlay for easy program use. 

8. Easy entry of entire commands into the computer and 
display. 

9. Full instruction manual. 

Cassette $24.95 



Outside Michigan 
Order Line Only 

800-521-6504 



^ 5I5 



SOFT SECTOR MARKETING, 

INCORPORATED 

6250 Middlebelt 
Garden City, Michigan 48135 



Questions & 
Michigan Orders 

313-425-4020 




For Your TRS-80* 

Mod I & III 
Mod I -$125.00 

e 1980 by David Welsh 

Mod III -$175.00 

e 1981 by David Welsh 

There Is Nothing 
Even Close® 

The word processing system that is 
easy tor the novices but has the power 
for professionals. 

Most used comment when anybody talks about Lazy Writer is "Easy to Use". 
Other Comments: 

• "What has moved the Mod I up to at least a triple-A league, if not the true big leagues of writing, 
is a modest priced word processer called Lazy Writer." 

• "All functions of Lazy Writer are well covered in its documentation, which ranks among the best 
Tve seen." 

Creative Computing. July 1981 

• "Now that I have a chance to use and compare Lazy Writer with my other two popular word 
processing programa I am sorry that I was not aware of Lazy Writer some time ago." 
C.H., St. Louis MO 

For those of you who requested 
a spelling checker to use with Lazy Writer® 

Now available from 

CGTYl SOFT SECTOR MARKETING, 

MICRO PROOF 

Product of Cornucopia Software 
EASY TO USE 

50,000 WORD VOCABULARY & EXPANDABLE 

RECOGNIZES PREFIXES & SUFFIXES 

REQUIRES ONLY 32K OF MEMORY & DISK 

AFFORDABLE & AVAILABLE IN THREE FORMS: fully independent program to identify errors.' 

independent program to identify and correct errors; or with a conversion program that 

will permit MICRO PROOF to operate from within. 



< 



New Lower Price! Was Now Only 

TRS-MOD I or III Version $125.00 $89.00 
Correcting Feature $60.00 
Word Processing Con- 
version for Lazy Writer" $35.00 



Let MICRO PROOF 

Find Your Errors 

Before Someone Else Does! 




COD - certified check. MO ex cash only. Most orders shipped next day AM orders must have shipping included 
Please add 2% or $2.50, whichever is higher for shipping Michigan residents, please oad4% tax Add extra $1 .50 
for COD Personal checks take 3 weeks to clear All hardware must be prepaid No hardware shipped collect 
Out of the country orders odd $10.00 extra shipping 
•TRS-30 « a OKKkKt of Booto Shock. etvtson of mo Tanov Capexatiorv 



VISA 



• See List ol Advertisers on page 336 
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GENERAL 



Metabasic—an end to the development of new languages. 

A Macroprocessor 
For Basic— Part IV 



J. Alan Olmstead 

J. Olmstead Financial Engineering Systems 

3813 West St., Moritz Lane 

Phoenix, AZ 85023 

Unless the Basic programmer is writing 
in native MetaBasic mode, the Basic 
compiler will always be an "emulator" com- 
piler (an emulator is a program which reads 
from one language and translates into a 
similar language). I wrote my first assembly 
language emulator in 1967 and can state 
flatly that no emulator can function with 
100% accuracy. I do not write in MetaBasic 
until the second state of program imple- 
mentation, preferring to "sketch out" the 
outline of the program in fast and easy in- 
terpreter Basic. This is especially desirable 
for debugging tricky sections of logic. The 
interpreter may be relatively slow, but the 
problems are caught right at the time that 
the subroutine is being written and is, ac- 
cordingly, fresh in the mind. That portion is 
then precompiled into MetaBasic and there 
are always details to fuss over and change, 
as much out of style as out of necessity. 
After a trial compilation and execution 
under assembly language, any portions of 
the program which are not exactly as you in- 
tended may be written in pure assembly lan- 
guage. 

Programs should not be compiled for 
frivolous reasons. If the application is not 
time-dependent, is not in need of direct 
hardware controls for some operational 
reason, and is not subject to a concern for 
security, it should remain under interpreter 
Basic. Although not difficult, the technical 
environment involves so many details it's 
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not reasonable for anyone, at any level of 
experience, to expect to realize quick and 
easy results. 

Preparation 

Once determined a program needs com- 
pilation, preparation is required for the pro- 
grammer and the program. 

The programmer should be well-trained 
or experienced to the extent that he 
understands the workings of every Basic 
command word he uses without reference 
to the Basic manual. Understanding does 
not mean mere memorization; it includes an 
understanding of the conditions under 
which the instruction will produce its par- 
ticular kinds of errors and "unspecified 
results." The programmer should be totally 
familiar with the compiler manual. The pro- 
grammer should also know how the com- 
puter hardware works, including what the 
registers do and how they do it. 

The program to be compiled should itself 
be prepared, keeping in mind that in the 
compilation process the complex and gen- 
eral are broken down into the elemental and 
explicit. Multiple-command lines should be 
broken apart. An error message directing 
one's attention to a line containing a half- 
dozen to a dozen commands is nearly as 
worthless as no message at all. 

Error-trapping subroutines are most com- 
monly deficient in applications and sys- 
tems software, but they are among the 
most important program elements. The pur- 
pose of error-trapping generally is to pre- 
vent the uncontrolled termination of pro- 
gram execution by attempting to correct or 
work around a condition for which the pro- 



gram or the operating system is not pre- 
pared. For example, when TRSDOS dis- 
plays the Ready prompt, preceding the 
typed in response by a blank space causes 
the system to respond "What?" If an other- 
wise valid sequence of characters is typed 
in which is not a functional command word, 
the system attempts to locate a program 
file by that name. Failing, it displays the 
"Program Not Found" message. Although 
part of the normal functioning of the 
TRSDOS program, these are actually error 
traps. 

The best example of an untrapped error is 
illustrated in For. . . Next loops which refer- 
ence an unverified third element (see Fig. 1). 
The non-trapped code is sure to fail at one 
time or other, while the trapped code can- 
not fail— at least due to the LEN(Y$) as 
compared to the values possible for "X" 
due to "A". This kind of trapping may com- 
prise ten percent or more of a program. 

Error-trapping for I/O files is particularly 
important, and the methods differ depend- 
ing upon the types of files and the types of 
access modes used for the files. 

Most Basic programmers have never ex- 
perienced a true program "blow up"; the 
closest they have experienced is a sudden 
and unexpected clearing of the screen and 
display of the Ready prompt in what is obvi- 
ously a Boot-up system status. When a 
computer program blows up, the computer 
actually stops. To find out what went wrong 
requires the skills associated with the de- 
bug function, plus those of an experienced 
Assembly programmer. 

Ample use of error-trapping procedures 
will assure the applications program will 



always give a positive indicator of what 
problem has occurred. Unlike interpreter 
Basic, the MetaBasic compiled program 
will not stop program execution arbitrarily 
when a problem has been encountered. In- 
stead, the error condition register is posted 
with the code number for the error; the error- 
trap register is checked to determine if an 
error-trap line number is active; if it is, the 
error exit takes place; if not, the operating 
system merely returns to the user's pro- 
gram after refusing to perform the request- 
ed function. The error code may be retrieved 
at any time by the command "A = ERR". If 
the command returns a zero, it means an er- 
ror-free operation was performed since the 
last error. Every operating system function 
except ERR resets the error-trap register to 
zero before performing its requested func- 
tion. 

How the MetaBasic Compiler Works 

Nearly every MetaBasic Compiler user 
will be initially interested in compiling 
already existing interpreter Basic pro- 
grams, as opposed to writing new programs 
specifically for the compiled environment. 



"If the command returns to a zero, 

it means an error- free operation 

was performed since the last error. 



Accordingly, the Precompiler will be as im- 
portant as the Compiler itself. 

Except for certain definition functions, 
the first word in a MetaBasic command is 
always a command word. Thus, the princi- 
pal job of the Precompiler is to review the in- 
terpreter Basic program to ensure every 
command may be translated into Meta- 
Basic format, and to do so if possible. If not, 
an error diagnostic is inserted conspicu- 
ously into the output MetaBasic program 
file. 

The Precompiler is a group of three pro- 
grams. The first program catalogs all refer- 



enced line numbers and makes certain all 
such lines actually exist. The first line of the 
program is always defined as a referenced 
line number, because it eventually will be, 
even if the program in its original interpreter 
Basic form does not reference it. Since 
Assembly does not use line numbers, all ref- 
erenced line numbers are converted into 
name tags by inserting the letter L before 
the number. These appear as new lines in 
the form "L1000 EQU $", which is called an 
"equate" pseudo-operation command used 
by the assembler to identify a referenced 
address. From this point onward, the actual 



Non-trapped Code 


Trapped Code 


1000 FOR X = 1 TO A STEP 1 1000 B - IEN(Y$) 


1010MIDS<Y$.X.1) = "0" 


1010 FOR X = 1 TO A STEP 1 


1020 NEXTX 


1020 IF X>B THEN 1050 




1030MISS(Y$.X,1) = "0" 




1040 NEXT X 




1050 . . 




Fig. 1 



FIXED ASSETS 

Put your TRS-80 computer to work keeping track of 
all information related to your fixed assets and deprecia- 
tion. This versatile system, developed by a CPA, will 
compute depreciation according to straight line, declining 
balance, and SYD methods and maintain the complete 
audit trail you need for financial and tax reporting, in- 
cluding fixed asset ledger and acquisition and disposal 
reports. You will be able to project depreciation for cur 
rent and future years, use different methods for financial 
and tax reporting, switch from declining balance to 
straight line when advantageous, compute investment 
tax credit and additional first-year depreciation. Reports 
are available in both summarized and detailed formats, 
and can be organized by general ledger account, location, 
department. ADR class, and year of acquisition. 

Currently available for the TRS-80 Model I with at 
least 32K and 2 disk drives, and for the Model III with at 
least 32K and 1 disk drive. Requires Disk Basic and a 
TRSDOS-compatible operating system. 

FAAS-1 for Model I $149 

FAAS-3 for Model III $149 



TAB132 



At last, here is the solution to LPRINT TAB problems 
with your TRS-80 Model I computer. Increase your pro- 
gramming productivity with this enhancement to Basic. 
Stop going through string manipulations and contortions 
trying to overcome the TAB<63) limitation. With 
TAB132. you will never again have to fret over tabbing 
past position 63 on your line printer. TAB1 32 will allow 
you to correctly tab to any print position up to 255 with 
the normal TAB! ) statement. 

TAB132 is a machine language routine which oc 
cupies 1 00 bytes of memory, and will operate with either 
Level II or Disk Basic on the TRS-80 Model I. The TAB1 32 
tape or disk includes modules for several different modes 
of operation. It can be loaded in the System mode or from 
DOS, can be loaded and run as a Basic program or merged 
into your Basic program and activated with a single 
GOSUB at the beginning of the program. System and 
DOS modules include a relocating loader to move 
TAB1 32 to anywhere in memory. Also supplied is a pro- 
gram which will patch the routine permanently into Disk 
Basic. Specify media when ordering. 

TAB132 on tape . . . $12.95 on disk . . $14.95 



"Effective use of the 

Concur command is probably the 

most powerful component in Meta-Basic." 



line number of a given line is of no impor- 
tance. 

Because the first line of the program is 
always the first line to be executed, the 
precomiler removes all non-executable 
lines of code (which would normally be ig- 
nored by the interpreter) and reinserts them 
above the first line. These include all dimen- 
sion statements all data statements, and all 
declarations of names, both public in the 
present program and external in other pro- 
grams. Immediately after the first line, the 
precompiler will insert all implied Open 
commands (screen, keyboard, printer), giv- 
ing the default initialization values for those 
devices. A Print command will generate a 
run-time error if the printer is not an in- 
itialized ("opened") condition. 

Concur 

If the user wishes to break the present 
program into workable parts, or wants other 
program modules to be loaded into memory 
at the same time as the present program, he 
may insert "Concur" pseudo-commands as 
the first operations performed at the first 
line of the program. The commands permit 
naming up to six other program modules to 
be in memory concurrently with the present 
program. Concur is exactly like Chain ex- 
cept that control always returns to the 
user's program instead of being transferred 
to the newly loaded program module. Effec- 
tive use of the Concur command is probably 
the most powerful component in Meta- 
Basic. 

MetaBasic is space inefficient on the 
disk file: This design decision was made 
deliberately for simplicity and maximum 
user information. Throughout the Meta- 
Basic precompilation and compilation pro- 
cess, a single ASCII-format sequential file 
and workfile are used for all stages of pro- 
gram output. Error messages are embed- 
ded directly into the erroneous line, and it is 
recommended the user make ample use of 
both screen LISTs and printed listings. 

In addition to error diagnostic insertions, 
the precompiler formats the Basic program 
into the beginning of Assembly field for- 
mats. After the line number, the first field is 
the tag field, the second is the opcode, the 
third is the operand field and the fourth, if 
present, is the comment field. The precom- 
piler always begins the opcode field in the 
same place, whether a tag has been used or 
not. This greatly enhances readability but is 
not required for correct precompiler or com- 
piler operation. Field structure is complete- 
ly variable and there is no need for blank 
spaces between the operand elements. 

Finally, the precompiler expands the in- 
terpreter Basic program by as much as two 
times the original number of lines. This is 
caused by the insertion of tag equates and 



reprogramming. There are many Basic in- 
terpreter commands which simply do not 
exist in MetaBasic; for example, an 
If. . .Then statement which contains the 
logical OR or AND functions may cause the 
expansion of as many as one dozen lines of 
emulating logic. In another example, nu- 
meric literals, quoted string literals and 
functions (VAL, ASC, ABS, etc.) may not ap- 
pear in any command except a move-data 
command (SETBCD and SETSTR). 

So that these do not have to be repro- 
grammed by hand, the precompiler re- 
moves them from the original command 
line, equates them to a working location, 
and substitutes the working location name 
back into the original command line. During 
compilation, the program grows to at least 
four times its original number of lines as il- 
lustrated by the move-data commands in 
Fig. 2. While the resulting Assembly pro- 
gram is a fraction of the size of its source 
counterpart, the source file can become 
huge. Some effective method of copying 
with large files must be provided. 

The method is the Concur command, 
together with the source-level address 
linkage utility. Working with the MetaBasic 
source program file, the program may be 
unceremoniously chopped into halves, 
thirds, quarters, etc., and established as 
stand-alone files (PROG made into PROGA, 
PROGB, PROGC, PROGD, etc.). The result- 
ing pieces of the original program are then 
run through the "external resolution gener- 
ator" utility. Every data location and line 
name in each of the parts referenced by any 
one of the other parts will be automatically 
named "Public" in the part and "External" 
to the other parts which reference it. The 
result is that all parts communicate among 
each other as easily as though they were 
still one program file. The external 
reference generator may be run as often as 
needed, if changes are made. 

The external reference generator utility 
also knows which program module is the 
first or main module. At the beginning of 
that module it will insert the Concur com- 
mands necessary to cause the Z-Monitor 
loader to load all subordinate modules as 



soon as the main module has been loaded. 
After the first program of the precompiler 
has generated all the line number reference 
tags, it is a good idea to look at the program 
file and determine whether it should be sub- 
divided into two or more program files at 
this point. Generally, if the program file is 
longer than 8-10 granules or 20K disk 
space, subdivision is strongly recommend- 
ed. It is not necessary to do so, however, 
and the user may elect to continue on to the 
second of the three precompilation pro- 
grams. 

But Is It Legal? 

The second precompiler group program 
analyses all command syntax except for 
dimensions and input/output operations of 
all kinds. The general rule for syntax analy- 
sis is, if the interpreter Basic form is not 
legal under the interpreter, it will be flagged 
and abandoned; if, however, it is legal under 
the interpreter and legal under MetaBasic in 
an altered form, it will be automatically 
reprogrammed to save manual labor. If it is 
legal under the interpreter but illegal under 
MetaBasic in any form, it will be flagged 
and abandoned. 

The thrust during second-stage precom- 
pilation is what is legal under the interpreter 
but illegal in any form under MetaBasic. 
MetaBasic requires only one command (or 
one command and a comment) per num- 
bered line. Error-trapping, already men- 
tioned above, is one reason for this; another 
is that the logic of multi-command lines in- 
variably becomes intermixed with the inter- 
pretation of If... Then statements. If... 
Then statements not only do not exist in 
that form in MetaBasic, there are no consis- 
tent rules for their interpretation among the 
various versions of Basic. 

The second restriction, which will annoy 
many interpreter Basic programmers, is 
against complex functions and multi-func- 
tion commands. For example, the precom- 
piler will correctly handle "A = A + B*(C-D) 
12". In truth, the author was reluctant to take 
on the responsibility for interpretation of 
fluid logic in addition to that for creating 
error-free Assembly code. Another example 



MetaBasic 




Assembly 




1000 SETSTR A$ = BS 


1000 .SETSTR 


AS = B$ 






1010 


CALL 


SETSTR 




1020 


DEFW 


AS 




1030 


DEFW 


BS 


1040 SETBCD A = VAUA$) 


1040 SETBCD 


A = VAL(A$I 






1050 


CALL 


VAL 




1060 


DEFW 


A 




1070 


DEFW 


AS 




Fig. 2 
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of rejected logic, in complex functions, is 
"A$ = STR$(VAL(B$)/ABS(D))". 

The second state precompiler will not an- 
noy the user with mere violations of form. 
c or example, if the user tests an embedded 
iteral (not allowed), the precompiler will 
remove the literal into a generated work- 
space (see Fig. 3). Because If... Then 
statements have no direct counterpart in 
MetaBasic but due to their program fre- 
quency and importance, there is no varia- 
tion, including logical OR and AND, which 
the precompiler will not automatically han- 
dle correctly so long as the user does not 
embed complex functions and computa- 
tions 

One final restriction is common to all 
compilers. For. . .Next. . .Step commands 
must occur in perfectly matched pairs; the 
command Next by itself (as opposed to a 
named variable, such as "NEXT X") is not 
permitted. There are no practical restric- 
tions on the number of For. . .Next loops 
which may be nested inside one another. 

For. . . Next loops are another form of in- 
struction which does not exist either in 
MetaBasic or in Assembly and must there- 



"A single test is made- 
greater-than for incrementing loops 
and less-than for decrementing loops." 



fore be emulated. The variables will be ini- 
tialized, the first loop will be executed, and 
the first test-after-incrementation will take 
place. The default condition for testing is in- 
crement. Decrement will not take place un- 
less the Step argument is a negative literal 
(the compiler cannot test a value which will 
be known only at run-time). A single test is 
made— greater-than for incrementing loops 
and less-than for decrementing loops. 

The Third Program 

The third program handles all physical 
commands, including DIM, Data, Read, 
PEEK, POKE, Set, Reset, Restore and all in- 
put/output commands including Input, 
Print, LPRINT, Get, Put, LINEINPUT and 
PRINT#. MetaBasic dimension statements 



are structured closely to those of interpre- 
ter Basic; but their internal handling is very 
different. If the user has not explicitly 
dimensioned his data names, the precom- 
piler does it for him with default values 
which must be checked for acceptability. 
Internal data is essentially handled as 
under the interpreter; it is formatted wher- 
ever it is encountered in the program, the 
precompiler ensuring that program logic 
jumps over the data areas. The address of 
each datum is entered into a table begin- 
ning with a table element pointer and end- 
ing with a table terminator word. 

Both DIM and Data have interesting 
MetaBasic options. Since the program be- 
ing precompiled may have been subdivided, 
and since data variables should not be di- 



1000 IF A$ = 


Basic 


MetaBasic 


"DATA" THEN 2000 


1000 SETSTR WK$002='DATA" 
1020 COMPSTR A$TOWK$002 
THEN . . 

Fig. 3 
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EDITOR, ASSEMBLER AND MORE! 



SOFTWARE DEVELOPMENT SYSTEM 

The Micro Works Software Development System (SDS80C) is a complete 6809 
editor, assembler and monitor package contained in one Color Computer program 
pack 1 Vastly superior to RAM based assemblers /editors, the SDS80C is non- 
volatile, meaning that it your application program bombs 9 can't destroy your 
editor /assembler Plus it leaves almost all of 16K or 32K RAM free for your 
program Since a 11 three programs, editor, assembler and monitor are co-resident. 
we eliminate tedious program loading when going back and forth from editing to 
assemDiy and debugging' 

The powerful screen-oriented Editor features finds, changes, moves, copys and 
much more All keys have convenient auto repeat (typamatic). and since no line 
numbers are required, the full width of the screen may be used to generate well 
commented code 

The Assembler features all of the following complete 6809 instruction set. 
complete 6800 set supposed fo r cross assembly conditional assembly, local 
labels, assembly to cassette tape or to memory, listing to screen or printer, and 
mnemonic error codes instead of numbers. 

The versatile ABUG monitor is a compact version of CBUG. tailored for debugging 
programs generated by the Assembler and Editor It features examine/change of 
memory or registers, cassette ioad and save, breakpoints and more SDS80C 
Price $89.95 
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CRACK THOSE ROMS! 



* 



SOURCE GENERATOR: This package is a disassembler which runs on the color 
computer and generates your own source listing of the BASIC interpreter ROM 
Also included is a cocumentation package which gives useful ROM entry points 
complete memory map. I/O hardware details and more A 16K system is required 
for the use of this cassette 80C Disassembler Price: $49.95 



LEARN GB09! 
6809 ASSEMBLY LANGUAGE PROGRAMMING. 

by Lance Leventhai. contains the most comrjrehen- 
sive reference material available for programming 
your Color Computer Price: $16.95 



CBUQ IS HERE! 

MONITOR TAPE: A cassette tape which allows you to directly access memory. I/O 
ana registers with a formatted hex display Great for machine language 
programming, debugging and learning It can also send /receive RS232 at up to 
9600 baud, including host system download /upload 19 commands in all 
Relocatable and reentrant. CBUG Tape Price: $29.95 
MONITOR ROM: The same program as above supplied in 2716 EPROM This 
a lows you to use the entire RAM space And you don't need to re-load the monitor 
each time you use t T he EPROM plugs into the Extended Basic ROM Socket or a 
modified ROMPACK CBUG ROM Price: $39.95 



PARALLEL O! 

USE A PARALLEL PRINTER with your Color 
Computer 1 Adaptor box plugs into tne senal port and 
allows use of Centronics 'Radio Shack compatible 
printers with pa r aiiei interface Assembled and 
tested PI80C Price: $69.96 



TH mo©L^§) 



^109 



GOOD STUFF! 



3SK RAM! 

MEMORY UPGRADE KITS: Consisting of 4116 
200ns integrated circuits with instructions fo r 
installation 4K-16K Kit Price: $39.95. 1PK-32K 
Kit (requires soldering experience i Price: $39.95 

WE SHIP FROM STOCK! 

Master Charge/Visa and COD Accepted 



P.O. BOX 11 10 DEL MAR, CA 92014 714-942-2400 



-> See List ol Advertisers on page 386 
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"... M eta Basic or Z Monitor disk format 
is nothing like the TRSDOS disk format." 



mensioned twice in one program, DIMs may 
be changed to External pseudo-operations 
by so indicating at the beginning of the job. 
Internal data, however, will be automatical- 
ly set up in a new table within each program 
module. This presumes the programmer may 
wish to have program modules created for 
the sole purpose of organizing large vol- 
umes of data in kind of internalized in- 
dexed-sequential Read format, with the 
associated ability to restore to the begin- 
ning a part of the total data without having 
to restore it all the way back to the begin- 
ning of a possibly quite large table. When 
originally programming in MetaBasic, the 
programmer may designate which of 100 in- 
ternal data tables a unit of data should be 
assigned to by appending the table number 
to the Data command, as in "DATA62 
A,B,C,D," THIS ",E,1,2". This string of data 
would be assigned to table-name 
"DATA62", even if it were the only data 
table in the program. The corresponding 
Read and Restore commands would be 
"READ 62" and "RESTORE 62". 

PEEK and POKE function as in interpre- 
ter Basic; their values are decimal. 

The Set and Reset commands are exactly 
as under interpreter Basic, but they will be 
replaced by the "Draw Dot" and "Draw 
Blank" commands, respectively, which are 
part of the command set for business 
graphics. 

Input/Output 

MetaBasic recognizes five different stan- 
dard I/O devices for the TRS-80 Model I: 
screen, keyboard, line printer, disk drives 
and serial I/O port (communications). Each 
has its own particular command words 
which may not be intermixed at the Basic or 
MetaBasic level (see Fig. 4). 

Clearly, the majority of these commands 
cannot be written under interpreter Basic, 
and illustrate the paucity of available com- 
mand words available to th "i Basic program- 
mer given the range of peripheral equip- 
ment available to the TRS-80 Model I user 
today. It is important, however, that the user 
understand what will happen to the I/O com- 
mands in his interpreter Basic program 
when processed by the precompiler. 

The Conversion 

An easy way to remember the conversion 
is: display to the screen, input from the 
keyboard, strobe for a depressed key, prints 
to the line printer, and read and write from 
or to a disk file. PRINT® commands gener- 
ate a "CURSOR 1,p" command before print- 
ing. Unlike interpreter Basic, MetaBasic 
never adds an automatic carriage return at 
the end ot the printed line. 11 the interpreter 
Basic line ends in a semi-colon, the precom- 
piler will not generate the "SCROLL UP,1" 



command for the screen and the "LINE 
UP.1" command for the line printer. In both 
cases, printing null (PRINT"" and LPRINT"") 
and Print or LPRINT command without an 
argument will result in the appropriate line 
advance command. Where repeated Print 
and LPRINT commands have been used 
solely for vertical spacing, the single-ad- 
vance commands which result may be con- 
solidated into a single advance command 
with the number of lines desired as the 
argument, as in "LINE UP,5". 

Sequential disk files are handled essen- 
tially the same as under interpreter Basic, 
except only one variable may send or re- 
ceive data with each command. Accord- 
ingly, the command "LINEINPUT#1,A$,B$, 



C$" would result in three separate "READ 
LF1,[. . .]" commands. 

Random access files are handled some- 
what differently. There is actually no such 
thing as random access mode under Meta- 
Basic. The Record I/O file format defines 
fixed-length records which may be written 
and read by sequential record number 
(beginning from one and continuing until 
end-of-file) in both sequential-access and 
random-access modes. There is no such 
thing as a Field statement, which is actually 
a clumsy adaptation from Cobol. To at- 
tempt to avoid manual reprogramming, the 
following conventions will be followed by 
the precompiler: The random-access file 
will be opened in both (read and write) ac- 



Device/Mode 
Screen 


Command 
SCROLL UP.n 


Meaning 




Move lines up n lines 




(display) 


SCROLL DOWN.n 


Move lines down n lines 






SCROLL SET.n 


Protect first n lines from scroll 






CURSOR [ON] [OFF] 


Cursor visibility 






CURSOR 1.p 


Position cursor at line, position 






DISPLAY A$ 


Print data on screen 




Screen 


SCALE v,h 


Ratio screen addresses to data 




(graphics) 


PLOT v,h 


Draw dot 






BLANK v.h 


Draw non-dot 






DRAW LINE.v.h.v.h 


Draw line from, to 






DRAW BOX,v.h,v,h 


Draw rectangle within corners 






DRAW VBAR.w.v.h.v 


Draw vertical bar of w-width 






DRAW HBAR,w,v,h,h 


Draw horizontal bar of w-width 






FONTn,1,p 


Change character size, lines, posns 






CHAR A$.v,h 


Print data on screen 




Keyboard 


INPUT A$ 


Get data to a carriage-return 






STROBE A$ 


Check if key was struck 






ABORT AT nnnn 


GOTO nnnn if CLEAR key struck during manual 


interrupt 


Printer 


PRINT A$ 


Print line on line printer 






LINE UP.n 


Advance n-lines 






LINE DOWN.n 


Reverse n-lines 






LINE EMS.n 


Advance horizontally nth-inch 






LINE LEAD.n 


Advance vertically nth-Inch 






PROMPT [ON] [OFF] 


Tell operator to change new page 






VMARGIN t,b 


Set top/bottom page margins 






HMARGIN l,r 


Set left/right page margins 






FONTSET [M] [A],A$ 


Manual/auto font name change 






PAGEn 


Skip n-heads-of-form 






HEADER A$ 


Set repeating page header message 






FOOTER AS 


Set repeating page footer message 






TABSET n,p 


Set tabstop n at position p 






TABn 


Skip to tabstop n 




Disk 


READ LFn.A$ 


Read data from logical file n 




(variable) 


WRITE LFn.A$ 


Write data to logical file n 




Disk 


READ FILE LFn.AS, 


Read data from record r in logical 




(fixed) 


REC = r 


file number n 






WRITE FILE LFn,A$, 


Write data to record r in logical 






REC = r 


file number n 




Serial I/O 


BAUD nnnn 


Set baud rate 






WORDLEN n 


Set bits/word 






STOPBIT n 


Set number of stop bits 






PARITY A$ 


Set parity odd, even, none 






FBYTEAS 


Set automatic first byte 






LBYTE AS 


Set automatic last byte 






XRACK 


Send request for acknowledgement 






XACK 


Transmit acknowledgement 






XNACK 


Transmit negative acknowledgement 






XMIT AS 


Transmit data 






RCVAS 


Receive data 






TIMEOUT A 


Set seconds to wait for answer 

Fig. 4 
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cess modes. The Get command will read 
data into a precompiler-generated data 
location called "RA$n", where n is the 
logical file number assigned to the random- 
access file. The variable names in the Field 
command will be placed in a special lookup 
table. Whenever one of the Fielded variable 
names is referenced in a data move, the 
name will be changed a MID$ command 
which references RA$n by the subfield 
beginning number and length. Whenever an 
LSET command is encountered, the reverse 
will occur, and a Put command will again 
reference RA$n. The data name "DUMMYS" 
will be ignored in a Field command, but the 
position counters will be incremented. The 
precompiler will not attempt to handle more 
than two random access files per program 
segment. 

It is equally important to note that the 
MetaBasic or ZMonitor disk format is 
nothing like the TRSDOS disk format. The 
directory is on track zero, not 17. Files have 
both names and numbers. Protect status is 
prevention against inadvertant destruction, 
not a futile exercise in pseudo-secrecy. A 
'ile's protect status is turned off by merely 



entering "PROTECT OFF". Most important- 
ly, there are 64 different physical formats 
from which the user may choose in an effort 
to optimize space against speed. A disk 
record may contain as many as 2048 bytes 
or as few as 16. The Format command will 
optimize the physical placement of the 
records on a basis of so-many-per-track. 

Whenever a sequential (variable length) 
file is declared, the disk surface remains 
formatted at ten sectors of 256 bytes per 
track. But when a record I/O (fixed-length) 
file is declared, the declaration must in- 
clude the record length (RECL=nnn). 
Based upon this information, the named 
file's tracks are reformatted to physical 
records of the indicated length. Thereafter 
it is no longer necessary to block-up data 
records before writing to the file, nor to 
block-down to individual records after 
reading from the file. The numbered record 
is named and becomes available at record 
speeds. 

This altered approach to disk I/O is not 
new; it is adapted from standard IBM disk 
I/O procedures. Accordingly, it makes pos- 
sible a new high-speed lookup procedure 



called "indexed-sequential" organization. 

This altered approach to disk organiza- 
tion also makes possible genuine high- 
speed disk-based sorting. The data itself is 
never sorted. Keyfiles are established and 
sorted, then the input files are rewritten to 
output file in an altered sequence based on 
the new order of the keys. 

The output from the third stage of pre- 
compilation is supposed to be an error-free, 
pure MetaBasic source file. Since the file 
might have been written by hand, it may 
also be modified manually, including the in- 
sertion of the user's own machine code sub- 
routines. MetaBasic source files may also 
be passed through the Assembly macro- 
processor for this purpose. Every line of 
MetaBasic code is preceded by a colon at 
the first character position after the blank 
space which terminates the line number. 
After compilation, this will be changed into 
a semi-colon, which is the assembler's com- 
ment symbol. Assembly commands insert- 
ed by the user should not be preceded by a 
colon or a semicolon. ■ 

Next month: More on the MetaBasic 
Compiler. 






EDflS 



EDAS is a sophisticated Editor 
and Assembler for the '80 Model 
I or Model III. All commands 
and SOURCE text can be enter- 
ed in upper or lower case. Direct 
assembly for memory or mul- 
tiple disk files by means of 'GET 
assembler directives provides 
the capability of assembling 
huge source files with 30,000 
bytes of symbol table. Direct 
assembly to disk or memory for 
faster debugging operations. 
DOS functions DIR, KILL, and 
LIST are available from within 
EDAS. The Editor provides 
block move & global change 
withBASICsyntaxediting. EDAS 
provides power with ease of 
use. $79 + $S&H. 



Dum 



DUTIL is a utility to examine, 
clear, initialize, move, and modify 
data in memory. Load, punch, 
verify SYSTEMtapes. Disk sector 
I/O. More! $20. 



CMDNLE 



Nowyou can append two or more 
CMDfilesand/orSYSTEMtapes. 
Perform transfer to & from disk/ 
tape of SYSTEM/CMD modules 
with offset capabilities. $20. 




LDOS is the latest generation of sophisti- 
cated operating systems for the TRS-80 
computers. LDOS is completely docu- 
mented in a 252-page reference manual. 
Total support is provided from some of 
the most knowledgeable people in the 
industry. You owe it to yourself to inves- 
tigate this system. Call or write for details. 
LDOS is priced at $149 plus $4 S&H 



LDQS 5.0 



DSMBLB 



Complement your assembly *i 
Z 80 disassemlHpiJwhi^ 
cassette, or 
provides S 

ative refer 

$ 




ouege tools with this 

uceascreen, printer, 

e ^4tttft-"2& eftfjjpass process 

for 16 bft «dd4sa*gnd 8-bit rel- 

.iQUates & OftDjif#pfe« rated. 




for nbajtftsk 

.dflpFILE.DSMBLRSpeci 
$1 S&H +T9 frp si oiqgram.J^jslldlffts add 4% 

MISOSYStfbept. MU2 ^221 

5904 Edgehill Drive 

Alexandria, Virginia 22303 

703-960 2998 MicroNET 70140,310 
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DJSWflQD 

Turn your Editor Assembler into 
a disk package. This 32K patch 
modifies EDTASM for DOS op- 
eration. Features? Add full disk 
I/O, block move, global change, 
printer pagination, sorted sym- 
bol table, print memory utiliza- 
tion, enhance DEFM expansion, 
protect memory, and recover 
after BOOT. From within the 
EDTASM you will have DIR, 
KILL, & FREE. Upgrade your 
EDTASM! $20 

THE B00K 

THE BOOKs must be a part of 
your tools. Volume I gives you 
access to all math operations in 
your Level II ROM. A symbol 
table of the entire machine not- 
ing over 500 addresses is includ- 
ed Volume II tells you every- 
thing you wanted to know about 
the Level II I/O -printer, key- 
board, video, and cassette rou- 
tines are fully explained. Each 
volume has a fully commented 
listing of all the routines dis- 
cussed THE BOOKs will save 
you hours of assembler pro- 
gramming. Each volume is priced 
at $14.95 or buy both for $24.95. 
Add $1.50 S&H per book. 



-See List ol Advertisers on page 386 
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CONSTRUCTION 



With the help of Zen, build your own printer interface. 



Hard and Soft Printware 



/. ft Sinclair 
89 Alexandra Road 
Sible Hedingham 
Halstead, Essex 
England C09 3NP 

By the time I had owned my TRS-80 for a 
few months, I had resolved that the 
first priority would have to be a printer. 
When your programs are short enough to 
list on the screen without scrolling, a printer 
seems an unimaginable luxury. But one of 
the joys of the TRS-80 lies in writing longer 
and longer programs using all the power of 
that big Basic. As a result, by the start of 
1980, I was suffering severely from print- 
out starvation, and only the use of a bor- 
rowed Teletype 33 kept me going. 

About the same time, printer manufactur- 
ers must have noticed this problem, be- 
cause there was a sudden flush of printers 
at $700 and less. Better still, they weren't 
thermal or electrostatic but real hard copy 
paper-markers. I suspect there was, in fact, 
only one mechanism with many manufac- 
turers fitting electronics to it, but the result 
was certainly good for me. After some 
phone calls and a drive of a few hundred 
miles, I had a smaller bank balance and the 
feeling that I was, at last, winning the hard 
copy battle. 

The Lowdown 

I was right, but there was a long way to 
go. If you still want to jump on the hard copy 
bandwagon, this article will give you the 
complete lowdown of both hardware and 
software that will allow you to get into hard 
copy for only a few dollars more than the 
price of the printer. 

It doesn't matter what type of printer you 
use, providing it has an RS232 interface 
built in. As far as I know, all the modern el 
cheapo printers use this type of interface, 
which lets us get away with simple attach- 
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ment to the TRS-80 cassette port. The baud 
rate (the speed at which bits can be set from 
the computer to the printer) can be altered 
by setting the position of wire links inside 
the printer, and for this type of use the rate 
should be set at 300 baud. 

Don't be tempted to set the rate higher in 
hopes of faster printing— the simple inter- 
face I am going to describe is reliable at 300 
baud, but not at higher speeds. For higher 
speeds, a connection is needed from the 
printer to an input on the expansion inter- 
face connector of the TRS-80 so the printer 
can stop the computer when it has sent 
more characters than the printer can cope 
with. This type of connection is called a 
handshake, and my simple interface does 
not include this type. 

Designing From Scratch 

I had seen a simple interface described in 
a local user's group newsletter, but I doubt- 
ed it would really work. I was right, so I set 
about designing my own interface from 
scratch. 

The first thing I had to know was how 
large the signal from the cassette port 
would be. A cassette recorder does not 
need a large signal input, and too great a 
signal can cause distortion which leads to 
loading difficulties when the tapes are re- 
played. I bought only the keyboard unit of 
the TRS-80, and my cassette recorder is a 
sensitive one, so I had to cut down the sig- 
nal strength by modifying the cassette out- 
put circuits. I used a voltmeter to measure 
the signal strength. 

Step one was to get an output. Fortunate- 
ly, on the TRS-80, it's not necessary to print 
a program to find out what happens at the 
cassette port. A simple program line was 
typed in and run: 



10 OUT255,0:FOR N = 1TO1500:NEXT:OUT255,1:FORN = 
1TO1500:NEXT.GOTO10 



This produced a voltage reading on the 
meter (attached to the cassette output 
socket) which varied from 0.46V to 0.48V 
and back again as the program ran. This is 
not a very large voltage swing for the input 
to an interface, though it's big enough for a 
cassette recorder. I started looking for ways 
to increase it without any further altera- 
tions to the TRS-80 itself. A quick look at the 
output circuitry showed that this could be 
done by altering the program to: 

10 0UT255,2:F0RN = 1TO1500:NEXT:OUT255,1:FORN = 1 
T01500:NEXT:GOT010 

Simply by using a two in place of a one, the 
voltage swing became zero to 0.86 V, a lot 
greater and a much easier amount to deal 
with. I incorporated it into software for the 
printer. 

The next step was to build the interface, 
an amplifier which would take the voltage 
swing of to 0.86 volts at the cassette port 
and transform it to a voltage which (approx- 
imately) varied between -9V and +9V. 
These serial printers are tolerant animals, 
they don't appear to object if the pulses 
aren't strictly RS-232 standards. I was cor- 
rect in assuming that a very simple ampli- 
fier would be good enough. Ten minutes on 
a solderless breadboard got me into hard 
copy, and a few hours work the next day 
(yes, I felt I had to make listings of all my 
programs in case it stopped working) 
resulted in a more polished version. 

The Interface 

The interface consists of a 741 opera- 
tional amplifier IC, which draws its power 
from a rectifier bridge circuit which, in turn, 
is powered from the TRS-80 power pack. It 
uses only a small amount of power and con- 
stitutes no hazard to the TRS-80 supply. The 
unit is built into a small plastic box, and 
connects between the TRS-80 and its power 



"Building a low-cost interface may 
give you a glow of achievement." 



5-PIN SOCKET- 
TAKES PLUG 
FROM TRS-80 
POWER 
SUPPLY 



.1 5- PIN PLUG 
- TO CONNECT 
" TO TRS-80 
.j POWER 
SOCKET 



5-PIN SOCKET 
TAKES PLUG 
FROM TRS-80 
CASSETTE 
UNIT 




Fig. 1. This is the circuit for the interface unit. All resistors are '/« W rating. The switch is op- 
tional, but if there is no online switch on your printer, it will prevent the printer from printing 
rubbish during a CSA VE. 



and cassette plugs. The power plug from 
the TRS-80 supply goes into the interface, 
and the corresponding plug from the inter- 
face plugs into the TRS-80 power socket. 
The cassette lead is treated in the same 
way, so the interface can pick up power 
from the power cable, and signals from the 
cassette cable, but does not interfere with 
the operation of either. (There is no need to 
unplug the cassette unit, for example, when 
the printer is being used.) 

The specific layout is not critical, and the 
circuit can be built in any way which you are 
accustomed to. I used Veroboard, but any 
type of matrix board which is designed for 
ICs is suitable. Make sure that the two 
smoothing electrolytic capacitors are cor- 
rectly wired, because if the voltages are po- 
sitioned wrong they can overheat and burst. 
The most tedious part of the whole effort is 
soldering the five-pin DIN plugs to fit into 
the TRS-80. Make sure before you start that 
the plugs will actually fit, because some 
plugs have elaborate covers which may pre- 
vent them from being correctly inserted. 

For the benefit of you hardware pros, the 
circuit is a non-inverting amplifier. The sig- 
nal from the cassette port is taken from pin 
5 of the cassette socket through a 1 0K re- 
sistor to the + input on pin 3 of the 741. The 
- input on pin 2 is connected to a bias net- 
work, consisting of the diode and array of 



10K resistors, and also to the feedback re- 
sistor of 220K. This feedback resistor also 
sets the amount of amplification. The out- 
put signal is taken from pin 6 of the 741 IC 
through a 330 ohm resistor. Power supplies 
of + 9V and - 9 V are needed to operate the 
741, and these supplies are obtained from 
the TRS-80 by connecting pins 1 and 3 of the 
power socket to a bridge rectifier. The out- 
put from the rectifier consists of the +9V 
and -9V lines, smoothed by 500yF capaci- 
tors. The cable to the printer does not need 
to use the expensive 25-pin Cannon-type 
plugs which so often appear on printer con- 
nections (using only two pins, it seems 
pointless to use a 25-pin plug). On my unit, I 
simply used a length of power cable, perma- 
nently attached at the interface. If you like 
plugs and sockets, a miniature two-pin unit 
is as good as any. The connection to the 
printer consists of the RS232 signal line and 
earth return only. 

Check the circuit carefully, particularly 
the power supply section, because a fault 
here could damage the TRS-80 power sup- 
ply. Testing will now have to wait until you 
have assembled the software! 

The Software 

Building a low-cost interface may give 
you a glow of achievement, but that will 
quickly dissipate if you have to spend $30 



on the software to make it all work. Many 
serial printer programs exist, but none of 
them suited my needs, and so I developed 
my own, slowly and painfully. I wanted more 
than a straightforward routine, because the 
reason for buying a printer was so I could 
have listings of programs at various stages 
of development. (I hate keeping long rolls of 
paper, and I wanted a program which would 
list into neat pages of the same length as 
Radio Shack uses, 66 lines per page.) 

Looking at a sample sheet which my 
printer had listed (when I bought it), I saw 
that the left margin was very small, too 
small for my filing methods, so another re- 
quirement for the routine was a left margin, 
preferably one which could be altered. The 
most important point, at first, was that the 
program should be fully relocatable, with no 
jumps to absolute addresses within the pro- 
gram. This way, I could use the same pro- 
gram at any address, or POKE it from a Ba- 
sic program anywhere in memory, or as a 
string. I modified this requirement later! 

My program specifications grew and 
grew. Having 66 lines per page implied that 
there would be a line counter, along with a 
reset method for the counter to ensure I 
could start a listing with the counter loaded 
to its full 66 lines. I wanted to use a com- 
mand word for this rather than a POKE to 
memory. In addition, I wanted a keybounce 
delay (my '80 is an old one), and also some 
method of putting in a longer delay when I 
wanted it. 

Fortunately, when it came time to write 
the program, I had the assistance of one of 
the best pieces of software I know of. It's an 
assembler-editor-debugger package for all 
Z-80 based machines, and its name is Zen. I 
don't know if Zen is available in the States; 
if it's not, I can pass on the name of the 
source in England. 

Zen is simple to use— which means that 
you drop the manual quickly and concen- 
trate on using it rather than trying to find 
out how to. As an assembler, it's versatile 
because entry is in free-format— you don't 
have to enter spaces of a set size, or even be 
careful about the number of letters in a 
name. Editing is very simple, just enter a 
new line, zap an old line or insert a new line. 
Assembler programs can even be combined 
from separate tapes, because the Zen line 
numbers are generated internally Instead of 
being recorded on to the tape, as Radio 
Shack does. It also has a monitor section 
which lets you read in machine-code tapes, 
examine contents of memory, change 
codes, copy machine-code tapes, copy 
code from one set of memory locations to 
another, and even load code into memory 
as it is assembled by the assembler. This 
eliminates the tedious business of creating 
a tape and then reading it back in again. The 
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"The only problem is that 
there is no disassembler. 

only problem is that there is no matching 
disassembler, but I am working on a pro- 
gram for reading in tapes produced by the 
Instant Software disassembler and produc- 
ing from them a tape written to Zen stan- 
dards. 



The Zen listing is shown in Program 
Listing 1. There are no notes on the 
assembler listing itself, because I never 
have enough room on an assembler pro- 
gram for all the notes I want to make, and 
tapes take long enough to read without hav- 



ing all the extra characters loaded onto 
them. As I develop a program I keep all 
the original specifications. The amend- 
ment notes and listings result in my own 
home-made manual. This tells me more 
than a few notes on the program itself, and 





5LPRINT 


ROUTINE WITH LHS MARGIN 73 7F94 CD777F 




CALL DLV 




2 


5 66 LINES/PAGE ANLi 72 CH/LINE 


74 7F97 10E9 




DJNZ ROUND 




3 




ORG 7F11H 


75 7F99 2102FC 




LD HLr0FC02H 




4 


CHR3LN: 


EQU 4029H 


76 7F9C CD2102 




CALL 022 1H 






LNFGE: 


ECU 4023H 


77 7F9F CD797F 




CALL DLY 




6 7F11 E5 




PUSH HL 


78 7FA2 Fl 


0UT3: 


POF AF 




7 7F12 21347F 




LD HL,LFRT 


79 7FA3 Fl 




POP AF 




S 7F15 222640 




LD l4026H)»HL 


80 7FA4 FE0D 




CP 0DH 




9 7F13 21F27F 




LD HL/KBFIX 


31 7FA6 2022 




JR NZ,TE3TZ 




10 7F11J 221E40 




LD C01EH>»HL 


82 7FA8 21DD7F 


TESTl: 


LD HLtENDFAG 




11 7F1E 2ADE7F 




LD HL/vCHRLN; 


33 7FAB AF 




XOR A 




12 7f 21 222940 




LD <4029H)»HL 


84 7FAC B6 




OR < HL ) 




13 7F24 21DF7F 




LD HL.TOPPAG 


35 7FAD 2812 




JR ZrBLNK 




14 ;T27 227D41 




LD (417DH)rHL 


86 7FAF 35 




DEC ( HL ; 




15 7F2A 21E77F 




LD HL* DELA/ 


■37 7FB0 3C0D 




LD A,0DH 




16 7F2U 228341 




LD < 41S3H >»HL 


38 7FD2 1QB5 




JR AGAIN 




17 7F30 El 




POF HL 


39 7FB4 CI 


0UT4: 


POF BC 




IS 7F31 C37200 




JF 0072H 


90 7FE5 21DE7F 




LD HL r CHRLN 




19 7F34 F3 


LPRT: 


DI 


91 7FB3 35 




DEC ( HL ) 




20 7FZ5 79 




LD ArC 


92 7FB<; 20 ID 




JR NZrOUTS 




21 7F36 F5 




PUSH AF 


93 7FBB El 




POP HL 




22 7F37 DS 




PUSH HE 


94 7FBC Fl 




POP AF 




23 7F2G FDE5 




PUSH IY 


95 7FBD 3E0D 




LD ArODH 




24 7F3A CD2300 




CALL Q033H 


96 7FBF 1889 




JR RELOAD 




25 7F3D FDE1 




POP IY 


97 7FC1 21DB7. 


BLNK: 


LD HL/ LHSPCE 




26 7F3F IH 




POP DE 


98 7FC4 3603 




LD (HL)»03H 




27 7F40 Fl 




POP AF 


99 7FC6 3E20 




LD A/20H 




28 7F4l FE0Li 


LNDLN: 


CP 0DH 


10fc 7FC8 189F 




JR AGAIN 




29 7F43 2G05 




JR 2, RELOAD 


101 7FCA 3ADB7F 


TE3T2: 


LD Af( LHSPCE) 




30 7F45 FE20 




CF 20H 


102 7FCD B7 




OR A 




31 7F47 BS 




RET C 


103 7FCE 28E-. 




JR Z/OUT4 




32 7F 48 13 1C 




JR START 


104 TD0 3D 




DEC A 




33 7F4A E5 


RELOAD 


PUSH HL 


105 7FD1 32DB7F 




LD < LHSPCE /rA 




34 7F4B F5 




PUSH AF 


106 7FD4 3E20 




LD Ar20H 




35 7F4C 21BE7F 




LD HL » CHRLN 


107 7FD6 1891 




JR AGAIN 




36 7F4F 3A2940 




LD A»<CHR3LN> 


108 7FD8 El 


0UT5: 


POF HL 




Z7 7F52 77 




LD iHL-fA 


109 7FD9 Fl 




POF AF 




33 7F53 21DC7F 




LD HLr LNCNT 


110 7FDA C9 




RET 




39 7F56 35 




DEC IHL> 


111 7FD£ 03 


LHSPCE 


DB 03H 




40 7FTs7 200E: 




JR NZrRUN 


112 7FDC 42 


LNCNT : 


DB 42H 




41 7F5? 2A28<*0 




LD HL»iLNPCEi 


113 7FDD 00 


ENDPAC 


DB 00H 




42 7FSC 22DC7F 




LD < LNCNT >»HL 


11'. 7FDE 48 


CHRLN: 


DB 48H 




43 7F5F 21DD7F 




LD HLrENDFAG 


115 7FDF E5 


TOPPAG. 


PUSH HL 




-,', 7F62 3606 




LD .:HL)r06H 


llo 7FE0 21DC7. r 




LD HL» LNCNT 




45 7F64 Fl 


RUN: 


POP AF 


117 7FE3 3642 




LD IHL>»42H 




46 7F65 El 




POP HL 


118 ~TE5 El 




FOP HL 




47 7F66 F5 


START: 


PUSH AF 


119 7FE6 C? 




RET 




40 7F67 E5 




PUSH HL 


120 7FE7 F5 


DELAY : 


FU3H AF 




49 7F68 C5 




PUSH DC 


121 7FE8 3AF67F 




LD Ar<KBFIX*4J 




50 7F69 0609 


AGAIN: 


LD B,09H 


122 7FEB EE10 




XOR 10H 




51 7F6B 37 




3CF 


123 7FED 32F67F 




LD < KBFIXt-4 ;»A 




52 7F6C F5 




FU3H AF 


124 7rF0 Fl 




POP AF 




53 7F6D F5 




PUSH AF 


125 7FF1 C9 




RET 




54 :'F6c. 2101FC 




LD HL.0FC01H 


126 




ORC 7FF2H 




55 7F71 CD2102 




CALL 022 1H 


127 7FF2 F5 


KBFIX: 


PUSH AF 




56 7F74 CD797F 




CALL DLY 


128 7FF3 C5 




PUSH BC 




57 7F77 1809 




JR ROUND 


129 7FF4 012000 




LD BCr0020H 




56 7F7-> 21UE00 


DLY: 


LD HL , 00DEH 


130 7FF7 CD6000 




CALL 0060H 




59 7F7C 2B 


DLYi: 


DEC HL 


131 7FFA CI 




POP BC 




60 7F7D 7C 




LD A»H 


132 7FFD Fl 




F'OF AF 




61 7F7E B5 




OR L 


133 7FFC C35P04 




JP 0458H 




62 7r7F 20FE'. 




JR NZtDLYI 


134 




END 




63 7F81 C9 




RET 










64 7F82 Fl 


ROUND: 


POP AF 










65 7F03 IF 




RRA 










o6 7F84 F5 




PUSH AF 


AGAIN 7F69 BLNK 


7FC1 


CHFiSLN 4029 CHRLN 


7FDE 


67 7F85 3005 




JR NCrOUTl 


DLY 7F79 DLYI 


7F7C 


DELAf 7FE7 ENDLN 


7F41 


68 7F37 2102FC 




LD HL.0I C02H 


ENDPAG 7FDD KBFIX 


7FF2 


LNFGE 4028 LPRT 


7F34 


69 7F8A 1805 




JR OUT2 


LHSPCE 7FDB LNCNT 


7FDC 


OUT1 7F8C OUT2 


7F91 


70 7F8C C600 


OUTl: 


ADD A»00H 


0UT3 7FA2 OUT 4 


7FB4 


OUTS 7FD8 RELOAD 


7F4A 


71 7F8E 2101FC 




LD HLr0FC01H 


RUN 7F64 ROUNl 


7F82 


START 7F66 TESTl 


7FA8 


72 7F91 CD2102 


OUT2: 


CALL 022 1H 


TEST2 ;TCA TOrTAG 7FDF 






Program Listing 1. This is the 


assembler listing. If desired, the object code can be typed in using T-Bug 


or the program reassembled 


using EDTASM. For 


complete repeatability, the DLY subroutine and the storage addresses should be located in low RAM, such as 


405CH to 407 FH (which is used only during the switchon sequence). 
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PLUS 




Model II 64K $3300 
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Pocket Computer $189 
P. C. Printer $130 




Model III 16K $839 

2DR + RS232C $2100 



■ #%#%|f Here are just a few of our fine offers 
kwwl% call toll-free for full information. 



COMPUTERS 




PERIPHERALS 




Microline 82A 


515 


Model II 64K 


$3300 


Expansion Interface OK 


$249 


Microline 83A 


799 


Model III 4K LEV I 


599 


Expansion Interface 16K 


355.50 


Pocket Computer Printer 


130 


MODEL III 16K 


839 


•Expansion Interface 16K 


291.50 


DISK DRIVES 




MODEL III 32K 


945.50 


Expansion Interface 32K 


462 


R.S. Model ill IST-Drive 


712 


•MODEL III 32K 


881.50 


'Expansion Interface 32K 


334 


TEAC40TrackMI 


329 


MODEL III 48K 


1052 


16K RAM N.E.C 200 N.S. ch 


ps 25 


R.S. 1 Drive Exp Mil 


999 


•MODEL III 48K 


924 


MODEMS 




R.S. 2 Drive Exp Mil 


1518 


Model III 48K 




Lynx Direct Connect Ml/Ml 


I 269 


R.S. 3 Drive Exp Mil 


2040 


2 Disc & RS232 c 


2100 


Auto Ans. /Dial 




Seimans8" Mil 


799 


Color Computer 4K 


310 


Telephone Interface II 


169 


Atari 810 Disk 


499 


Color Computer 16K 


416.50 


R.S. Modem I D.C 


130 


SOFTWARE 




•Color Computer 16K 


352.50 


Atari 830 Modem 


159 


R.S. Software 10% off list 




Color Computer 16K 




Atari 850 Interface 


183 


Atari Software 10% off list 




w/extended basic 


459 


PRINTERS 




Newdos + (40) track Ml 


88 


Pocket Computer 


189 


Daisy Wheel II 


1695 


Newdos 80 Mill 


149 


VIDEOTEX 


310 


Line Printer VI 


999 


ST80III 


14V 


APPLE 48K only 


1279 


Epson MX80 


499 


ETC. 




ATARI 800 32K 


789 


Epson MX80 FT 


599 


Verbatum 5" Double Density 


32 






Epson MX100 


799 


Verbatum 8" Data Life 


49.95 






Line Printer VII 


315 


Ctr-80A recorder 


52 


•Computer Plus New Equipment 
180 Day Extended Warranty 


Line Printer V 


1610 


C C Joysticks 


22 






Microline 80 

irMnfQQC __ — , 


345 







Factory warrantees on Apple and Atari equipment. Other 
equipment carries manufacturer's warranty or Computer 
Plus 180 day extended warranty Combined warrantees 
carry Computer Plus 180 day warranty or original manu- 
facturer's warranty. ^^^^ 



call toll free 1-800- 343-8 124 



com 



DEALER INQUIRIES ARE INVITED 

Prices subject to change without notice. 
Nol responsible tor typographical errors. 

TRS-ftO Is a r©gi»t«r«d trademark of Tandy Corp. 
•See List ot Advertisers on page 386 




Dept. D 

245A Great Road 
Littleton. MA 01460 
617-486-3193 



free catalog 



80 Microcomputing, October 1981 • 237 




♦ HARNESS * 

♦GREYHOUND ♦ 
HANDICAPPING AIDS 

PI." A COMPUTER ON YOUH SIDE 

AND GET INTO THE WINMNG 

HAIliT IVllH We.MV sSOF IAAHE 

HANDICAPPING AIDS 

Dmgned exclusively for use with 'TRS 80 (Model I of 
Pockei Compute- vrsionjl. we believe our HARNESS and 
GREVMOUND sottwaie handicapping aids are the most 
advanced and useful such systems available anywhere With 
oui sottwaie. your home computei does all of you' difficult 
and tedious handicapping chO'es quickly, effoitiessly and 
accurately in the uuiet and comfc t of your home lor with 
the pocket compute', take it to the Hack with you.) Not 
simply a mathematical e«emse tool, rathe' years of research 
have gone into the development of the algorithms used 
Designed for ease of ope'ation while insu'tng a most com- 
prehensive approach Both aids are available on cassette and 
disk IS'V and 8") formats and include a useful easy to iead 
User's Manual INOTL In addition to "TRS-80's Model I 
and Pocket Compute's both systems are available m 
MBASlC lor "CPWI. Requires minimum 16K Level II 

Shop around you can t beat the WelMui value the must 
cost effective systems on the market Just $29 96 fo- 
cassette and $34 9b foi disk plus $1 00 for handling and 
shipping costs (Calif, add 6"» sales taxi Save with the 
purchase of two o> moi> like systems Deale' discounts 



ilaM 



Alio 



Send Check. Money O'de 
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SFINKS 1.81 

MICROCOMPUTER 

CHESS 

SF1NKS was recently challenged by the best pro 
Tarns available fot the TRS-80" rmcrocomputer 
in a Canadian Round Robin 

THE RESULT 

SFINKS riddled MYCHESS. SARGON II and 
GAMBIET 80 to finish m a tie tor 1st place 
SFINKS features an audio alert, a problem mode 
superb graphics, and nine levers of play Play chess 
with the best toi less! 

32K Model I TRS-80* 

cassette or disk only Z7.7J 

WILLIAM A. FINK ^ 
P.O. BOX 5912 

Lighthouse Point. FL 33064 

Dealer inquiries 
Welcome 

' TntcktrvsriV ot 
Tandy Company 
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We need your talents. 
Wayne Green Inc. is looking 
for editors, proofreaders, 
photographers and production 
people to be on our staff. 
If you are a non- smoker 
who would like to work on 
80 Microcomputing, Kilobaud 
Microcomputing, Desktop 
Computing or 73 Magazine, 
send us your resume. We want 
to hear from you. Contact: 

WAYNE GREEN INC. 
PETERBOROUGH, NH 03458 
ATTN: PERSON NELA25 
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"This tells me more than a few notes on the program 
itself, and doesn't use memory." 



doesn't use memory. The program is ar- 
ranged to give a baud rate of 300 for the 
reasons described earlier, but for anyone 
who uses 110 baud machines, one single 
alteration will give the lower rate. 

The program has its origin at 7F11H, 
32529D, and two of the printer control block 
addresses are used for storage, and anoth- 
er two bytes for the address of the new 
routine. Location 4028 H(1 6524 D) is used to 
store the number of lines per page. This is 
the number which is placed in this address 
when the TRS-80 is switched on, so no addi- 
tion has to be made here. Location 4029H is 
used in this program to store the number of 
characters per line, and POKEing a new val- 
ue into this address will alter the number of 
characters per line which your printer will 
deliver. 

Four addresses in the program space it- 
self are used also for storage, and these can 
be POKEd to change the quantities such 
as the left margin space and the gap be- 
tween pages. As set up, the program prints 
72 characters per line, 66 lines per page, 
four spaces on the left margin, and six 
blank lines between pages. A complete de- 
scription of the program follows so anyone 
who wants to build on it for his own pur- 
poses can do so. 

The first section of the program from 
7F11H to 7F2FH loads up the RAM loca- 
tions. Address 4826, with 4827, contains the 
address of the printer routine. When the 
TRS-80 is switched on, the operating sys- 
tem loads the address 058DH into these lo- 
cations, which is the start of the ROM rou- 
tine for a parallel printer. Our print routine 
starts at 7F34H, so that this is the address 
which must be loaded to these locations. 
This way, we can use the commands LLIST 
and LPRINT rather than having to use new 
command words. There is a similar read- 
dressing at 401 EH.401 FH. These addresses 
hold the address of the screen-print routine, 
normally 0458H, now directed to 7FF2H. 
This lets me put a delay into the screen- 
print routine, and serves two very useful 
purposes. One is that it debounces my key- 
board, and the other is that it allows me to 
incorporate a slow-listing facility. The num- 
ber of characters per line is loaded into 
4029H, no load is done into 4028H because 
the regular 66 lines per page suits me. If you 
want a different number, add a couple of 
steps to accomplish this. 

When a disk system is not in use several 
commands such as Field, Get, Put and 
about 25 others will return with L3 Error if 
you use them in Basic. According to the 
manual, this is because they are disk com- 
mands which work only when a disk operat- 
ing system is loaded. In fact, each of these 
commands causes the operating system to 
look in RAM for the address of a routine, 



and if you put in your own routine, and 
POKE its address to the correct place, you 
can make use of any of these commands. 

In this program, I have used Field to reset 
the lines-per-page count, so the printer will 
print a full 66 lines before it creates the six 
blank lines at the end of a page. The ad- 
dress of a page-reset routine is loaded into 
417DH, the reference address for the Field 
command. Similarly, I have used the com- 
mand Put to change the delay time by load- 
ing the address of a delay-change routine 
into 4183H, the address for the Put com- 
mand. By typing Put and entering from 
Basic the TRS-80 screen-print rate is slowed 
so the listing can be watched on the screen. 
This, combined with the TRON command, is 
a considerable aid to debugging a Basic 
program, because with these two I can 
watch a program execute in slow motion 

Typing Put for a second time and enter- 
ing takes the additional delay out again, 
and screen operations proceed normally. 
This delay can also be placed in the key- 
board routine, but there are advantages to 
using the screen routine. One is that the 
delay acts only when the screen is ac- 
cessed, as it always is when a character is 
being entered from the keyboard. A delay in 
the keyboard routine, unless it is a rather 
complicated delay program like the Radio 
Shack KBFIX, slows down all program oper- 
ations because the keyboard is scanned 
continually as a program progresses. This, 
of course, is why the Break key can be used. 
If you disable the keyboard you lose all con- 
trol over a program. 

The loading section ends with a jump 
back to Basic at M72H, and the printer 
routine itself starts at 7F34H. The Dl com- 
mand is used so the routine cannot be inter- 
rupted in mid-character by the Break or any 
other key. The printer routines of the TRS-80 
place the character to be printed in the C 
register of the Z80, so the next step is to 
transfer this to the accumulator so we can 
operate on it. The section of the program 
from 7F36H to 7F40H saves the registers 
and calls the screen-print routine, and what- 
ever is sent to the serial printer is also 
echoed onto the screen. This is a useful fea- 
ture because most dot-matrix printers con- 
ceal what they are printing until several line- 
feeds have taken place. If you want to be 
able to cut this feature in and out, use one 
of the disk control words to POKE 00 into lo- 
cations 7F3AH and 7F3BH, and another to 
POKE back the bytes which are shown in 
these locations. 

At ENDLN the byte in the accumulator is 
checked to see if it is a carriage return 
(ODH), in which case the program branches 
to reload to reset the characters-per-line 
count and to decrement the number-of-lines 



238 • 80 Microcomputing, October 1981 



count in location LNCNT. If at ENDLN, the 
byte in the accumulator is not a carriage re- 
turn and is less than the space byte (20H), 
the program returns to ROM for the next 
character, because the control characters 
other than carriage return are not used in 
the program (the dot-matrix printers can be 
set to line-feed on carriage return, so the ad- 
ditional complication of a line-feed is not 
reeded). For any other character, the pro- 
gram then jumps to Start. 

At Start, the registers are saved on the 
stack, and register B is loaded with a bit 
count of nine (one byte plus a space). A 
mark bit is sent out (my printer interprets a 
mark as a and a space as 1) by loading 
FCQ1 to the HL pair, and calling the TRS-80 
subroutine at 0221 H. Working on the results 
of the cassette port output voltage men- 
tioned earlier, the mark byte is 01 and the 
space 10. To establish the correct baud 
rate, a delay must follow, and this is 
achieved in the subroutine DLY. The byte 
00DEH. which is loaded into HL at the start 
of this subroutine, determines the baud 
rate. So if you want 110 baud, a larger 
number must be loaded here — try 0267H. 

At the label Round, the bits which make 
up the character are sent out one by one. 
The RRA command shifts the contents of 
the accumulator one place to the right, so 
the lowest-order bit lands in the carry posi- 
tion. If the bit in the carry position is 0, C is 
reset and the program jumps to OUT1 to 
send out a mark bit. If the bit in the carry 
position is a 1 then HL is loaded with 
FC02H, the space bit, and this causes the 
OUT2 routine to send out a space. Each of 
these routines are followed by the DLY sub- 
routine to keep the baud rate correct. Yet, at 
300 baud the timing does not have to be ex- 
act. The DJNZ command at 7F97H keeps 
the rotate and output routine going until the 
B-register has been decremented to zero in 
the usual action of the DJNZ command. A 
final delay follows, and the program jumps 
to OUT3, which is the end of the part of the 
routine that outputs the character to the 
printer. 

At OUT3 the AF register is POPped to 
recover the original unrotated byte and this 
is compared with the carriage return byte, 
0DH. If the byte which has just been sent to 
the printer was 0D, then the program skips 
to Test2 otherwise at Testl, the byte from 
ENDPAG is loaded in which clears the ac- 
cumulator. Now if the lines-per-page count 
reached zero earlier in the program (at 
Reload), there will be a six in ENDPAG giv- 
ing the OR (HL) step a positive result. The 
program will continue by decrementing 
ENDPAG by loading a carriage return char- 
acter into the accumulator and jumping 
back to output this to the printer. This wilt 
continue each time this place is reached un- 

^■i.ee Lis' ol Advertisers on page 386 



VISA/MC Order Line Only (except Mich.) 800-253-4358 ext. 100 

FIN DISK 11 The ultimate in automatic disk indexing with exclusive features Model 1 $20.00 

AUTOMATICALLY create INDEX of programs or data from all vour disks pnnl disk LABLLS. print 
alphabetized MASTERLIST. do fast SEARCH, add DESCRIPTIONS Also automatically detect DATA or 
SYS disks. PURGE disks and index of old files, and UPDATE from revised disks only 
SOLAR-I The critical calculations for passive design. . . Model! $30.00 Model-H $45.00 

INPUT any latitude, orientation, slope, roof overhang, storage type, building loss. OUTPUT solar angles 
shading, time, heat gain loss, percent solar, fuel use Print report by hour month, year in presentation format 
RIA-II Complex Real Estate Investment Analysis Model! $30.00 Model-II $45.00 

Analysis for investor or homeowner using Elwood method INPUT Project costs, loan and tax data, 
expenses, depreciation rate OUTPUT. Cap rate value, mortgage payments, before after tax cash flows, return 
(IRR) . profit gain from sale over any time series 
DEPRECIATE-I Manage a list of depreciable items Model! $15.00 Model-II $20.00 

Tracks long list of depreciable items with varying purchase dates, depreciation rates, or per cent business use 
Update anytime Print tax form Used by many CPAs 
STRUCT-! Graphic design of steel /wood beams and moment transfer Model-! $15.00 

INPUT: span/cantilever, uniform' point loads, beam material OUTPUT with screen graphics beam moment 
& shear diagrams Print job report with diagram, stresses, and required beam sizes 

Mm 32K On disk iMod-l one drive order tape! Add $1 00 postage 'Mien add 4% taxi VISA MC 
^88 DOCUMAN SOFTWARE BOX 387-A KALAMAZOO, Ml 49005 (616) 344-0805 



MODEL III PATCHES 

* Scripsit and/or Visicalc $15.00 * ST80D 



$15.00 



Works if vou have already backed 

up twice 

Unlimited backups of your original 



Patches your Model I ST80D 
program to work on the Model III 



No programming or technical knowledge required. 
• Apparats NEWDOS 80 Only $149.95 (Specify Model I or in) 



All orders shipped 
within ten days. 

Visa or Master Charge accepted 
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MTA.INC ^-!43 
316-665-3611 526 East 4th Hutchinson, Ks. 67501 



UTILITIES 



A MUST FOR ALL 
PROGRAMMERS 



PROGRAM INNOVATIONS 



Model II Disassembler <* ra 

Output in ASCII or hex to printer or screen ONLY $73.95 

Data File Utility (Model I Level II. 16 K mm ) Creates/Updates/Sorts'ANY disk file 

independent of your program Disk only $01.95 

Model II Macro Assembler Incorporate fast, time-saving macros into assembly 



language programs 



ONLY $74.95 



LOOK! (U cls 


(2-A) 


LD B. 1BH 


(2-B) 


RST 8 


PRINT MSG. \ft. 13 




LD A. 8 




LD A, 36 


JP2D0S 




RST 8 




RST 8 


MSG DEFM ITWORKS" " 




LD HL. MSG 


MSG: 


DEFM "ITWORKS!!" 


END 




LD B. M 
LD C.JDH 




END 



Both programs produce the exact same code Program (1 ) was created with the Macro Assembler 
Save 40°o-80% time while reducing error probability' •■mactco CARD AND 

GRAND OPENING SPECIAL. 10% Otl all Orders received by II -16-81 inel lucir^sc " 

OUR GUARANTEE All programs will work as advertised or your money refunded VIZ>/\ WCLlsVjtVIC 




SEND ORDERS TO: 



iaM«ram™ro.M:E 



P.O. Box 1368 Lumberton, N.C. 28358 
Phone (9 19) 739 3217 Night 730-3680 
N.C. RESIDENTS ADD 4% SALES TAX _ 



D & M SOFTWARE ^393 
1510 SOUTH 97TH 
iTACOMA. WASHINGTON 984441 



IWHEN OUR PROGRAMS 
TALK PEOPLE LISTEN 




FREE: COMPUTER 

CATALOG 

UPON REQUEST 

206-537-8155 



CROSS REFERENCE DICTIONARY 

The largest known cross reference manual for use with the 
TRS-80" Voice Synthesizer No need to spend more long hours 
earning another computer language Wan: your computer to say a 
word' Look up the English spelling Right next to it you II find the 
phonetic spelling that your synthesizer needs to say it correctly 
Included is a large list of commonly used phonetically spelled 
phrases and sentences ready to type into your program Invaluable 
as a time saving devi-.e 

SPELLING BEE (A 3 PART PROGRAM) S14 95 

The computer administers a lesson consisting of ten words When 
the student has learned them he is given an oral quiz m true spelling 
bee 'ashion When the lesson has been completed student may 
advance to next lessor The program is structured so that an un- 
limited number of lessons can be gived with progresively greater 
degrees of difficulty Excellent for any grade or age level Includes ten 
sample lessons of ten words each The second part of the program 
allows one to create his own spelling lessons on cassette for much 
needed flexibility A third part enables one to practice creating new 
words using the phonetic spellings needed by the synthesize' Error 

trapped and bug f'ee 

MOD 1 1 6K L 
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"My printer chatters away happily, 
and never has missed a character." 



til the ENDPAG location is zero. 

If the lines/pages count had not reached 
zero, the OR (HL) step gives a zero answer, 
and the program skips to location BLNK 
where LHSPCE is loaded in with the number 
three. The accumulator is loaded with the 
ASCII character 20H, and the printing 
routine is repeated, sending a space to the 
printer. 

When the character in the accumulator 
was not a carriage return (and this includes 
the space which is loaded at BLNK), Test2 
is used. This checks the byte in LHSPCE to 
see if more spaces need to be output to the 
printer, otherwise a retest is sounded by a 
jump to OUT4. At OUT4, the number of char- 
acters per line is decremented (note that the 
blank spaces at the left side are not 
counted) and if the count has reached zero, 
the accumulator is loaded with a carriage 
return and recycled to the printer. If the byte 
is not at the end of a line, the next stage in 
the countdown is OUT5, where the registers 
are restored to the original values, and the 
routine returns for the next character. 

The rather odd jump sequences in this 
program so far allow it to be relocatable. 



The bytes from 7FDBH to 7FDEH are 
storage bytes for the left-space, lines per 
page, end-of-page spaces, and characters 
per line respectively. These are fixed ad- 
dresses which also make the program not 
completely relocatable, but there is no 
reason (apart from convenience) for having 
them in the high memory portion of the pro- 
gram. For example, they can be loaded into 
the top end of the cassette buffer memory 
or into disused disk command RAM; either 
way would make this part relocatable. At 
TOPPAG, a short routine restores the num- 
ber of lines per page which is called by the 
Field command. 

Similarly, at 7FE7H, another short routine 
calls a delay change routine, by taking the 
byte from 7FF6H, and X-ORing it with 10H. If 
the delay byte was the (W set at the start of 
the program it is changed to 10 by this ac- 
tion. But if the byte was 10H, it is changed 
back to 00 by XOR. This routine is called by 
the Put command, and like the TOPPAG 
routine, it uses absolute addresses. This 
routine, like the TOPPAG, can be invoked 
from a running Basic program so screen 
scrolling can be controlled from within the 



program itself. Finally at 7FF2H, the video 
delay consists of saving registers, loading 
the BC pair with the delay bytes, calling the 
TRS-80 delay routine at 0060H, restoring 
registers, and then jumping to the screen 
routine in ROM at 0458H. 

Now how did it live up to specification? It 
was not as easy to relocate as I had wanted, 
but that can be sorted out if needed. I had 
not realized at the start how easy it would 
be to reassemble at different addresses, 
thanks to the Zen assembler. In any case, 
full relocatability is not difficult to achieve, 
either by using low RAM memory for all 
fixed locations, or by loading registers 
through immediate loading. The real snag is 
the delay subroutine. This can be located in 
low RAM, or simply divided so there is a 
delay routine in each position where it is 
needed. However, I have no need for full 
relocatability, and the program performs 
very well indeed. My listings now have left 
margins, so they can be punched for filing, 
and they cut neatly into page. My printer 
chatters away happily, and has never 
missed a character. What more could I 
ask?B 




Forbidden Plan 

The mirmt Talking Adventure 

This adventure talks through the cassette port. 

You no longer need to have a voice syntheslier. 

This adventure takes yon to a desolate pfaffft 

where only voir skill and your talking computer 
u. . ,1*111 Nip you survive. This Is Part 1 of a multl- 
:VBCjh f rt talking adventure. Like no other adventure 

you have ever played. The first five people to solve 

Forbidden Planet will get the next adventure FREE. 

• Jolil Screen 

Language 



thronglTTasserle Port 
Case 

lcts -*<•■■ 
yjiam Demas . 

fidams Adventure #12" 



Disk Model I & III 

ealers inquiries invited 

1457 Forum 80 702-362-3609 

Fantastic Software 

3110 Polaris #3 ^ 
Las Vegas, Nevada 89102 <r 
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• 117 



EMMANUEL B. GARCIA, JR. 
& ASSOCIATES 

203 N WABASH 

CHICAGO, ILLINOIS 60001 

PMONf (312) 712-9750 



NOW IN ITS THIRD YEAR OF 
SPECIALIZING IN PRODUCTS 
RELATED TO THE TRS-80* 

• Dealer of quality software and hardware — 
we sell only the best, proven items. 

. Sponsor of CHIC ATRUG— monthly 
learning sessions for TRS-80 users. 

. Publisher of "CHICATRUG News." monthly 
publication for TRS-80 users. 

■ ■ Send for sample issue ■ ■ 

. Sponsor of the FORUM-80 of Chicago, a 
24-hour computerized bulletin board. 

• Author of "Pensionmaker," the revolutionary 
defined benefit pension system running on 
the TRS-80 Model I where other pension 
actuaries are using mainframes. 

• Repair facilities (90-day warranty on new 
equipment and 30 days on used). 

E.B.G. & Associates is NOT affiliated with Tandy Corporation or Radio Shack 
'TRS-80 it • trademark oC Tandy Corporation 




TBS-SO- MOO HI 46K 

WITH YOUR CHOICE OF MP! DtSK 
DRiVES INSTALLED UP TO 4 MEG 
ON LINE STORAGE 



48K MCO Hi w»fh (2) INTERNAL 40V DRTvES 

AS ABCM EXCEPT WITH (2) INTERNAL SO* DRIVE S 

AS ABOvt EXCEPT WITH (2) INTERNAL 40AO* D0r**:S 

AS ABOVE EXCEPT WITH (2) IN'EPNAL 80/8OM* DWVES 

PS232 WEI* ACE INSTALLED ADD 

cxiernoi cxW o<"> Dive Coble 

651 s-4C»k S 3C>? CO B52 $ dO/O* 

E»l s- 80lrk S 420 CO EW2 s 80/8C*k 



MCO hi ItJSOOS 12DISKEITE 
MCO hi IPSDOS MANUAL 
MCO m DOSA.US " 

" >ecMtea fa cxxj&e- head a rmxed ctves 

6 MONTH LEVEL IV PRODUCTS INC. 

LIMITED 32461 SCHOOLCRAFT 

WARRANTY LIVONIA. MlCHtGAN 48150 

ON PARTS toll free 800-52 1 -3305 

AND LABOR instate 313-525^200 

visa-master card-C OD 



sisseco 

S2WCO 
S2»49CO 
S2449CO 
S 8900 
S 2500 

$445 CO 

S57POO 



$14<5S 

695 

W95 




STOCKCHART ■ 

MORE THAN JUST A COMPUTER PROGRAM 

ITS AN INVESTMENT TOOL 



•written tor TRS-80* model-l 
•requires 16K RAM for cassette. 32K 
RAM & 1 -drive for disk version 
•printer option 

•disk version $50.00 

•cassette version $30.00 

to order, send check, money order, or COD 
to: 



Micro-Investment Software 
9821 Bowie Way 
Stockton. CA. 95209 ^4« 



APPLE II* & ATARI-800* version available 
soon, write for more information 

■ TV of 'nufr Corp Appit Compute' *!»•• ittpKlnttf 





• generate price-chart from HIGH, LOW, & 
CLOSE PRICES 

• price-trend analysis assist investors in 
BUY/SELL decision 

• auto scaling for price-chart generation 

• accept fractions, allow users to enter 
prices as appear in newspapers 

• SPLIT routine to ad)ust prices tor stock 
split 

• EDIT capability tor users to change 
price data 

• STATUS mode to display price-trend 
signals 

• PURGE utility to delete unwanted data 
from disk (disk version only) 



GET THE PRICE - TREND PICTURE 



WITH 



STOCKCHART ■ I 



DEALERS INQUIRIES INVITED 



,/jh List 0/ Adrftisets on oaam 386 
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CONSTRUCTION 



Add a synthetic keyboard to your TRS-80. 



Auto-Key 



Mike Ghan 

2210 108th Ave. S.E. 

Bellevue, WA 98004 



Ever need to input a complex 
mathematical expression 
during a Basic program run? 
How would you like to load ma- 
chine-language files during ex- 
ecution without disturbing the 
video display or variables? 

Auto-key adds a synthetic 
keyboard to your TRS-80. By 
synthetic, I mean a utility that 
uses a string of characters in 
place of the normal keyboard 
input routine. 

Auto-key is fast and easy to 
use; just define a string in 
Basic and execute a USR com- 
mand. You can enter any 
character that can be entered 
from the keyboard, plus Basic 
internal codes. For example, 
185 is the code for CLOAD. If 
you enter CHR$(185) Into your 
string, Auto-key interprets it as 
CLOAD. 

Further, Auto-key saves 2.5K 
bytes of disk space over my 
previous method of auto power 
up. 



Compatibility is no problem. 
You can use Auto-key with 
Model I 4K Level II through 48K 
disk systems. I have not had the 
opportunity to use Auto-key 
with a Model III, but I foresee no 
problems. 

How Auto-key Works 

Auto-key recognizes three 
control codes. Control code 1 



Auto-key's Assembly code is 
shown in Program Listing 1. 
Lines 170-220 process the USR 
parameter to point to the string 
location. This allows you to use 
a simple command: X = USRO 
(VARPTR(A$)), where A$ con- 
tains the target string to be pro- 
cessed. The VARPTR function 
returns the string pointer, not 
the string address. Line 230 is 



"How would you like to load 
machine-language files during 

execution without disturbing 
the video display or variables?" 



disables the video driver. This 
allows you to work without 
disturbing the video display. 
Auto-key Is initialized with the 
video driver disabled. 

Control code 2 enables the 
normal video driver. 

Control code 3 terminates 
Auto-key and restores all driv- 
ers to their original condition. 



the Assembly Language entry 
point and loads register HL with 
your target string address and 
Calls MACHMC. Line 240 saves 
the string address to be ac- 
cessed later. 

Lines 250-280 save the video 
and keyboard driver addresses 
so they can be restored. This 
ensures that other drivers, such 



as a key debounce routine, that 
may be active before Auto-key 
is run will be restored as well. 
These original drivers are also 
linked to Auto-key. 

Lines 290-330 load 
Auto-key's address into the 
video and keyboard Device Con- 
trol Blocks (DCB), and return to 
the calling program. Auto-key 
is now initialized and ready for 
execution. 

Lines 390-410 check for the 
up arrow key and terminate 
Auto-key if it is pressed. 

Lines 420-440 check to see if 
the cursor is on. If It Is not on 
Auto-key exits via the normal 
keyboard driver, allowing IN- 
KEY$ to remain functional. 

Lines 450-480 bump the 
string pointer and load register 
A with the next character to be 
passed on. 

Lines 490-540 test for con- 
trol code 1, the code to turn off 
the video. If a 1 is found, the 
video off driver is loaded into 
the video DCB; register A is 
cleared; and a return sends you 
back to the caller. 

Lines 550-620 check for a 3, 
the code for the end of the 
target string. If a 3 is found, all 
the original drivers are restored 
into their DCBs and Auto-key is 
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unlinked. 

Lines 630-680 test for a 2, the 
code for video on. If a 2 is not 
found the character is assumed 
to be valid and is returned to 
the keyboard caller. If a 2 is 
found, the original video driver 
address is restored to its DCB. 

Lines 720-780 are the video 
off routine. They check for a 14 
(cursor on) or a 15 (cursor off). 
By replacing all other codes 
with a zero, this turns the video 
driver off. Lines 780 and 790 
store the original driver ad- 
dresses and serve as links for 
Auto-key. 

One idea I would like to pass 
on is my use of jump (JP) vec- 
tors. If you look at RAM starting 
at 4000H, you will see a series 
of JP instructions. This allows 
various routine codes to be 
altered or updated. Since a 
change also changes the entry 
point for a given routine, any 
other routine which calls it 
would have to alter its call in- 
struction. You need only 
change the jump vector to 
match the new entry point and 
everything goes just fine. 

I use this concept a little dif- 
ferently. My jump vectors start 
in high memory and work down. 
Thus, I can move a routine or 
change it and all I need to do is 
change the jump vector to 
maintain compatibility with my 
many programs that access 
that particular routine. 

Alterations and Enhancements 

As written, Auto-key is not 
relocatable, but you could 
change that with a much longer 
routine. Enter the source code 
into your assembler and 
change the origin statement in 
line 110 to match your memory 
size or requirements. The 119 
bytes of code for Auto-key can 
be contained in Basic data 
statements and POKEd into 
memory. Program Listing 2 
uses this technique. 

A program called Progdata 
(see 80 Microcomputing, May 
1980, page 126) will make the 
task of defining these data 
statements much easier. Also 
you can add the code for Auto- 
key to an existing machine- 
code program allowing easier 
loading and using less storage 
space. 



Additional functions can be 
added to Auto-key by testing 
for another control code. For 
example, a CP 04 could be used 
to access a machine language 
routine. The code 04 would be 
followed by two bytes contain- 
ing the entry point to the par- 
ticular routine. By loading 
register HL with these two 
bytes and executing a JP (HL) 
instruction, you could have a 
vectored USR command. This 
would be very useful in Level II 
Basic which has only one USR 



command. Don't forget to clear 
register A upon return. I'll leave 
the loose ends for you to tie up. 
A little food for thought. 

Typical Applications 

Program Listing 2 contains a 
16K Level II Basic program that 
inputs mathematical formulas 
directly during program execu- 
tion. After loading the machine 
code in lines 1000-1080, the 
program prompts you with 
"Z = ?" in the line 120. Respond 
with a mathematical expression 



such as " 2*3 + 4*SQR(6)/6 ". 
Line 130 adds the following: 

• CHR$(2) turns on the video. 

• "10 Z = ", the program line 
number and "Z = ". 

• The formula you input, Q$. 

• ":?Z", to print the value of Z. 

• CHR$(13), the code for a 
carriage return. This enters 
the new line. 

• The command RUN and 
CHR$<3), which runs the pro- 
gram with the new line 10 
added. CHR$(3) is the end of 







00100 


; 


AUTO-KEY by MIKE GHAN 




F600 




00110 




ORG 


0P600H 




F600 




00120 
00130 


Z START 


EQU 


S 








00140 


;THE FOLLOWING 


BLOCK INITIALIZES DEVICE CONTROL BLOCKS FOR BOTH 






00150 


;THE VIDEO AND 


KEYBOARD DRIVERS 


. RETURNS TO BASIC OR A CALLING 






00160 


.•MACHINE LANGUAGE ROUTINE 




P600 


CD7F0A 


00170 


USRMAC 


CALL 


0A7FH 


;GET USR PARAMETER 


F603 


23 


00180 




INC 


HL 


; POINTS TO STRING POINTER 


P604 


5E 


00190 




LD 


E,(HL) 


; GET LSB OF STRING ADDRESS 


F605 


23 


00200 




INC 


HL 




F606 


56 


00210 




LD 


D,(HL) 


;GET MSB 


F607 


EB 


00220 




EX 


DE,HL 


;SWAP BACK INTO HL 


F608 


2B 


00230 


MACHMC 


DEC 


HL 


;MACBINE LANGUAGE ENTERY POINT 


F6e9 


2225F6 


00240 




LD 


(MACPNT) ,HL 


;SAVE STRING POINTER 


F60C 


2A1E40 


00250 




LD 


HL,(401EH) 


;GET VIDEO DRIVER ADDRESS 


F60F 


2272F6 


00260 




LD 


(VIDOUT+1) ,HL 


; SAVE IT TO RESTORE 


F612 


2A1640 


00270 




LD 


HL, (4016H) 


;GET KEYBOARD DRIVER ADDRESS 


F615 


2275F6 


00280 




LD 


(KEYOUT+1) ,HL 


j SAVE IT ALSO 


F618 


2166F6 


00290 




LD 


HL, NOVID 


;NEW VIDEO DRIVER 


F61B 


221E40 


00300 




LD 


(401EH) ,HL 


; PUT INTO DEVICE CONTROL BLOCK 


F61E 


2127F6 


00310 




LD 


HL, MACRO 


fNEW KEYBOARD DRIVER 


F621 


221640 


00320 




LD 


(4016H) ,HL 


;PUT INTO DCB 


F624 


C9 


00330 

00340 




RET 




> RETURN TO CALLER 


P625 


0000 


00350 
00360 


MACPNT 


DEFW 


00H 


; POINTS TO CHARACTER TO PASS 






00370 


;THIS IS THE ACTUAL AUTO-KEY DRIVER, IT CHECKS FOR VALID CONTROL 






00380 


;CHARCTERS ( 01, 02, OR 03 ) AND GETS CHARACTERS IN THE STRING. 


F627 


3A4038 


00390 


MACRO 


LD 


A,(3840H) 


/TEST FOR "UP ARROW" 


F62A 


FE08 


00400 




CP 


8H 




F62C 


281E 


00410 




JR 


Z, MACOUT 


j CANCEL AUTO-KEY 


F62E 


3A2240 


00420 




LD 


A,(4022H) 


j GET CURSOR CHARACTER 


F631 


B7 


00430 




OR 


A 


;IF CURSOR IT NOT ON, 


F632 


2840 


00440 




JR 


Z, KEYOUT 


j EXIT VIA NORMAL KEY DRIVER 


F634 


2A25F6 


00450 




LD 


HL, (MACPNT) 


;GET CHARACTER POINTER 


F637 


23 


00460 




INC 


HL 


;BUMP TO NEXT ONE 


F638 


2225F6 


00470 




LD 


(MACPNT) ,HL 


; SAVE IT FOR NEXT TIME 


F63B 


7E 


00480 




LD 


A,(HL) 


>GET THE CHARACTER 


F63C 


FE01 


00490 




CP 


01H 


j TEST FOR "VIDEO OFF" 


F63E 


2008 


00500 




JR 


NZ,MACONl 


jGOTO MACON1 IF NOT 01 


F640 


2166F6 


00510 




LD 


HL, NOVID 


;VIDEO OFF DRIVER 


F643 


221E40 


00520 




LD 


(401EH) ,HL 


;PUT IN DCB 


F646 


AF 


00530 




XOR 


A 


/RETURN ZERO (NOTHING) 


F647 


C9 


00540 




RET 






F648 


FE03 


00550 


MAC ONI 


CP 


03 


j END AUTO-KEY? 


F64A 


200F 


00560 




JR 


NZ, MACON 2 


;GOTO MACON 2 IF NOT 


F64C 


2A7 5F6 


00570 


MACOUT 


LD 


HL, (KEYOUT+1) 


; RESTORE ORIGINAL KEYBOARD 


F64F 


221640 


00580 




LD 


(4016H) ,HL 


; DRIVER TO DCB 


F652 


2A72F6 


00590 




LD 


HL, (VIDOUT+1) 


/RESTORE ORIGINAL VIDEO 


F655 


221E40 


00600 




LD 


(401EH) ,HL 


; DRIVER TO DCB 


F658 


3E0D 


00610 




LD 


A,0DH 


.•RETURN A 'ENTER' 


F65A 


C9 


00620 




RET 




; ROUTINE NO LONGER LINKED 


F65B 


FE02 


00630 


MACON2 


CP 


02H 


; VIDEO ON? 


F6 5D 


C0 


00640 




RET 


NZ 


;NO, RETURN VALID CHARACTER 


F65E 


2A72F6 


00650 




LD 


HL, (VIDOUT+1) 


; ORIGINAL VIDEO DRIVER 


F661 


221E40 


00660 




LD 


(401EH) ,HL 


; RESTORE DCB 


F664 


AF 


00670 




XOR 


A 


; RETURN ZERO 


F665 


C9 


00680 
00690 




RET 










00700 


;THE FOLLOWING 


ROUTINE TURNS VIDEO OFF BY SCREENING ALL 






00710 


; CHARACTERS EXCEPT CURSOR ON ( 


14 ) AND CURSOR OFF ( 15 ) . 


F666 


79 


00720 


NOVID 


LD 


A,C 


; REGISTER C HOLDS CHARACTER 


F667 


FE0E 


00730 




CP 


14D 


j CURSOR ON CODE? 


F669 


2806 


00740 




JR 


Z, VIDOUT 


) YES, PASS IT ON 


F66B 


FE0F 


00750 




CP 


15D 


.•CURSOR OPF CODE? 


F66D 


2802 


00760 




JR 


Z , VIDOUT 


;YES, PASS IT ON 


F66F 


0E00 


00770 




LD 


C,0H 


;PASS A ZERO (NOTHING) 


F671 


C30000 


007 80 


VIDOUT 


JP 


0000H 


; REPLACE 0000H WITH ORIGINAL 


F674 


C30000 


00790 


KEYOUT 


JP 


0000H 


; DRIVER ADDRESS AT START 


F677 




00800 


ENDMAC 


EQU 


$ 




402D 




00810 




END 


402DH 


/CHANGE TO 1A19H FOR LEVEL II 










Program Listing 1. Auto-key 
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string code for Auto-key that 
returns Enter for the last 
command. 

Line 140 executes a USR call 
to enable Auto-key. The com- 
mand Stop does two things. 
First, you can't enter a program 
line during execution, and se- 
cond you need to have the cur- 
sor on to activate Auto-key. The 
cursor needs to be on because 
Basic is continuously scanning 
the keyboard looking for a Break 
key or setting INKEYS values. 
Without checking for the cur- 
sor, Auto-key would be return- 
ing the first part of your string 
before Basic found the stop 
statement. Try running the pro- 



gram, inputting various expres- 
sions, and then hit Break and 
list the program. The last ex- 
pression you enter will be in 
line 10. "BREAK IN 140" is 
never displayed because Auto- 
key is initialized with the video 
driver disabled. Disk Basic 
users will have to reassemble 
Auto-key into higher memory 
and use the DEF USR1 = &Hxx- 
xx statement to define the user 
entry point. 

Program Listing 3 contains a 
Disk Basic program that lists 
the disk directory, returns to 
Disk Basic and resumes execu- 
tion. Since the program oper- 
ates in a similar manner to Pro- 



gram Listing 2, 1 will explain the 
target string (DIR$) only. 

•CHR${133) is the Basic in- 
ternal code for CMD. 
•The CHR${34)s put quotes 
around S. So far we have 
CMD"S". 

•CHR$(13) and CHR$<2) add 
Enter and turn on the video, 
respectively. 

•"DIR (A, I, S,)" and CHR$(13) 
execute the directory read 
with file allocation, invisible 
files and system files. 
•CHR$<01) turns the video off 
again. 

•"BASICR*"' and CHR$(13) 
re-enter Disk Basic with the 
program and all variables in- 



10 GOTO1000: REM MEMORY SIZE - 32628 

100 CLEAR300:DEFINT A-Z 

110 POKE 16526 ,136: POKE 16527, 127 : REM AUTO-KEY ENTRY POINT 

120 INPUT'Z- ";Q$ 

130 QS«CHRS(2)+"10 Z-"*Q$+":?Z"+CHR$(13)+"RUN"+CHR$(3) 

140 X-USR(VARPTR(Q$) ) :STOP 

1000 FOR Z8» 32648TO 32767:READ Z9:POKEZ8,Z9:NEXT Z8:GOTO100 

1010 DATA 205,127,10,35,94,35,86,235,43,34,173,127,42,30,64 

1020 DATA 34,250,127,42,22,64,34,253,127,33,238,127,34,30 

1030 DATA 64,33,175,127,34,22,64,201,0,0,58,64,56,254,8,40 

1040 DATA 30,58,34,64,183,40,64,42,173,127,35,34,173,127,126 

1050 DATA 254,1,32,8,33,238,127,34,30,64,175,201,254,3,32 

1060 DATA 15,42,253,127,34,22,64,42,250,127,34,30,64,62,13 

1070 DATA 201,254,2,192,42,250,127,34,30,64,175,201,121,254 

1080 DATA 14,40,6,254,15,40,2,14,0,195,0,0,195,0,0,0 

Program Listing 2. This Basic program will list mathematical formulas during a program's ex- 
ecution. 



50 REM CHR$(133)«"CMD", CHRS(179) -"CONT" 

100 CLS:CLEAR500:DEFINTA-Z 

110 DIRS-CHR$(133)+CHR$(34)+"S"+CHR$(34)+CHR$(13)+CHR$(2)+"DIR ( 

A,I,S) "+CHR${13)+CHR$(B1)+"BASICR •"♦CHR$(13) +CHR$(179) +CHR$(3) 

120 PRINT "ACCESSING DIRECTORY" 

130 D£FUSRl«fcHFPF3:X-USRl(VARPTR(DIR$) ) :STOP:REM FFF3H IS JUMP V 

ECTOR FOR AUTOKEY 

140 PRINT "DIRECTORY READ": END 

Program Listing 3. This Disk Basic program lists the directory and resumes programming. 









00100 






CONTROL V6.2 2/23/81 




UNDEFINED SYMBOL 












0000 


CD0000 


00110 


COMPRC 


CALL 


SETUP 


•SET DCB,s. OPTIONAL 




0003 


211200 


00120 




LD 


HL, MACBUF 


; STRING ADDRESS 




UNDEFINED SYMBOL 












0006 


CD0000 


00130 




CALL 


MACHMC 


; AUTO-KEY ENTRY POINT 




0009 


2100EF 


00140 




LD 


HL,0EP00H 


;SET TOP MEM 




000C 


224940 


00150 




LD 


(4049H) ,HL 


; TO EF0 0H 




000F 


C32D40 


00160 




JP 


402DH 


;DOS 




0012 


02 


00170 


MACBUF 


DEFB 


02H 


; VIDEO ON 




0013 


56 


00180 




DEFM 


•VERIFY (ON) 


; VERIFY WRITES 




001E 


0D 


00190 




DEFB 


0DH 


; "ENTER" 




001F 


43 


00200 




DEFM 


•CLOCK (ON) ' 






0029 


0D 


00210 




DEFB 


0DH 






002A 


42 


00220 




DEFM 


■BASICR' 


j LOAD DISK BASIC 




0030 


0D 


00230 




DEFB 


0DH 






0031 


2D 


00240 




DEFB 


0DH 


;♦ OF FILES 




0032 


36 


00250 




DEFM 


•eieee 1 


.•MEMORY SIZE. OPTIONAL 




0037 


0D 


00260 




DEFB 


0DH 






0038 


52 


00270 




DEFM 


•RUN"WATCH" 


;HOME WATCHER 




0042 


03 


00280 




DEFB 


03H 


;END OF STRING 




0000 




00290 




END 








00002 TOTAL 


ERRORS 
















Program Listing 


4. Automatic Power-up 


to Disk Basic. 



tact. 

•CHR$(179) is the Basic in- 
ternal code for CONT. 
•CHR$(3) terminates Auto- 
key and returns an Enter. The 
Basic program now resumes 
execution at the 140. 
Program Listing 4 is an exam- 
ple of auto power up to Disk 
Basic. This routine is part of a 
larger program called Control, 
that contains my upper/lower- 
case driver, joystick driver, 
screen print driver, home inter- 
face controller and Auto-key. 

TRSDOS allows one power 
up command via the Auto com- 
mand. Auto loads Control on 
power up with the execution ad- 
dress as line 110 (COMPRC). 
From there Auto-key takes 
over. 

Line 110 calls a routine that 
initializes my DCBs to point to 
various drivers so that when 
Auto-key is finished these 
pointers will be restored. (Line 
110 is only necessary if you 
use driver routines of your 
own). 

Next, line 120 loads register 
HL with the string address 
called MACBUF. Line 130 calls 
Auto-key's machine-code entry 
point (MACHMAC in Program 
Listing 1). 

Lines 140-150 perform a very 
neat trick. Memory location 
4049H contains the TRSDOS 
top of memory pointer. If you 
alter this pointer, your TRS-80 
thinks it only has memory up to 
that number. Since Disk Basic 
uses the top 64 bytes of 
memory for initialization, any 
code in the top 64 bytes of high 
memory will be clobbered. By 
changing the top of memory 
pointer to an address lower 
than any of your routines, you 
can avoid this problem. You 
can answer the memory size 
question with Enter and both 
Basic and TRSDOS will leave 
this high memory alone. 

Line 160 jumps back to 
TRSDOS where it turns on the 
cursor and calls the keyboard 
driver. Auto-key intercepts and 
passes back the string in lines 
170-270. Line 280 terminates 
Auto-key's control. 

With some further effort, you 
can construct more complex 
programs during run time, us- 
ing Auto-key. ■ 
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NOBODY KNOWS MORE ABOUT 

ADDING MEGABYTES TO YOUR 

TRS-80 MODEL II* THAN 

AMERICAN SMALL BUSINESS 

COMPUTERS 



THE CAMEO CONNECTION 

The Cameo 10 Million Cha- 
racter Disk Drive Subsystem 
(pictured in foreground) Is A 
5 Megabyte Fixed, 5 Mega- 
byte Removable Cartridge- 
Type Disk Drive. Advan- 
tages To This Unit Are Ease 
of Backup For Data and Pro- 
gram Files and Low Cost. By 
Attaching A Multiplexor Unit 
Several Model II "s Can Be 
Attached To The Cameo Disk 
Drive. For Further Pricing, 
Availability, and Operating 
Systems Options, Call or 
Write to American Small 
Business Computers and ask 
for the CAMEO CONNEC- 
TION. 




THE CORVUS CONNECTION 

The Corvus Disk Drive Sub- 
system (center of picture) Is 
Available in S, 10, and 20 
Million Character Capacities. 
The Corvus System Is The 
Ultimate In The Sealed 
"Winchester, All-Fixed'' 
Type Drive. The Corvus Is 
Designed To Operate In The 
Harshest Environments Such 
As Factories, Oil Rigs, Etc. 
Backup Of Data Is Accom 
plished Via Optional MIR 
ROR Backup Device Where- 
by Data Is Written Onto A 
Standard Video Tape Record 
er. A Greet Number of 
Model II 's May Be Attached 
To The Corvus Via An 
Optional CONSTELLATION 
Multiplexor. For Further 
Pricing, Availability, and 
Operating Systems, Call Or 
Write to American Small 
Business Computers and Ask 
for the CORVUS CONNEC- 
TION. 



THE AMERICAN SMALL BUSINESS COMPUTERS MINI-WINCHESTER SPECIAL 

The M IN 1-5 (being held by Corporate President Robert Webster) Is American Small Business Computer's Very Own 
Disk Subsystem. The MINI-5 Offers Approximately 5 Million Cherecters of Information Storage end is Based On the 
Famous Seagate Technology ST-506 Micro Winchester Drive. Now You Cen Own Statt-Of-The-Art Technology At An 
Affordable Price - Only $3500 - Which Includes Drive, Controller Electronics, Power Supply, Cabinet, Cables, Docu- 
mentation and Operating System Software. 



DEALER INQUIRIES INVITED 
AMERICAN SMALL BUSINESS COMPUTERS ■■ 

•TMTANDYCORPORATION 

118 SOUTH MILL ST. PRYOR, OK. 74561 918-825-4844 



AMERICAN 



118 SO. MILL ST • PRYOR f OK 74561 
PHONE (918) 825-4844 



ALL LISTED PRICES ARE CASH DISCOUNTED WE ACCEPT MC, VISA. AND COD (REQUIRES CERTIFIEO CHECK. CASHIER'S CHECK OR 
CASH) FOR CHARGE ORDERS. PLEASE ADD 3% FOR COD SERVICE. PLEASE ADD 5% SHIPPING AND HANDLING ARE FREE ON ALL 
ORDERS. OKLAHOMA RESIDENTS PLEASE ADD4% SALES TAX. 

72k EXPANSION INTERFACES 

SPECIAL OFFERING 

Due to a very special purchase, American 
Business Computers is able to offer a limited 
number of Radio Shack* Expansion Inter 
faces at the lowest price ever. 



American Business Computers guarantees 
Expansion Interfaces to be Brand New — 
with original documentation and in perfect 
working condition 



J59 



95 




NEW PRODUCT FOR THE COLOR COMPUTER. .."PACKET MAN" BY GREG ZUMWALT 

In this exciting new adventure for the Color Computer", you attempt to "eat" the dots and escape from the three 
little munchkins who are always chasing you. This game was written in machine code to take full advantage of the 

color computer ' s capabilities Only $25 00 

MOON LANDER FOR THE COLOR COMPUTER By Greg Zumwalt Only $14 95 „mo 



OTHER STUFF & ODDS - AND - ENDS 



PAPER FOR YOUR PRINTER ^m 
9 1/2 x 11 — Tear-off perforations 
and you have an 8 1/2 x 11 "cut sheet". 
3200 sheets of 15 pound paper $39.95 



CONTINUOUS ENVELOPES 
Fan Fold Envelopes with tractor per- 
forations down either side. Envelope 
size with perfs: 4 1/2x11" 

PRICE 59.95 per 1000 

Price includes shipping 

m Continental U.S. ., 



* NOTICE • 

BY THE TIME YOU 

READ THIS, WE 
SHOULD HAVE OUR 

DIRT CHEAP 

MINI DISK DRIVES 

AVAILABLE FOR THE 

MOD III - 

PRICE: Less than 

$599.95 



DISGUSTING!! 



That's what we think 
about the price of 
most good "Letter- 
Quality" Printers. Our 
Starwriter is Bidirec- 
tional and out "specs" 
the others — hands 
down 

$1450°° 





\> 






r 



ATTENTION: 

CORVUS OWNERS 



American Business Computers NOW 
offers a fully compatible TRSDOS" 
operating system Our System, called 
CORDOS, runs all 10 MB, Revision B 
Corvus drives. The Program in this 
package contains a Master Program 
which will convert a user's operating 
system disk (Version 2.0) to an en 
hanced system capable of the fol- 
lowing: 

— Completely transparent use of 
the Corvus Hand Disk Drive 

— Complete compatibility with 
existing programs 

— All utilities (except Format and 
Backup, which should not be 
used) will operate normally 

Price $300.00 with manual 

-DEALER INQUIRIES INVITED- 

CORDOS Author-Andy Fredenckson 

"TM of Tandy Corporation 

*TM of Corvus Systems 

• 525 
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SMALL BUSINESS 



COMPUTERS 



master charge 



118 SO. MILL ST. • PRYOR. OK 74761 • (918) 829-4844 



■TM TANDY CORP. 



SUPERPRINTER 

THE EPSON 

MX-80 




This is the new Epson MX-80 dol matrix printer. II does just about everything you could 
ask a printer to do-quickly, quietly, reliably. In (act. (or OEM installations, the MX-80 may 
be the single best, all-around printer you can buy. But that ' s not the best reason to buy it. 

The MX-80 prints bidirectionally at 80 CPS In a user-defined choice of 40. 80, 66 or 132 
columns And if that's not fast enough, its logical seeking function minimizes print head 
travel lime The MX-80 prints 96 ASCII. 64 graphic and eight international characters with a 
lack-sharp 9x9 matrix For a long time Epson printers are known for reliability and the 
MX-80 is no exception But that s not the best reason to buy it. either 

The print head has a life expectancy of up to 100 x 10 characters , and when it wears out. 
just throw it away A new one costs less than $30 and the only tool you need to change it is 
attached to the end of your arm. The MX-80 is compact, weighs only 12 lbs., and the whole 
unit, including the two stepper motors controlling carriage and paper feeding functions, is 
precisely controlled by an internal microprocessor But even that isn't why you should 
specify the MX-80 

The best reason is this because Epson 
makes more printers than anyone else in IF YOU BUY AN MX-80 AND DON'T 
the world, we can afford to sell each one CHECK OUR PRICE — YOU PAID TOO 
for a little less MUCH! 

AW...WHAT THE HECK 

RAM Memory Chips for the TRS-80 



it is the policy of American 
Business Computers to offer 
merchandise at the lowest 
price possible. Several 
months back, we began sell- 
ing RAM Memory Chips for 
the TRS-80 for J45.00 
per set Someone else sold 
chips for $44 00 We sold 
them for $38 00 They sold 
them for $37 95 So we say 
-AW WHAT THE HECK'" 
Let s see the other guys 
beat this price. 



$19 



95 



PER 16K SET 



These chips are brand new 
"4116 s" These 200 nano- 
second chips are fully 
compatible with all TRS-80 
products. Instructions for 
insertion are included; how- 
ever, the dip shunts required 
for converting a 4K Model I 
to a 16K Model I are not 
included at ihis low price 



OKIDATA MICROLINE 80 
PRINTER - $J99 00 

The Microime is built on a rugged cast alumi- 
num base to withstand the rigors of continuous 
business use It is driven by two motors and 
will run all day with no duty cycle limitations. 
M icroline primers use a dense 9x7 dot pattern 
to produce crisp dean copies, first copy to last 
The seven pint in the head are "fired" using 
energy stored In tension members This tech- 
nology permiis the use of short, low mass pins 
made with an extremely hard alloy The head 
produces less heat, thereby extending its life. .-528 

* CHECK IT OUT! • 

EPSON MX-80FT 

That's right - MX-80FT. 
The FT on the end means Friction 
and Tractor The Fantastic MX-80 
Printer is now available in a version 
which will accept letterhead-type 
paper AND tractor type paper. Call 
or write for our (as always) un- 
believable low price 
Also available MX-70 and MX 100 ^&w 

• RETROFIT YOUR* 
MX-80 TO AN MX-80FT 

ADD A PLATEN TO YOUR MX-80 
TO ALLOW USE OF LETTER- 
HEADS OR ROLL PAPER. $69.95^561 



DIRT CHEAP ...$27$ 

But Highly Reliable Yes, our Mini Disk Drives have an estimated 
8000 Power-On Hours Mean Time Between Failure (That's 8 
Hours A Day, 5 Days A Week, for 3.85 YEARS). Our drives also 
feature a lead screw head positioner - not a cheap band type 
positioner If you purchase a Mini Disk Drive with a band-type 
positioner, you are buying an INFERIOR PRODUCT! If you have 
any doubts about our drives, our ONE YEAR Warranty should 
convince you that we know this unit is the best drive at the best 
price on the American market. This is one example where you can 
pay less and get more. 



•TRS-S0 MODEL I VERSION 
Complete with Power Supply 




SION JW 

ft Cabinet J7 

4 



■See List ol Advertisers on page 386 
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FINALLY! 

A Tape-Based 

EDITOR-ASSEMBLER 

For The Model III 

CONCINNA I'OR is used in conjunction 
with Radio Shack's Editor/ Assembler 
12 -• it provides compatibility with the 
Mode! III. and also provides numerous 
enhancements. Most important is the 
ability to dump assembled programs into 
memory for testing, and being able to re- 
turn to CONCI.W'ATOR without many 
saves and loads. Will verifv source 
dumps; supports 1500 baud; displays 
number of bytes left in buffer, and per- 
mits display and modification of memory 
location content-.. And more! You've 
been waiting, and now it's here: Conci- 
nnator. a sophisticated editor/assembler 
for the Model III. Will also enhance 1.2 
for the Model I TRS-80! 119.95 on tape. 

Ask About Other 
MODEL III SOFTWARE 



In Ordrr film imulm 
Send SI9.9S with S2 to rover 

]i.n k ic-' t & po^la^r tu T W 
addrrv. |«fo« Spr.il v I or 
III SI Ml W|H !••■ a.l.lr.l lor 

Mill. 1', aAMiorhupeer- 

.I.T. ln.|..ir.- almul olhrt 

M.xl.1 III Mifimrrrurrcntli 

.n .iibl>lr' 



TAS, I8(K» A.ia. I.unsinn. Ml MJ9I0 

Ph. (317) iSl-AMR or 485*0344 

„ ^138 

, .>m,.«.:m<.^>c>c»t>c3m.x.?m^ca 




Professional sotlw.ir 



TRS-80® MODEL II 



BASIC CROSS REFERENCE 



NOW AVMI MM.I ' 



• FINDWHtKt NAMTSARc UMDTASI 1 

• CAN YOU DUE It THAT UNI > UND OUT 1 

• DO YOU HAVt Dr. AD CODING' 

• WANT A NO PROGRAM LISTING WITH 
DAU S, TIME IN HFADISC 



• SAY I: HOURS' 

• PARALLEL Sl-RIAl PRINIIRS 
» SI VIRAL OPTIONS 

»b8 IPI VARIAHll 
UNt WIDTH & PACE DEPTH 



$59.99 



♦POSTAGE & 
HANDLING 



IXX UMINTAIION ONLY J10 00 
DTIXJC TIHLI ON PURCHASE 



DISK SORT 

• Ml NL DRIVEN € 

• RANDOM HlfS • 

• CHAINS TO SYSTEM 
OR BASIC PROGRAMS 



• YOLIX)Nl HAVt TO Bt A PROGRAMMER lOLSI IT' 
tASYIOUSt »IASY TO INSERT INTO 
EAST' IOB STREAM IOR $69.99 



• SPECS SAVED 

ON DISK 



NON-SI OP RUNNINl, 1 



♦ POSTAGE & 
HANDLING 



BASIC COMPILER 



[XX UMINTATION ONl> *1l)t»l 
DEDUCTIBLE ON PURl HAS! 



• WRITTEN BY MKROSOU 



UASY TO USE 
I AUGMINTID WITH OUR 
IXXL'MlNTATiON 



$350.00 



+ POSTAGE & 
HANDLING 



• TRSDOS' BASIC COMPATIBLE' 

• TASTER THAN BASIC BY UP TO 
30 TIMES 

IRV80* & TRSDOS* ARE REGISTERED GOOD-LYDDON DATA SYSTEMS ^218 
TRADE MARKS OT TANDY CORP 5486 RIVERSIDE DR., CHINO. CA. 91710 MASTER CHARGE or VISA accepted. 




Modal 488-80C For Model 3 Operation 



IEEE-488 TO TRS-80* INTERFACE 
Everything needed to add powerful 
BASIC GPIB-488 controller capability to 
TRS-80 Model 1 or 3, Level 2 or DOS with 
a minimum of 16K. 

488-80B or 488-80C $325. 

+ shipping, insurance S tax 

WHEN ORDERING SPECIFY DISK OR TAPE 

SCIENTIFIC ENGINEERING LABORATORIES ^291 
11 Neil Drive • Old Bethpage, NY 11804 
Telephone: (516) 694-3205 

'Trademark of Tandy Corp. 

There is no affiliation between Scientific Engineering 

Laboratories and Tandy Corp. or Radio Shack. 



WE HAVE A PROBLEM 
WITH OCIR SOFTWARE 

The problem is that it is underpriced! Potential buyers don't believe the 
accounting software has much capability at $450, so they buy software with less 
capability at $1000. 



What do the ones who buy it say? 

"I have become more and more convinced ... it 
is one of the best bargains available . . ." 

80 REVIEW, 80 MICROCOMPUTING. June 81. 

"The single data diskette with common files is 
really convenient . . ." 
Randy Bemis , Bemis Construction, San Diego. 

"I recommend MICROED software for my com- 
puter customers." Sandor Zoboki President) 

ZOBEX Computer Systems. 



THE BUSINESS SOFTWARE NOW AVAILABLE 

GENERAL ACCOUNTING PACKAGE $450.00 

G/L, A'R, A/'P 

INVENTORY I 



$250.00 
$250.00 

emory two Oisk dn.es 132 column 



PAYROLL 

System requirements CP M. 64K 
printer 

TRS-80, Model II SOFTWARE NOW AVAILABLE 

1 .4 CP/M Special $90.00 

Single or double density auto-select 

SMARTERM $50.00 

Versatile terminal program, requires CP M 

CP M.T.M of Digital Research TRS-80 TM of Tandy Corp 



We are dedicated to selling quality business software at reasonable prices. 



Dealers, we have a deal for you. 

Write or Call 



MICROED 



3910 BANDINI STREET, SAN DIEGO, CALIFORNIA 92103 • (714) 299-1125 
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TECHNIQUE 



When your program crashes you can still save what's in memory. 



Debug With GOTO 



Roger L. Pape 
7545 Marble Drive 
Liverpool, NY 13088 



You've just spent hours entering data in- 
to a program and then it "bombs out." 
Is there a way to continue without losing all 
your data? How about making changes in 
the source statements of the program and 
continuing without losing the data? Or 
would you like to run one program and have 
it load another program which uses values 
from the first? 

Problem and Its Solution 

Preserving a lot of data already in memo- 
ry became a real problem for me one even- 
ing. After several hours entering a large 
number of long character strings, I was con- 
fronted with an OM Error message as the 
program terminated. Typing RUN would 
wipe all the data out! I observed that the 
point after the run command performs its 
initialization is equivalent to the GOTO 
statement processing. One can type GOTO 
nn (where nn is any existing line number) 
and reenter the program at the statement 
without losing the variables already stored 
in memory. A simple GOTO the cassette 
output section of the program and my data 
was saved. Reading the Level II manual 
later, under the description of the GOTO 



statement (section 4) was the solution I had 
discovered. 

A GOTO in the command mode is a 
perfectly valid way of starting or reentering 
a program. Any variables created in the 
previous execution or those defined by 
assignment (Let) statements in the com- 
mand mode before starling are preserved. 
The GOTO can be directed to any valid line 
number in the program with several restric- 
tions. First, the Clear statement will clear 
the variable storage area (actually only re- 
setting the storage pointers to the begin- 
ning of the storage area). If the Clear state- 
ment is executed when the program is re-en- 
tered, previously generated values are lost. 
Secondly, a variable cannot be redimen- 
sioned. Once an array has been created and 
stored, do not reenter at or before a Dimen- 
sion statement containing that variable 
name. 

Debugging with GOTO 

GOTO can be used very effectively when 
debugging programs. Consider the follow- 
ing situation where a statement such as: 

200A = X/Y 

is somewhere in the middle of a program 
and the value of Y is undefined (or zero for 
any other reason). The program will stop at 
this point with a /0 (division by zero) mes- 
sage. To correct this problem, one can enter 
an appropriate value for Y and continue by 
typing: 

y > 

GOTO 200 

(both in the command mode) 



and check the rest of the program. Fre- 
quently this can eliminate the need to 



reenter a long series of input that would 
otherwise be required to run the program 
from scratch. 

Level I vs. Level II 

After a program is stopped, the values of 
the variables used during execution remain 
in memory. Likewise, any variables defined 
in the command mode will modify the 
values previously stored or will be added to 
the storage area if the variable had not been 
encountered earlier. The only reason the 
variables cannot be accessed when the run 
command is reissued in a Level II system is 
because the pointers which define the 
storage areas are reset. 

The Level I system software does not 
reset the variable storage pointers when the 
Run command is processed. Therefore, pre- 
set the value of any variable before the run 
command is typed and the values will be 
used in the program. But the Level II soft- 
ware resets the variable storage pointers 
when the run command is processed. So 
any predefined variables will be lost when a 
Run is issued. The preset variables in a 
Level II system, type the variable assign- 
ments statement in the command mode (as 
in Level I), but then type GOTO nn (where nn 
is a statement number at the beginning of 
the program) in order to start execution. 
Avoid any Clear statement in the program. If 
added string space is required, type the ap- 
propriate Clear statement before presetting 
the variables. (The amount of string space 
reserved by a Clear statement is remem- 
bered from one program to the next. It only 
changes when another Clear statement is 
executed or the memory size is set. After 
running a program which uses large 
amounts of string space, it's a good idea to 
type Clear to free some of the memory.) 

Unfortunately, continuing execution is 
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"Once you are able to chain, you are free to edit a 
program and restart it without losing variables." 



not as simple if the source program is 
changed. Whenever another program is 
loaded or when statements are inserted, 
deleted, or edited in a program that is 
already in memory, the variable storage 
pointers are reset. You could include a 
cassette load statement at the end of one 
program to load a second program, but vari- 
ables from the first program are not acces- 
sible in the second program (unless written 
to some storage medium). Likewise, if any 
changes are made to the program state- 
ments, you cannot normally continue exe- 
cution at some intermediate point (as in the 
division by zero example). 

With a few software changes you can 
preserve variables in memory for use later. 
Since the procedures required to save the 
variables while editing the source state- 
ments are essentially the same as those 
needed to transfer values from one program 
to another when chaining, it is relatively ef- 
ficient to provide both capabilities in the 
same pitch. Let's first review the memory 
allocation in a Level II system. 

Memory Map 

The way variables are stored in a Level II 
TRS-80 is illustrated in Fig. 1. This memory 
map shows the relative positions of the vari- 
ous storage areas in the user's memory as a 
program is loaded and executed. The values 
in parentheses on the left of the map are the 
locations (in hexadecimal) of the word pairs 
used to store the 16-bit addresses of the 
current starting point for each of the speci- 
fied areas. The first location contains the 
lower byte of the pointer, while the next 
location contains the upper byte. 

Variables are stored immediately after 
the Basic source statements. This area is 
subdivided into two sections. The first con- 
tains simple non-dimensional variables, 
while the second contains all the arrays 
(dimensioned variables). The pointer stored 
at locations 40F9/AH is the start address 
for the simple variables. The pointer stored 
at locations 40FB/CH is the start address 
for the array variables. Finally, the pointer 
stored at 40FD/EH is the start of the free 
space. The first of these three pointers is 
set after the program source statements 
have been entered and remain the same 
while the program is running. But the latter 
two pointers will change value during pro- 
gram execution as new variable names are 
encountered and their values are stored. 

The Basic interpreter stores the variables 
sequentially in the order that they are en- 
countered as a program is run. What gets 
stored is a combination of the variable type, 
name and value. 

Each simple variable consists of a vari- 
able type flag (which is equivalent to the 
number of bytes needed to store the value), 



two ASCII characters representing the vari- 
able name (the second character of the 
name, if it is used, or else a null is stored 
first), and the current value of the variable. 

Array storage also includes overall 
length and dimension information. The 
name is followed by a two-byte value repre- 
senting the remaining bytes for the array, 
then one byte for the number of dimensions 
and two bytes for each dimension to store 
its size (the last dimension is stored first). 
As a variable name in a program statement 
is interpreted, the storage area is scanned 
from the beginning to see whether this 
name and corresponding type are already 
stored in the list. If not, the variable is added 
at the end of the appropriate area. Array 
storage space is created when a dimension 
statement is interpreted. That is, the variable 
name is entered in the list and the neces- 
sary space reserved with the contents In- 
itialized to zero. If a new array name is en- 
countered in any other statement (without 
previously being dimensioned), it is auto- 
matically dimensioned with an upper limit 
of 10. 

Because simple variables and arrays are 
stored in separate areas, one can use an 
identical name for both. In addition, if the 
explicit type flags are used with the name, 



separate variables are created since both 
the name and type must match. That is, 
X% , x#, X!, and XS are all distinct variables. 
Therefore, it is possible to have a number of 
different variables with the same one or 
two-character name. The Basic interpreter 
keeps them straight because it can deter- 
mine whether the variable is dimensioned 
from the use of subscripts and also deter- 
mine the variable type, based on the default 
type corresponding to the first letter or from 
an explicit type flag. All these conditions 
must match an entry in memory or else it is 
assumed to be a new variable and a new en- 
try is created. 

Scanning the variable list can involve 
considerable processing time. Variables 
are not stored in any prescribed order. In- 
tegers, single and double-precision floating 
point values, and string variable param- 
eters are intermixed. So the search for a 
variable involves beginning at the start of 
the storage area and examining each vari- 
able name and type until a match is ob- 
tained or the end of the area is reached. In 
the case of simple variables, the variable 
type flag conveniently provides the number 
of bytes to skip over for the start of the next 
variable. 

In the case of arrays, its length, stored 
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"With a few software changes you can 
preserve variables in memory for use later." 



immediately after the name, functions the 
same way. To save time during the scan- 
ning process, this value is computed once 
when the array storage space is first 
created. The number of bytes that follow is 
given by the byte length for the variable type 
times the product of the dimension, plus 
the number of bytes needed to store the 
dimension information. Then, when arrays 
are scanned and the variable name or type 
does not match, this value is read and quick- 
ly locates the start of the next array. Since 
the storage area must be scanned each time 
a variable is used, a time-saving tip is to 
declare the most frequently used variables 
early in the program so they are stored near 
the beginning of the list. Potentially, this 
could save considerable execution time in 
lengthy programs with large amounts of 
repetitive calculations. 

Because the variable storage area 
immediately follows the program state- 
ments, increasing the program length, 
either by editing or loading a new program, 
will overwrite the old variable storage area. 
Any time a program is loaded or an existing 
program is edited, as well as when the Run 
command is issued, the pointers which de- 
fine the extent of the variable storage sec- 
tions are all initialized to the location after 
the end of the program code. This is inter- 
preted as an empty storage space. 

One other point that will effect your pro- 
gram is the way string variables are stored. 
The string information stored in a variable 
storage block consists of the type flag (3), 
the number of characters in each string and 
the start address for the actual string. This 
information is intermixed with the other 
variable types in one of the two variable 
storage areas, depending on whether it is a 
single string or an array of strings. If a string 



variable is entered via an input statement or 
is generated by a string function or by the 
concatenation of several strings, the actual 
string of ASCII characters is stored in an 
area of upper memory reserved for strings. 
But if the complete string is defined in an 
assignment statement of the program, 
such as: 

500 A$ = "THIS IS A STRING" 

or in a data statement, the string is left in 
the program area. This approach conserves 
storage space, but results in strings being 
scattered throughout memory. If strings 
stored in one program are to be used by 
another chained program, it is necessary to 
extract strings from the program area and 
save them in the string storage space. 

The Chain Command 

So, these are the required steps for chain- 
ing in Level II: 

• Store all variables, including embedded 
strings, in the upper part of memory and 
protect them. 

• Load the new program. 

• Move the saved variables back down im- 
mediately following the program 
statements. 

• Start the new program without resetting 
the variable storage pointers. 

The first three steps in this process are il- 
lustrated in Fig. 2. Relocating the strings 
that are embedded in the program state- 
ments can be handled quite easily with an 
existing system routine in ROM. As these 
strings are moved, it may be necessary to 
expand the string storage area, so the 
string relocation should be performed 
before the variable block is moved. 

Once you are able to chain, you are free 



to edit a program and restart it without los- 
ing variables. Before making any changes 
to the program statements, perform step 1 
above. The editing or statement additions/ 
deletions would be made (in place of step 2) 
using the normal system commands. After 
all changes have been entered, steps 3 and 
4 are performed to repack the variables at 
the end of the corrected program and re- 
start the program at the desired point. 

Summary 

Chaining is useful in a variety of situa- 
tions. For example, you may have a pro- 
gram requiring the results of a previously 
run program. Rather than modify an exist- 
ing program, it may be more convenient to 
write a separate program called by a Chain 
command to preserve the results of the first 
program. Breaking a large program into sev- 
eral smaller routines (which are chained) is 
almost equivalent to having more memory. 

Another memory saving application in- 
volves programs with extensive internal 
data storage. Once data statements are 
read, they are essentially wasted space. An 
alternate approach is to have a separate 
preliminary program consisting of read and 
data statements to preset the variables and 
then chain the main program. 

The proposed chaining software also lets 
you resume your program after editing with 
little memory loss. 

The concluding portion of this article will 
describe the actual Chain command for 
Level II, including the complete assembly 
code. It is completely relocatable and auto- 
matically installs itself immediately below 
any other patches previously loaded, such 
as key debounce, lowercase, or whatever 
other fixes you may already have in your 
system. ■ 
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REVIEW 



At home on the Mod I and III. 



DOSPLUS 3.3 



DOS PLUS 3.3 

Microsystems Software, Inc. 
Hollywood, FL 
$99.95 

James LaSalle 
M.R. 2 Bock Lane 
Baden, PA 15005 



At this writing there is only one serious 
double-density DOS available: DOS- 
PLUS 3.3. It not only reads single density 
TRSDOS, LDOS and NEWDOS/80 diskettes, 
but reads standard Model III TRSDOS disk- 
ettes; and the Model 1 1 1 DOSPLUS reads and 
writes diskettes that are compatible with 
the Model I. 

However, specialized disk I/O files and 
hardware-dependent features cannot be 
shuttled between the machines. The little 
gem that lets the Model I read Model III 
TRSDOS diskettes is the Convert/CMD util- 
ity. Convert :1 :0 makes the required adjust- 
ments to allow access to Model III disk- 
ettes. 

DOSPLUS 3.3 allows mixing of various 
track drives. The Format/CMD utility for- 
mats disks for the desired track count and 
storage mode (double or single density). 
Once this is done, DOSPLUS 3.3 takes care 
of all housekeeping. LDOS/VTOS handles 
the different track drive problem in the same 
manner. If specifying the track on each for- 
mat is disturbing to you, Config will allow 
you to preselect the track count and step- 
ping rate, operate with a clock speed modi- 
fication installed, configure a drive as dou- 
ble sided, (you can only configure the sys- 
tem drive to a certain track count) and if 
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your printer can handle them, send unal- 
tered graphics codes to the printer. 

Transfer Your Library 

You may want to transfer your program 
library from single to double-density for- 
mat. Unlike Percom's DBLDOS that re- 
quires you to manually copy all filespecs, 
DOSPLUS does this with the Transfer/CMD 
utility. DOSPLUS reacts to the disk format 
(double or single density) and transfers files 
from disk to disk in the appropriate mode. 

First format the destination disk in dou- 
ble density and execute Transfer :s :d (:s 
equals source drive, :d equals destination 
drive). DOSPLUS moves all visible files with 
no user intervention. 

Directory 

LIB gives you a look at a respectable 
library of DOS commands. Many of the fa- 
miliar ones have been extended. DIR typi- 
fies the library enhancements. With most 
DOSes (LDOS excepted) the directory lists 
only the visible files on a disk; however, with 
DOSPLUS 3.3 the information is much more 
thorough. 

The first line of the directory lists the 
drive number, disk name and date, version 
of DOSPLUS and density mode. The files 
are then described with various param- 
eters. The ATTRB column first tells if the file 
is visible, invisible or deleted. The asterisks 
denote a user file. An S in the second AT- 
TRB column would denote a system file. 
Next a U, A or B tells if the update, access or 
both passwords are set. The last ATTRB 
column tells the protection level set. 

The directory also indicates the number 
of records on file, number of sectors, 
number of granules used, and if the file is 
written on consecutive tracks. The last di- 
rectory line tells how much storage space 
remains on the disk. 

A double-density disk filled with small 
utility programs easily fills several video 
screens in this format. This is not incon- 



venient because the system pauses after 
the video is full and waits for user instruc- 
tions to proceed. 

Other Commands 

Free has been altered to graphically dis- 
play the tracks currently being used on a 
specified disk instead of the amount of free 
storage left. This is a quick way to see how 
many tracks on a disk have been formatted 
where the directory is located and which 
tracks have been locked out. 

Date can be set at power-up and is the de- 
fault value for backups and format func- 
tions. DOSPLUS retains the date unless the 
system is rebooted. Copy has been stream- 
lined to copy filenames :d. This copies a file 
from drive :s to drive :d. Single-drive users 
are not forgotten. A special utility, Copy!/ 
CMD, allows single-drive copying of all file 
types. Create preallocates disk space for a 
specified file. Debug can now be entered 
with a shift Break. Device displays current 
I/O devices and their vector addresses. 

DOSPLUS 3.3 for TRS-80 Model I current- 
ly supports only three devices: keyboard, 
video monitor and printer. The RS232 is not 
defined at this time. Not implemented in 
this version of DOSPLUS are Link (I really 
miss this one), Set, Reset and the ability to 
route to a disk file. 

Build-Do Commands 

Chaining is available with the Build-Do 
commands. Build allows the user to create 
a sequential set of tasks for DOSPLUS to 
perform. A Do file may be created with Build 
to get a directory, display the Free map, 
load a printer driver, set Basic memory size, 
and jump to Basic. Build is completely self- 
prompting. A Pause command may be in- 
serted in the Build file to allow for user inter- 
vention. Pause does not allow for user entry 
of commands. 

Do checks high memory (4049H-404AH) 
and reserves about 300 bytes at the top of 
memory for itself and a small buffer. After 



"There is only 

one serious double-density DOS 

available: DOSPLUS 3.3." 



Do executes, this memory space is returned 
to the system. 

A problem arises when a high memory 
program (printer driver, machine code sort, 
etc.) occupies the same memory area that 
Do usurps. Trying to Build a file that first 
loads the GSF (Racet computes) sort mod- 
ule into high memory is disastrous. When 
Do loads GSF, it obliterates its buffer and 
all Build instructions are lost. 

The Forms command controls printer 
page length, the number of printed lines per 
page, the number of characters per line, and 
can output to a serial printer. It can also 
generate an automatic line feed on carriage 
return and perform a top-of-form. 

A hard (printer generated) top-of-form is 
not implemented on my Okidata Microline 
80 printer. Having to include paging mod- 
ules in my programs has been a minor in- 
convenience in the past, but DOSPLUS 3.3 
eliminates the need for extra page format- 
ting code. On power-up the Forms param- 
eters are set to standard values. To view the 
current status of the Forms driver type: 
Forms (enter). This also eliminates the need 
for any high memory printer routines. Since 
Forms is a library function these LPRINT/ 
LLIST parameters are available for all print- 
er output— even Basic listings! 

The only minor irritant is that the TRS-80 
Model I LPRINT line counter (found at 16425 
decimal) is decremented with each printer 
code. In the Okidata Microline 80 printer ex- 
panded print is available by typing LPRINT 
CHR$(31); a return to normal print is LPRINT 
CHR$<30). The Model I and the Forms driver 
count each of these codes as a line printed 
and increment the LPRINT line counter. This 
could lead to a problem with printed output 
creeping down the page. 

When I do not want Forms control I dis- 
able it by typing: Forms (L = 66, P = 66). This 
sets the page length and number of lines 
printed per page equal to 66. If I want a Basic 
program listing to accurately paged, I in- 
itialize the LPRINT counter by typing: 
LPRINT CHR$(1 2). 

PROT has been expanded to allow the 
changing of a disk's name as well as the 
usual password manipulations. 

Utility Functions 

There are about a dozen programs listed 
in the utilities section of the DOSPLUS 3.3 
manual— all of them extend the versatility 
of the system. By being discrete about 
which utility functions become programs, 
relatively small system disks can be cre- 
ated. This provides the single-disk user with 



maximum storage space per disk. 

CLRFILE zeroes a file but does not reallo- 
cate its storage area. This could be useful 
when using a disk for temporary files. CLR- 
FILE has the same overall effect as the li- 
brary command Create. 

Copyl is a necessity for single-drive 
users. It permits single-drive disks to transfer 
all types of files. Both LDOS and NEWDOS/ 
80 have this feature, but it is closely tied to 
the system. Copyl will probably be little 
used by multiple-drive users. 

Crunch is little changed from DOSPLUS 
3.1. It is a utility to eliminate Remarks and 
extra spaces in Basic programs. 

DiskZap has been amended to read sin- 
gle or double-density disks. Its capabilities 
are similar to Apparat's SuperZap. In its cur- 
rent form it does not generate hash codes 
or passwords. Conspicuous by its absence 
is SuperZap's DFS function. This permits 
examining or modifying by file name rather 
than by sector. Micro-Systems Software 
chose to provide this ability in a stand-alone 
machine language DiskDump program. 
Paging is slightly improved over SuperZap. 
Taken together these utilities should keep 
most disk zappers happy. Documentation is 
adequate for both utilities. 

Purge allows you to rid a large number of 
files. Purge :0 (I) presents the user with a 
menu of visible and invisible files to be 
marked for deletion. Passwords are trans- 
parent to Purge so all files may be killed. 
With a handy program of this type it is easy 
to become over-zealous and kill the wrong 
file. The Restore utility, fortunately, resur- 
rects the kill file as long as it has not been 
overwritten by another program or CLRFILE 
has not been used on it. 

Map shows what tracks and sectors each 
file occupies. The value of this utility 
becomes evident when two disk systems of 
different track counts are used. 

Spooler 

Micro-Systems also provide an adequate 
spooler with DOSPLUS 3.3. The spooler 
uses an operator-defined memory buffer 
and an optional disk file for printer output. 
Spooling becomes a semi-background task 
allowing the host program disk I/O. This is 
accomplished by halting printer operation 
while the disk drives are being accessed. If 
the operator was too conservative in the 
allocation of spooling memory space, the 
spooler will temporarily seize CPU control 
until the spooler buffer is cleared of its 
backlog. Other than this, the operator is 
barely aware that the spooler is active. You 
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DO NOT TAKE UNNECESSARY RISKS 
WITH YOUR SOFTWARE. 

If your diskette software library is not com- 
pletely backed up, or, if you are wasting disk- 
ettes by making backup copies of all your 
diskettes, your problem is solved! Using 
DUMPLOAD, the total contents of your disk- 
ettes can be safely dumped to tape. The hi- 
speed tape option allows six 3b or 40 track 
diskettes to fit on one C60 casette 

• TRS-80 ModOl 1 16K-48K 

• TRSOOSor NEWDOS80 Compatible 

• May be used to back-up TRSDOS. VTOS 
4.0. NEWDOS. MICRODOS. or data 
disks (Single Density) 

SI 6 95 or-. Cassette $19 95 on Diskette 

Plus $1.00 handling (Indiana Res add 4% tax) 

TOLL FREE 24 HR. ORDERING SERVICE 

1 800 525-9391 (Ext. 5091 (Except Colo.) 

1 800-332-9259 (Ext 509) (Colo Residents) 

or Mail Check or Money Order To 
COMPLETE COMPUTER SERVICES 
8188 HEATHER DRIVE 
NEWBURGH. INDIANA 47630 ^496 
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ACCOUNTS RECEIVABLE 
& SALES ANALYSIS 

* 1300 Customers 

* 1300 Sales/Payments 

* 99 Departments 

* Alphabetical Listings 

* Selective Late Charges 

* 30-60-90 Day Aging 

* Mailing Labels 

* Sales Analysis by Dept. 

* Rapid Entry & Operation 
REQUIRES 48K MOD III 

2 DRIVES 

$150.00 ^40s 

JERRY MEDLIN & ASSOCIATES 
310 SOUTH JEFFERSON ST. 
NAPA. CALIFORNIA 94559 
(707) 255-4475 
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50C 
TRS-80' 

Cassette 
Duplication 

1000 Qty. Minimum 

Guaranteed to Load 

MICROSETTE CO. 

475 Ellis St., Mt. View, CA 
94043 *m (415)962-0220 

• Trad^-nark o( Tandy Corp 



■See Lis! or Advertisers on page 386 
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- - - LIICOS - - - 

CASSETTE OPERATING SYSTEM 
FOR RS MOOEL I LEVEL II USERS 



THE LOWEST ALTERNATIVE TO DISK 
FEATURES: 

■ UP TO 9 TIMES FASTER THRUPUT 

■ LOGICAL RECORD PROCESSING 

■ NEW LIICOS STATEMENTS 

OPEN - CLOSE - EOF - DEFM 

■ INCREASED TAPE CAPACITY 

UP TO 700.000 BYTES/60 MIN 

■ OPTIONAL 2000 BAUD TAPE ROUTINES 
LIICOS $34 93 COS-2000 BAUD $44 OS 
ADD 2 OO SAM DOCUMENTATION $8 85 

(0041 478-0709 

• 390 

CANTY & ASSOCIATES 

80O0 BELUNGTON. PENSACOLA FL 32504 



TRS80 SOFTWARE 

Master Disk Ind»x (HDD: $12/cassette. 

$16 '5' 4" disk Creates and maintains a 
master file of disk directones updated by 
automatically reading each disk's directory 
MDI records may be selectively displayed, 
printed or deleted by either string matching or 
record number Uses last machine code sort 
NEEDS 32k. : disk Level II Basic 

Lunar Landar. $ 1 0'casseflp Solidly based on 
pr:ysics Displays the landscape, craft and 
^hanging navigational information NEEDS' 
;6k Level II Basic 

Othallo 3.0: $ 1 0'cassette Better than the 
beard game Much better because it plays you 
vs TRSB0, you vs a friend, or TRS 80 vs it- 
self 1 Slaughters programs that maximize cap 
tures NEEDS 16k Uvel II BASIC 

Note NY residents add sales tax 
CUSTOM SOFTWARE 
P O Box 324 1 Raymond Avenue 
Poughkeepsie. NY 1 2603 



Subscription 
Problem? 



80 Microcomputing does not keep 
subscription records on the premises, 
therefore calling us only adds time 
and doesn't solve the problem. 

Please send a description of the prob- 
lem and your most recent address 
label to: 

80 Microcomputing 
Subscription Dept. 
PO Box 981 
Farmingdale, NY 11737 



Thank you and enjoy your subscription 



"The SR/CMD module is 
unique. . . you expect to find 
this feature in a word processor. 



can even list the spoolers disk file and 
printing still continues. 

Deactivating the spooler requires reboot- 
ing the system. Since the spooler and the 
Do buffers can be co-resident, the spooler 
can be activated from a Build/Do file. 

Disk Basic Version 1.4 

DOSPLUS Extended Disk Basic Version 
1.4 is authored solely by Micro-Systems 
Software, but I have not experienced a com- 
patibility problem between DOSPLUS Basic 
and the MicroSoft/Tandy Extended Disk 
Basic. The only areas of incompatibility I 
encountered was with the specialized disk 
I/O file structure of NEWDOS/80 and with 
entry into Disk Basic itself. When entering 
DOSPLUS Basic, no file buffers (channels) 
are allocated. With other DOSes the default 
value is three buffers reserved. You must 
explicitly reserve I/O buffers when entering 
DOSPLUS Basic. The syntax for this also 
differs from the norm. The command: Basic 
filename-F:3-M:65237 loads Basic, reserves 
three I/O file buffers, protects memory 
above 65237 and loads and executes the 
program specified in filename. 

DOS commands from Basic have been 
simplified to: CMD"DOS command". DOS- 
PLUS 3.1 used CMD'T, "DOS command". A 
plain CMD returns to DOS. RENUM, SR and 
REF are called from Basic using CMD. 

Basic has editing and keyboard short- 
hand. Pressing the semicolon displays the 
first line of code; pressing the slash key dis- 
plays the last. Pressing L lists the entire 
program. The DU and Dl commands allow 
the duplication and deletion/insertion of a 
program line. An L"filename" loads a pro- 
gram and a S"filename" saves it. Similarly 
R"f ilename" loads and executes a program. 

Renumbering is adequate. To renumber a 
Basic program type: CMD'RENUM", n,i,s,e. 
Where n equals new line, i equals incre- 
ment, s equals start line, e equals end line. 
Unlike NEWDOS/80, DOSPLUS 3.3 will not 
allow block moves via the RENUM com- 
mand. 

The SR/CMD module is unique in that it 
allows the programmer to search and re- 
place a string variable or expression. You 
expect to find this feature in a word proces- 
sor. I am sure this is one feature that future 
DOSes will incorporate. 

REF/CMD is a variable cross reference. 
CMD"REF", K,L,V lists references In a 
Basic program by keyword, line number or 
variables. To obtain hard copy just append 
a P to the specification list. 

CMD"M" is a kind of dynamic variables 



list. Stop a program at any time during exe- 
cution and type CMD"M" and all variables 
are listed along with their current value. The 
debugging value of this command should 
be obvious. 

The Trace function has been revamped to 
single step through Basic displaying pro- 
gram lines before executing them. This, 
along with CMD"M", has significantly 
reduced program debugging time for me. 
TRON turns on the trace and pressing any 
key single steps through Basic. Since only 
one instruction is displayed at a time, the 
video display is much easier to interpret. If 
Devices were fully implemented, the video 
monitor could be Linked to the printer to 
display the trace simultaneously on the 
monitor and printer. In the absence of Link 
the video could be Forced (Routed) to the 
printer. 

Appending a ,V after a file to be run 
saves all current variable values. This 
allows passing variables from one Basic 
program to another. The result is true chain- 
ing. An index array could be established 
with an initialization program and passed to 
other programs. 

File handling enhancements with DOS- 
PLUS include variable record length files. 
This makes ISAM techniques possible. 
With variable record length files, the pro- 
grammer no longer has to calculate subrec- 
ords. If a logical record length turns out to 
be only 100 bytes, then Open"R",1, "file- 
name", 100 opens buffer one for a record 
length of 100 bytes. Micro System's TEST- 
PGM program amply illustrates this tech- 
nique. Other than this sample program 
there is little explanation on the utilization 
of variable record length files. 

In addition to the variable length files, 
Open"E" and Open"D" are available. 
Open"E" allows the extension of a sequen- 
tial file without reading the entire file into 
memory and writing it back to disk. 
Open"E" causes new records to be added 
to the file on disk and the EOF marker ad- 
justed. Open"D" seems to be synonomous 
with Open"R". It has been included to be 
compatible with TRS-80 Model II syntax. 

Micro-Systems Software reworked Basic 
in DOSPLUS 3.3 quite extensively. Actually 
two Basics are provided: a full-feature 
Basic/CMD and an abbreviated TBasic/ 
CMD. TBasic is meant to be used after a 
program is debugged and the various de- 
bugging utilities are not needed. This pro- 
vides the user with more memory space for 
data. Not included in TBasic are the CMD 
function, editing and keyboard shorthand, 
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"The shortcomings of DOSPLUS 3.3 
are few and reflect my personal 
preferences. . . the literature is 
adequate for an experienced hacker. " 



or full error messages. 

Shortcomings 

The following shortcomings of DOSPLUS 
3.3 are few and reflect my personal prefer- 
ences: no DOS high memory command; 
lack of complete Device handling; no DOS 
Boot command for a warm reboot; the elimi- 
nation of the Basic2 library command; and 
finally, only fair documentation. The liter- 
ature is adequate for an experienced hack- 
er, but may not suffice for an entry-level 
user. I especially miss a section on DOS 
calls. 

There is also some conflict between 
DOSPLUS' keyboard routine and some Lev- 
el II programs. Radio Shack's Haunted 
House adventure and Astrology are repre- 
sentative of this problem. Both programs 
were put on disk with Apparat's LMOFF- 
SET. Executing either of these programs 
under NEWDOS/80 requires disabling the 



keyboard debounce routine. Small Systems 
Software's DCV-1 tape-to-disk utility solves 
this problem, however. DOSPLUS has no 
way to disable debounce so neither of these 
programs can be easily executed! 

Assessments 

My overall evaluation of DOSPLUS 3.3 is 
that it is a stable, efficient, fast and easy-to- 
master DOS. However, if you have mastered 
NEWDOS/80 you would probably miss 
many of the Apparat's extra enhancements 
(mini-DOS, block move of Basic code, etc.) if 
you adopted DOSPLUS as your bread-and- 
butter DOS. 

The major factor in weaning me away 
from NEWDOS/80 was DOSPLUS' portability 
from Model I to Model III (and back again), 
and the ease with which it interchanges sin- 
gle and double-density diskettes. The stan- 
dard features of DOSPLUS have been the 
basis for many stand-alone utilities. If noth- 



ing else was considered but this factor, 
DOSPLUS is a bargain. I have not used 
NEWDOS/80 with double-density zaps 
since acquiring DOSPLUS. A business can 
do little better than DOSPLUS for TRS-80 
Model I or Model III. ■ 

Author's Note: The Config command can 
only configure the system drive to a certain 
track count. Disks intended for drives with a 
track count different from the zero drive 
must be defined with the Format utility. The 
Config command may still be used to vary 
the stepping rate and number of disk sides 
for any drive as mentioned above. 

Micro-Systems also tells me that Small 
Systems Software's DCV1 tape-to-disk utili- 
ty will set the proper Level II keyboard 
values for correct operation. This means 
that DOSPLUS' debounce routine is no 
longer a serious problem for those few pro- 
grams that require a Level II keyboard. ■ 



Quality Products With Support And Service For Less!!! 

16K RADIO SHACK MODEL 3 COMPUTER S849-48K FOR 

WITH 2 40 TRACK DRIVES $1899 AND A RS232 FOR 

16K FOR THE RADIO SHACK MODEL 1 , 3, AND APPLE 2 + 

PERCOM ELECTRIC CRAYON -ADD COLOR AND HI-RES GRAPHICS TO YOUR MODEL 1 

THE CONNECTION -FOR MODEL 1 -300 BAUD-ORIC ONLY & DIRECT CONNECT FOR 
LEX II COUPLER-300 BAUD-ORIG/ANS-HALF/FULL DUPLEX 

OMNITEK 40 TRACK DRIVE WITH PS. AND CASE $295-80 TRACK 
OMNITEK 80 TRACK DUAL HEAD DRIVE WITH PS. ANDCASE 
OMNITEK 8" DISK DRIVE POWER SUPPLY ANDCASE 

OMNITEK POWER SUPPLY AND CASE FOR 5" DRIVES $63 AND FOR 8" DRIVES 
OMNITEK CABLES FOR 5" DRIVES-2-DRIVE FOR $24 AND 4-DRIVE FOR 
OMNITEK CABLES FOR 8" DRIVES-1-DRIVE FOR $24 AND 2-DRIVE FOR 
ECONOMY 5" DOUBLE DENSITY DISKS $24 WITH CENTFR RINGS 
DISKS FOR 8" DRIVE-DOUBLE DENSITY 

12" B&WLEEDEX(AMDEK)MONITOR$114AND10"B&WAPF MONITOR 

BASE 2 PRINTER $549 C. ITOH STARWRITER $1490 
OKIDATA MICROLINE 80 PRINTER $369 TRACTOR $50 
OKIDATA MICROLINE 82A PRINTER $549 AND 83A $799 

CALL FOR QUOTES ON EPSON, APPLE. AND COMMODORE EQUIPMENT 



$929 

$1959 

$16 

$149 

$129 
$129 

$399 

$499 

$699 

$139 

$29 

$34 

$28 

$36 

$99 



DI Al (R INQUIRIES INVITED 



MASS KISIOIMS ADD ! i% TAX IOB IIWKSBURY ER1 K.HI E X I RA 



M,C. VISA OR CHECK ACl I PI II) 



OMNITEK COMPUTERS INTERNATIONAL INC. 



^105 



TRS80IS A RE(. TRADEMARK Of TANOS CORP 



1899 MAIN ST., TEWKSBURY, MA 01876 617-851-4580 
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Everybody's making money 

semnq microcomputers. 

Somebody s going to make money 

servicing them. 

New BUI Home Study Come Shows Yon How to Make Money Servicing, Repairing, 
and Programming Personal and Small Business Computers 



Seems like every time you turn around, somebody 
comes along with a new computer for home or business 
use. And what's made it all possible is the amazing 
microprocessor, the tiny little chip that's a computer 
in itself. 

Using mis new technology, the industry is offering 
compact, affordable computers that handle things like 
payrolls, billing, inventory, and other jobs for businesses 
of every size. . perform household functions including 
budgeting, environmental systems control, indexing 
recipes. And thousands of hobbyists are already 
owners, experimenting and developing their 
own programs. 

Growing Demand for 

Computer Technicians 

This is only one of the growth factors influencing 
the increasing opportunities for qualified computer 
technicians. The L'.S. Department of Labor projects over 
a 100% increase in job openings for the decade through 
1985. Most of them new jobs created by the expanding 
world of the computer. 

Learn at Home 

in Your Spare Time 

NRI can train you for this exciting, rewarding 
field. Train you at home to service not only micro- 
computers, but word processors and data terminals, 
too. Train you at your convenience, with clearly 
written "bite-size" lessons that you do evenings 
or weekends, without going to classes or quitting 
your present job. 

Your training is built around the latest model of 
the world's most popular computer. It's the amazing 
TRS-80™ Model HI, with capabilities and features to 
perform a host of personal and business functions. No 
other small computer has so much software available for 
it, no other is used and relied on by so many people. And 
It's yours to keep for personal or business use. 

You get plenty of practical experience. Using the 
NRI Discovery lab® that also comes as part of your 
course, you build and study circuits ranging from the 
simplest to the most advanced. You analyse and trou- 
bleshoot using the professional Beckman LCD digital 
multimeter you keep to use later in your work. Then you 
use the lab and meter to actually access the interior of 
your computer. . .build special circuits and write pro- 
grams to control them. You "see" your computer at 
work and demonstrate its power. 




Become the Complete *- 

Compater Person 

You're also trained in writing 
and debugging both BASIC and advanced 
machine language programs . . . gain hands-on expe- 
rience in the operation and application of computers 
to business ana personal jobs. You're trained to 
become the fully rounded, new breed of technician 
who can interface with the operational, programming, 
and service facets of today's computers. You're ready to 
take your place in the new electronic age. 



Other 
Opportunities 

NRI has been giving am- 
bitious people new electronic 
skills since 1914. Today's offer- 
ings also include TV/Audio/ 
Video Systems servicing with 
training on our exclusive 
computer-programmable 
25" diagonal color TV... 
Communications Electronics 
for servicing and installing 
microwave, broadcast, 
CB, radar, etc... and 
other state-of-the-art 



Rush coupon for Free Catalog. . . 

No Salesman WU1 Call 

Send the coupon for our 100-page catalog showing 
all courses with equipment and complete lesson plans 
There's no obligation other than to yourself. See now 
NRI can help you grow with the most exciting and 
important new field of the 80s. If coupon has been 
removed, please write to NRI Schools, 3939 Wisconsin 
Ave., Washington, DC. 20016. 





NRI Schools 
McGraw-Hill Continuing 

Education Center 
3939 Wisconsin Avenue 
Washington, DC. 20016 

We'll give yon tomorrow. 

NO SALESMAN WILL CALL 

Please check for one free catalog only. 

D Computer Electronics including 

Microcomputers 
□ Color TV, Audio, and Video System 

Servicing 
D Electronics Design Technology 
D Digital Electronics 
D Communications Electronics* FCC 

Licenses • Stobik CB • Aircraft • Marine 




□ Basic Electronics 

□ Small Engine Servicing 
D Appliance Servicing 

□ Automotive Servicing 
D Auto Air Conditioning 
D Air Conditioning, Heatini 

Refrigeration, & Solar led 
O Building Construction 



Name 



(Please Pnnt) 



Street 



City/State/Zip 

Accredited by the Accrediting Commission of the National Home Study Council 



170- 101 
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DATA MANAGEMENT 



Use them for more efficient handling. 



All About Program Files 



A. J. Barnard, Jr. 

J. T. Baker Chemical Company 

Phillipsburg, NJ 08865 

A. David Barnard 

Rensselaer Polytechnic Institute 

Troy, NY 12181 



Managing a small data base with 
cassette storage and a Model I can 
present problems. One problem is the low 
rate for data transfer and the limited 
reliability of the tape system. This problem 
is eased by hardware and software fixes 
such as the TC-8 cassette operating 
system. 

A second problem stems from the 
nature of the records forming the data 
base. If the records are of variable length, 
alphanumeric, and not closely formatted, 
difficulties are magnified in the use of 
either data statements or a separately 
maintained cassette file; memory over- 
head for arrays and strings may be sub- 
stantial. 

With such records, a third approach can 
be considered— use of a program file. 

The Program File 

In a program file each record is stored as 
a statement against a line number. A pro- 
gram file becomes especially attractive if 
values for a significant parameter can be 
encoded as line numbers. For a program 
file, all the built-in, line-oriented sub- 
routines of the programming language are 
available, notably the arrangement of rec- 
ords by the line-number-encoded para- 
meter regardless of entry order. In this re- 
spect, a program file is a linked file. 

A PEEK routine that steps through the 
file retrieves records from a Basic program 
file. When a line number in the search 
range is found, the associated record is 
recovered, manipulated and displayed by 
the string-handling capabilities of Basic. 

Each record is entered against its ap- 
propriate line number just like a program 
statement with one important difference: 



A double quotation mark must be entered 
following the line number and before the 
proper record. The record is stored in the 
ASCII values of the characters and any 
embedded Basic key word (e.g., On, And, 
End) or control character is not interpreted 
as such. The double quotation mark en- 
sures clear printing. 

Retrieval of Records 
from a Basic Program File 

The elements of a program to retrieve 
records from a Basic program file are 
highlighted by Program Listing 1. Line 
clears space, principally for the string R, in 
which a recovered record is placed. Line 
also defines the integer and string 
variables and then GOTOs the operating 
program at line 5000. Lines 1 through 4999 
are thereby reserved for the program file. 
The first and last records, FR and LR, to be 
retrieved are input in response to lines 
5000 and 5010. Line 5020 checks for entry 
errors. 

The pointer to the start of a Basic pro- 
gram is at decimal address 16548 (40A4H) 
(least significant byte) and 16549 (40A5H) 
(most significant byte). For the standard 
Model I with 16K the location pointed to is 
17129 (42E9H). This location X, and the 
next one, X + 1, hold the two-byte pointer 
to the address at which the next line 
begins. 

The next two positions, X + 2 and X + 3, 
contain the two-byte value of the current 
line number, L. The statement associated 
with this line number begins at X + 4 and 
ends with a null byte (character code zero). 
This description explains the sequence of 
line 5030 (address, first line), 5040 (line 
number, current line), 5060 (if line number 
in scan range, reading of record into string 
R until null byte is reached), and 5090 (ad- 
dress, next line). 

The string R is printed by line 5080 with 
the line number, and R is nulled for reuse. 
Line 5050 checks if the current line number 
is within the search range. If below, the 
scan continues by lines 5120, 5040, and 
back to 5050; if beyond, a new search is 



prompted (lines 51 10, 5120 and back to 5000). 
If the records of the program file, for ex- 
ample, held employee information by an 
alphabetically ordered time card number, 
the first two records might read: 

1" AARON, MORRIS: HIRED 7/18/75; DEPT 10 
9"ALBERS, KARL: HIRED 12/15*0; ON LEAVE 

A search for card numbers from one to 
nine or beyond would retrieve and display 
the same data. 

This simple program can be applied to 
various small data bases by manipulating 
the string in which a retrieved record is 
placed. A practical restriction is that the 
program with an embedded file should 
CLOAD in not much more time than it 
takes to read an equivalent cassette file 
into a previously loaded program. 

With 16K memory, an operating program 
should probably be less than 2.5K long and 
be packed by the use of multistatement 
lines, single-letter variables, DEF state- 
ments, etc., and by brevity in prompts and 
headings. The records should be tele- 
graphically styled including abbreviations, 
acronyms and codes that can be replaced 
by full statements using If. . .Then. . .Else 
sequences or lookup arrays. 

Program Listings 2 and 3 present two 
practical programs highlighting the use of 
Basic program files. They are tailored to 
the TRS-80, but can be adapted to other 
computers using Microsoft Basic. The 
listings have been made with line feeds 
and indents to improve legibility, but the 
programs should be entered without these 
niceties in order to conserve memory. 

Daily Diary 

Program Listing 2 is a daily reminder 
program. Lines 101 through 6031 are 
reserved for the program file and these 
numbers encode the month and day for a 
five-year period. For example, lines 101, 
1301 and 4901 store the notes for January 
1 for the first, second and fifth years. Year 
one is set as Y1 in line 10. The operating 
program consists of lines one through 85 
and in execution requires only 1.8K of 
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"One problem is the low rate for data transfer 
and the limited reliability of the tape system." 



memory with a record as long as 120 
characters. 

The search routine delineated by Listing 
1 appears in lines 40, 45 and 50. The first 
and last dates (FD and LD) to be scanned 
are entered in response to line 20. By lines 
20-25, the scan range is placed in string W, 
which is used as a heading. The dates are 
encoded as line numbers by the expres- 
sion for C in line 25. Line 30 checks for en- 
try errors and a response requires that the 
entered range is the intended one. 

A retrieved record, as string R, is analyzed 
by lines 55 and 60. First, introductory spaces 
or double or single quotation marks are 
stripped. Then, if the third character in the 
resulting string is a colon, the first two char- 
acters are placed in string S, which is then 
checked by line 60 for a code. For example, 
if "HO: begins a record, then Holiday is sub- 
stituted. The codes can be personalized, 
codes can be personalized. 

Line 65 converts a line number to the 
month, day and year, which is displayed as 
string V ("##/##/##") (line 5) by the PrintUs- 
ing instruction. 

Line 65, beginning with :MK = M, and 
line 70 form a day-of-week routine correct 
to year 2000. The abbreviation for the day 
taken from string T (line 5) is placed in 
string U by line 70. (To eliminate the day-of- 
week feature, delete the final statements 
of line 65, line 70, and the U; in the LPrint 
and Print statements of lines 75 and 80.) 
If a printout is requested, flag H is set 
(line 35) and the LPRINT statements of lines 
of line 65, line 70, and the U; in the LPRINT 
and Print statements of lines 75 and 80.) 
and 75.) 

The display is secured by line 40 
(heading) and line 80 (records). When the 
counter J for the number of displayed rec- 
ords exceeds eight (line 80), press Enter for 
the next frame. After each record is printed, 
strings S and R are nulled for reuse. When 
the search is complete, line 85 prompts an- 
other. A daily diary file might start: 

101'HO.NEW YR DAY-RUTH'S- >DINNER 

115"PD:IRS4/4ESTTAX 

1 17 "CALL JIM ABOUT FEB SKI WKEND 

If Y1 =81 (that Is, 1981) in line 10, then 
the CRT display for a scan from 1,1,81 
through 1,17,81 would be: 

-SCAN 1/1/81 ->1/17/81- 

1/1/81 -THR-HOLIDAY-NEW YR DAY-RUTHS-DINNER 

1/15/81-THR-PAYMENT DUE-IRS 4/4 EST TAX 

1/1 7/81 -SAT-CALL JIM ABOUT FEB SKI WKEND 

If the diary becomes too long for a con- 
venient CLOAD, the file for a completed 
period, say, six months, can be kept (with 
the operating program) as a separate tape 
by the use of the Delete and CSAVE instruc- 
tions. Then only current entries need be 



updated and searched. 

Stamp Inventory Program 

Program Listing 3 is an inventory pro- 
gram for a philatelic collection. The col- 
lection of stamps, of course, must ob- 
viously be sufficiently valuable, extensive, 



or active to warrant computer manage- 
ment. 

The operating program occupies lines 
and 60000 on, and lines 1 through 59999 
are reserved for the program file. The line 
numbers encode the catalog numbers of 
the postage stamps. The records need not 



CLEAR 300: DEFSTR Q, R, S: DEFINT F, I, T 

: CLS: GOTO 5000 
5000 INPUT "SCAN FROM RECORD "; FR 
5010 INPUT" TO RECORD "; TR 

5020 IF FR < 1 OR TR > 4999 OR TR < FR THEN 5130 
5030 X = PEEK(16548) + 256*PEEK (16549) 
5040 L = PEEK(X + 2) + 256*PEEK(X + 3) 

5050 IF L < FR THEN 5090 ELSE IF L > TR THEN 5110 
5060 FOR I - X + 4 TO X + 255 

: IF PEEK(I) > THEN R = R + CHR$ (PEEK ( I) ) : NEXT 
5070 IF LEFT$(R,1) = CHRS(34) THEN R - 

RIGHT$(R f LEN(R) - 1) 
5080 PRINT L; "-"; R: R = "" 
5090 X = PEEK(X) + 256*PEEK(X + 1) 
5100 GOTO 5040 

5110 INPUT "ANOTHER SCAN (Y/N)"; Q 
5120 IF Q - "Y" THEN CLS: GOTO 5000 ELSE END 
5130 CLS: PRINT, "ERROR OR MISMATCH" 
: PRINT: GOTO 5000 

Program Listing 1 



5 CLEAR300:DEFINTD-K f M,Y:DEFSTRP-W,Z 

: V=»"# #/##/## ":T="SATSUNMONTUEWEDTHRFRI" 
:P="DAILY DIARY - BY A.J. & a.D. bARNARD" 
10 Y1-81:'Y1 SETS YR ONE 

15 CLS:PRINTP:PRINT,Y1+1900; "-" ;Y1+1904 : PRINT 
20 INPUT"SCAN FROM MM, DD, YY" ;D1 ,D2 ,D3 :GOSUB25:SF=Z 
:FD=C: INPUT" TO MM,DD,YY" ;Dl ,D2,D3:GOSUB25:SL=Z 
:LD=C:W«"- SCAN"+SF+" — >"+SL+" -":GOTO30 
25 Z=STR$(Dl)+"/"+STR$(D2)+"/"+STR$(D3) 

:C»100*(D1+12*(D3-Y1))+D2:RETURN 
30 IFFD<101ORLD>6031ORLD<FDTHENPRINT,"ERROR1" 
:GOTO20ELSEPRINTW;: INPUT" (Y/N)";Q 
: IFQ-"N"THEN20ELSEIFQO"Y"THEN30 
35 INPUT "PRINTOUT (Y/N) " ;Q: IFQ="N"THENH*=0 

ELSEIFQO"Y"THEN35ELSEH = l:LPRINTW 
40 CLS : PRINT, W:J«1:X=PEEK( 16548) +256*PEEK( 16549) 
45 L=PEEK(X+2) +256*PEEK(X+3) : IFL<FDTHEN50 

ELSEIFL>LDTHEN85ELSEFORI=X+4TOX+255 : IFPEEK ( I ) >0 
THENR«=R+CHR$ ( PEEK ( I ) ) : NEXTELSEG0T05 5 
50 X»PEEK(X)+256*PEEK(X+1) :GOT045 

55 K=LEN(R) :RL=LEFT$(R,1) :IFRL=" "ORRL=CHR$ (34)OR 
RL-"'"THENR«=RIGHT$(R,K-1) :GOT055ELSEIF 
MID$(R,3,1)=":"THENS=LEFT$(R,2) : R=RIGHTS (R,K-3) 
60 I FS»"HO"THENS«" HOLIDAY- "ELSEIFS="VA"THENS= 

"VACATION- "ELSEIFS="BI" THEN, S=" BIRTHDAY- "ELSEIF 
S="PD"THENS=" PAYMENT DUE-" 
65 F«INT(L/100) :G=INT(F/12.1) :D=L-100*F : Y=Y1+G 
:M=F-12*G:MK=M:YK=Y+1900:IFMK<3THENMK=MK+12 
:YK»YK-1 
70 N=YK+D+1+2*MK+INT( (MK+1) *3/5) +INT(YK/4) 

:E=INT(N-7*INT(N/7) ) :U="-"+MID$ (T,E*3+1 ,3) +"-" 
75 IFH=1THENLPRINTUSINGV;M,D,Y; : LPRINTU; S; R 
80 PRINTUSINGV;M,D,Y; :PRINTU;S;R:S="" :R="":J=J+1 
:IFL=LDTHEN85ELSEIFJ<8THEN50ELSEPRINT§936,; 
:INPUT"HIT =ENTER= TO GO ON" ;Q:CLS : PRINT, W 
:J=1:GOTO50 
85 INPUT-NEW SCAN (Y/N) " ;Q: IFQ="Y"THEN15ELSEEND 
100 ' * LINES 101-6031: NOTES FOR 5 YRS * 

Program Listing 2 
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j Wayne Green Books 


Pi 


i announces 

December l. 1981 deadline for 




submission 


ill 


of new 


Oft 

X. -i 


manuscripts 

for consideration for 


m :/ '■ a 


the Spring 


Sv# m 


Book List. 


R-^'3 1 


1 Fck submissions procedures and 

further information, contact 

Chris Crocker. Editor. Wayne Green Books. 

Peterborough. New Hampshire 03458 



j(f\ microcomputi n^l 

BINDERS 




order 
yours 
today 



Keep your library of 60 Microcomputing sofe from losi 
or damage in these handsomely appointed binders with 
nch dork green covets and gold lettering. Each binder 
holds 12 issues making on EXCELLENT REFERENCE HAND- 
BOOK Several binders form a quality librory you can be 
proud of. Please note year, 1960. 1981, 1962 
trSOeadt 3 for Hi 75 6 (or 143 00 
Potioo* paid i UJA Fot*<qn o>o>rt ptooi* include 42 10 for potioa* 

Specify 1 M0 or 1M1 

Send check or money order only to 
80 MICROCOMPUTING BINDERS 
P.O. Box. 5120, Pnila . PA 19141 



no. 



&£& 



*■ 



*£& 



/C C\iy V \f You 've Written an 
^f~ Outstanding Program- 

We'd Like to Publish Itl 

We're looking for EDUCATION 

Programs: 

SPECIAL EDUCATION/AID 

TO THE HANDICAPPED 

MULTIMEDIA COMPUTER INSTRUCTION 

TEACHER AUTHORING LANGUAGES 
MANAGEMENT TRAINING 
SIMULATIONS 

Earn money while helping others. 
Write for our free Programmer's 
Kit today! 

INSTANT SOFTWARE, INC. *l 

Submissions Dept. 
Peterborough. NH 034S8 



"The collection must be sufficiently valuable 
to warrant computer management." 



be formatted; with a colon separator 
however, fields can be displayed as 
separate lines and, beyond the first line, 
with an indent. In this way, different 
aspects of a collection are highlighted. 

The Scott catalog system is the most 
common one in the United States. Unfor- 
tunately a Scott number consists of a 
numeral with one or more prefixed letters. 
The prefix denotes the stamp type (regular 



and commemorative issues have no 
prefix). This difficulty is resolved by the 
use of numeric offsets. For example, the 
first airmail stamp of any country has the 
Scott number C1; its record is stored 
against line 4401, that is, one plus the off- 
set of 4400. The prefix/offset system 
established by lines 60020-60030 is ade- 
quate for the stamps of the United States 
and most countries of the British area of 



CLS:GOTO60000 

60000 PRINTTAB(8) "STAMP HOLDING" 

: PRINT, "PROGRAM - A.J. & A.D. BARNARD" 

: PRINT: CLEAR3 00 : DEFINTF-K , M-N 

:DEFSTRP-W,Y:DIMT(44) ,M(44) 
60010 S«" (OWNER) -(MM/DD/YY) -(COUNTRY) -> " 

:P1-"(#)":P2«"(#)" 
60020 FORI«0TO44:READT(I) ,M(I) :NEXT 

:DATA" ",0,AR, 4000, B, 4200, C, 4400, CB, 5400, 

CE, 5500, CO, 5600, E, 5700, EO, 5800, F, 5900, 

FA, 6000, J, 6100, JQ, 6500, K, 6700, L, 7000, 

LO, 7300, M, 7400, MB, 7500, MC, 7600, MO, 7700, 

MR, 7800, N, 8000, NC, 8400 
60030 DATANE, 8500, NJ, 8600, "NO", 8700, NR, 8800, 

NRA, 8900,0, 9000, OY, 9500, P, 10000, PN, 10300, 

PR, 10400, Q, 10600, QE, 10700, RA, 10800, 

RAC, 10900, U, 11000, UC, 12000, UO, 12100, UX, 

13000, UXC, 13100, UY, 13200, UZ, 13300, "",13400 
60040 PRINTS; PI;" - ";P2:M«0: PRINT 

:INPUT"SCAN SC * (WITH ANY PREFIX) ";QF 

:INPUT" TO # (WITH PREFIX) " ;QL:QT=QF:QP«"' 

:GOSUB60050:QF-QP:N1-N:QT=QL:QP«"" 

:GOSUB60050:QL=QP:N2»N:GOTO60060 
60050 IFASC (LEFTS (QT,1) )<«64THENN-VAL(QT) 

: RETURNELSEQP-QP+LEFT$ ( QT , 1 ) : QT-MIDS ( QT , 2 ) 

: IFQT-""THEN60200ELSEGOTO60050 
60060 IFQF="W"ORQL""W"THENQF«"U" :QL»"U" 

ELSEIFQFOQLORN2<N1ORNK0THEN60200 
60070 FORI=0TO44:IFQF-T(I)THENM-M(I) 

:MX=M(I+1)-M-1:GOTO60080ELSENEXT:CLS 
:PRINT,"NO PREFIX ";QF:PRINT:GOTO60040 
60080 IFN2>MXTHENCLS: PRINT, N2; "BEYOND " 

;QF;" RANGE" :PRINT:GOTO60040ELSE 

W«QF+STR$(N1)+" - "+QL+STR$(N2) 

:N1-N1+M:N2=N2+M 
60090 PRINT: INPUT"PRINTOUT (Y/N)";Q 

:IFQ-"N"THENJ=0ELSEIFQO"Y"THEN60090 
LSEJ=1 : LPRINTS; W: LPRINT 
60100 CLS:PRINTS;W:PRINT:F-0 

:X«PEEK( 16548) +256*PEEK{ 16549) 
60110 L«PEEK(X+2)+256*PEEK(X+3) : IFL<N1THEN60180 
ELSEIFL>N2THENGOSUB60190:GOTO60040 
ELSEG=0:RF-"":R-"":FORI=X+4TOX+255 
: IFPEEK ( I ) >0THENR=R+CHR$ ( PEEK ( I ) ) : NEXT 
60120 U=LEFT$(R,1) : IFU«CHR$(32)ORU-CHRS (39) OR 

U=CHR$(34)THENR«MID$(R,2) :GOTO60120 
60130 F0RI=1T0LEN(R) : IFMID$(R,I ,1) -■ : ■ 

THENG«G+1:RF-LEFT$(R,I-1) :R=MID$ (R,I+1) 

ELSENEXT:RF=R:R»"" :G=G+1 
60140 IFG«lTHENY-QF+STR$(L-M) 

ELSEIFG-2THENY«CHR$(LEN(Y)+192) 
60150 F«F+1:IFF=9THENF-1:GOSUB60190 

: PRI NTS ;W: PRINT 
60160 IFJ-1THENLPRINTY;" - ";RF 
60170 PRINTY;" - ";RF: IFLEN(R) >0THEN60120 
60180 X-PEEK(X)+256*PEEK(X+1) :GOTO60110 
60190 PRINTe935,;:INPUT"HIT -ENTER- TO GO ON" 

;Q:CLS: RETURN 
60200 CLS: PRINT, "MISMATCH OR ERROR" 

: PRINT :G0TO6 04 

Program Listing 3 
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October Discount Specials! 

Software 






FEATURE SPECIAL Reflec-TRS by Elf II 

The new challenge to your skill and logic. If you've 
managed to master the level II Black Box then look at 
Reflec TRS as a universe beyond" in mental concen- 
tration and stimulation. . .a real mind binder' Written for 
one or two players Board size and number of 
marker . . . from 2 to 8 are selectable 
YOUVE MET THE GAME NOW MEET THE CHALLENGEI 

REFLECT-TRS... Stock #402 

S6 95 for the listing |l lb) 

S8 95 for the cassette 1 1 lb | 



Hardware 

FEATURE SPECIAL. . . "FLIP SORT 

Smoked acrylic dust proof storage for 50 to 60 disk. 

Stock No 900 for 5 1/4" discs 22 95 |l lb j 

Stock No 901 for 8" dr 26 95 (I lb 



PLASTIC LIBRARY CASE 

Stock No 902 for 5" 
Stock No 903 for 8" 



2 4'. 
4 4b 



COMPUTFR ACCESSORIES .AND EQUIPMENT 
Stock No Pra 



Okidata Microiine 80 [Still available) 
'JEW A" si OK I DATA 82 A 
ps FAST. . . Bidirectional 

with LC decender 

83 A (with 13 u igej 

Okidata microiine 82 
tore 

RS 232-256 Char hut 
22K chai 
■ : Mx-80 

Centronics 73/ I (SI 50 00 Rebate] 

MPl 88G 

Vista Daisy Wf 

NEC 5510 or 5630 
THE NEW 739 s WITH GRAPHICS .API I 
Shipping included to 48 states Blue Label to 
Ak available 



200 

211 



212 

201 

203 

204 

205 

206 

207 

208 

209 

210 



Price' 

S 389 00 



62b 00 

895 00 

bS9 00 

60 00 

180 00 

264 00 

51500 

i -to 00 

629 00 

1.54500 

2 845 00 

TOO CALL' 



MASTER GUESS BY ELF d. Stock No 401 

with TRS graphics fo r more concentration 1 

Now Just S6 95 [I lb.) 

Requm R. S Lvl II or III. 16 K 

BILLIST (Stock No 400) 

Billist keeps track of biiis due bills paid. 

repetitive merits. . . up to loo 

accoui Store data on 

with a complete list" bunts il pmter equipped 

Allow six priorities. . .sort by name or date due. 
compress, delete, advises when account is latel 

S7 95 for the !istng (I lb) 

Sli 95 for the cassette (I lb) 
Required equipment R S Lvl II or ill with 16 K 



RIBBONS AND WHEELS 




Stock No Ribbons 


Pnce Weight 


500 .''| ;m. i l p i 1 'V 


SI 7 75/4 1 lb 


•<• carbon 




501 Diablo hy type 


o/3 1 


Oume 


9 95/3 1 


503 NEC 


20 45/3 1 It) 


MAGM TIC MEDIA 




VERBATIM W/DATALIFE 


PRICE WEIGHT 


Mi (with hub rings! 





10-3 MD 525 01 

104 w/pldstic case 

105 MD 52510 

106 " w/plastic case 

107 MD 525-16 

108 ' w/p- 

10 Boxes mix or match $252 50 
- with plastic cases 262.50 
09 FD 34-8000 

110 A"th ruD ring 

hard box 



26 95 

27 95 
26 95 
2/95 

26 95 

27 75 



39 93 2 

fXiO S *60 00) 

43 95 
fxlO S400 00) 2 



lb 



MEMORY C HIPS 
Stock No 



PRICE WEIGHT 



800 



801 



Motorola Ceramic 16 K. 21 95 

200 ns memory chips 

for mod I. El. Mod III. 

Apple, etc 

Shunts for Mod I 4 00 



2 lb. 



CALL FOR BEST PRICES ON 



• PERCOM 



NOVATION AND MORE 



SHIPPING • 2 50 for first 3 lbs . . .65d each for add.tio- • I 
RATES • COD'S add S200 (US only) 

• Fen : 00 lb surface, S700 lb Air PP 

• P.O. Boxes - include phone number for UPS 
allow one to two week: for checks to clear 

DISCOUNT 3% Cash Discount from total |includ« i 
. i»ng and handling) 
'i Check, MO or COD 



•Re Printers. . . .tnese sre our prices at trie time of 

iication because of 2 month delay in publicat 
, could be even less CALL' 

PO Box 1567 Wheal Ridge Colorado 80034 

Colorado ;■ Add 3% Sales Tax 

CALL COLLECTI 24 Hour Line 1-303-431-4151 





f ATA INC. 




• n 



^S«« List ol Adwrtmn on ptgi 306 
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PRACTICAL 4NALYSJS . 

Pres its computer programs for corawn 
EWG INEEHIWG PROBLEMS : 

• MOTOR • Computes the acceleration 
START time for starting electric 

motors under load 

• PIPELINE - Calculates pressure versus 

flowrate curve data points 
for pipelines 

• PIPE - Analyzes branched piping 
DtSIGft systems to determine 

Mowrates and pressures 

For MODEL I LEVEL II 16K 
CASSETTE OR DISK 



MOTOR START 
PIPELINE 
PIPE DESIGN 



$19.95 
S29.9S 
S49.9S 



ALL THREE $75.00 

ADO $10.00 FOR DISK 

SEMO CHECK OR MONEY ORDER TO: 

PRACTICAL ANALYSIS 

6518 LA MORA 
HfAlS T ON. TEX 77063 *^386 



this publication 
is available in 
microform 




University Microfilms International 



300 North Zeeb Road 

Dept. PR. 

Ann Arbor, Ml 48106 

U.S.A. 



18 Bedford Row 
Dept. PR. 
London. WC1R4EJ 

England 



(Jjy* IS You've Written an 

^J Extraordinary Program- 

We'd Like to Publish It! 
Programs needed for MANAGE- 
MENT applications: 
PERT * CPM SCHEDULING 
PREDICTIVE MODELING 
DECISIONMAKING SIMULATIONS 
PRODUCTION SCHEDULING 
EXPENSE ANALYSES 
Royalty check* may be In TOUR 
future. Write for our free Pro- 
grammer's Kit today. 
INSTANT SOFT WARE, INC. ^2 

Submissions Dept. 
Peterborough. NH 03458 



"The Scott catalog system is the 
most common one in the United States. 



specialty. If the number of offsets Is 
altered, a change must be made in the up- 
per limit of the For. . .Next loops in lines 
60020 and 60070 and in the Dimension state- 
ment in 60020. 

Since the program is tightly packed and 
without remarks, explanation is needed. 
The PEEK routine of Program Listing 1 is 
incorporated into lines 60100, 60110 and 
60180. 

By line 60000 space is cleared for strings 
(the amount can be decreased if no record 
exceeds 100 characters). Integer and 
string variables are defined to speed ex- 
ecution and conserve memory. String S in 



line 60010 must be personalized by 
owner's name, country, and date of file 
entry or update. This string serves as a 
heading for a printout (line 60090). The in- 
formation is important for security or 
estate purposes. Scott numbers encom- 
passed by the file are entered as PI and P2. 
Line 60040 displays the file heading and 
prompts entry of the range of stamps to be 
scanned, and with line 60050 separates 
each entry into its alphabetic prefix and 
numeral. (Line 60060 converts a prefix W to 
U; collectors of postal stationery will ap- 
preciate this feature.) A check for entry 
errors is then made. 



4400 


"LINES 4401-5399 AIRMAIL 


4401 


"U F LT CANC 


4402 


"0 F:FFC(FULTON->NY12X2S) ST 


4403 


■5 M F LH:4 U CDS 


4406 


"M F NH:6A SS H F:6B 11.5/llFERF U F FLT 


4407 


"9(NO 8A) M F LH:8A BID$85 STOLON U F 15X180 


4410 


"M F LH:CVR FD CANC 


4411 


"M F NH TINY CR 


4412 


"U ON PC F 3 MGNS:U ON PCD G 


4413 


"15 M F LH:U F+:FDC SET ADDR F 


4416 


"M VG MISS PERF:ZEP CVR(FULTN->BERLN) F APPEAR 


4417 


"13 M G LH CR:TBECH PR M HH:17A BLU U VG 


4419 


"M VF:BLK6 M F:U F TINY Til 


4420 


"M F NH-.PBLK4 M F NH:FDC PR INADDR F:20A IMPERF U F 




Program Listing 4 



JOHN ADAMS-12/15/80-W. AMERICA-> SC C1-C20 

1 - U F LT CANC 

2 - U F 

- FFC(FULTON->NY12X25) ST 

3 - 5 P LH 

- 4 U CDS 

6 - M F NH 

- 4 U CDS 

- 6A SS M F 

- 6B 11.5/11PERF U F FLT 

7 - 9(NO 8A) M F LH 

- 8A BIDS85 STOLON U F 15X180 

10 - M F LH 

- CVR PD CANC 

11 - M F NH TINY CR 

12 - u ON PC F 3 MGNS 

- U ON PCD G 

13 - 15 M F LH 

- U F+ 

- FDC SET ADDR F 

16 - M VG MISS PERF 

- ZEP CVR ( FULTON- BERLN) F APPEAR 

17 - 18 M G LH CR 

- TBECH PR M G HH 

- 17A BLU U VG 

19 - M VF 

- BLK6 M F 
-UP TINY TH 

20 - M P NH 

- PBLK4 M F NH 

- FDC PR UNADDR F 

- 20A IMPERF U F 

Program Listing 5 
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By line 60070, the entered prefix for the 
scan range is compared with the array of 
offsets; the proper numerical offset is 
found and added to the numerals. Line 
60080 checks if the upper limit of the range 
exceeds the assigned number of lines for a 
given stamp type; if not, the scan limits are 
placed in string W for a heading. 

A retrieved record is placed by line 601 10 
in string R and analyzed by lines 60120 and 
60130. Introductory spaces or single or dou- 
ble quotation marks are stripped. A check is 
then made for a colon in the resulting 
string; if one is found, the string to that 
point is placed in RF and the remainder left 
in R. 

Flag G is set in line 60110. If a colon is 
. found, G is incremented by line 60130. Line 
60140 places the Scott number corres- 
ponding to the current line number into 
string Y (G = 1) for the initial display line for 
the record. For further lines, Y is a string of 
spaces equal to the number of characters 
in the Scott number. 

The heading is displayed by line 60150 
and the retrieved records by line 60170. 
When the counter F (lines 60100 and 601 50) 
for the displayed record lines exceeds 10, 
Enter must be pressed (line 60190) for the 
next frame. 

Line 60170 checks if the entire record 
has been printed; if not, the program 
returns to line 60120 for further analysis 
and printing of additional fields. 

If a printout is requested (line 60090), 
flag J is set and the LPRINT statements of 
line 60090 (headings S and W) and 60150 
(retrieved record) are executed. (If a line 
printer is not used, delete this feature.) 

Use of this program is exemplified by 
Program Listings 4 and 5. Listing 4 is a 
contrived program file for airmail stamps 
of an imaginary country. Listing 5 presents 
a typical heading and the printout for this 
file. Stamp collectors will be familiar with 
the tricks used to compact records: well- 
accepted abbreviations, listing of sets ver- 
sus single stamps, appending minor 
varieties that carry suffixed letters, etc. 

The offset system can be extended to 
revenue stamps (e.g., with line numbers 
20000 on). Secondary stamp-issuing en- 
tities can be included by added offsets; for 
example, the U.S. administration of the 
Philippines could be given the non-Scott 
prefix PHI. 

This article has focused on the 
usefulness of Basic program files in the 
microcomputer management of small data 
bases with cassette storage. Program files 
effectively pack data and have special 
merit with loosely formatted records and 
where values for a significant parameter 
can be encoded as line numbers. ■ 

^See List ol Advertisers on page 386 



COMPUTER . AUDIO 
CASSETTES ^ CASSETTES 



LENGTH 12PAK 24PAK 

C-05 69« 49C 

C-10 79c 59C 

C-20 99c 79c 



LENGTH 12PAK 24PAK 

C-30 1.19c .99c 

C-60 1.49C 1.29C 

C-90 1.69c 1.49c 



• 100% ERROR FREE« FULLY GUARANTEED • SUPERIOR ESCHEW CONSTRUCTION • 

• HIGH FREQUENCY RESPONSE • VERY LOW NOISE* WIDE DYNAMIC RANGE* 

• USED BY SOFTWARE FIRMS, HOBBYISTS AND RECORDING STUDIOS NATIONWIDE • 

• BOXES SOLD ONLY WITH CASSETTES 19« EA • $2.00 PER PAK SHIPPING* 



C.O.D. HOTLINE 1-206-675-6143 



MICRO-80" INC. 

E-2665 BUSBY ROAD • OAK HARBOR, WA 98277 



96K CP/M® 

(For your TRS-80* Model II) 
Multiple Job Executive 

Add a whole new dimension to your 
TRS-80 Model II. Let it work while you 
work!! 

ATON's unique JobStream™ CP/M 2.2, along with additional RAM memory, allows you to 
simultaneously compile, assemble, or link in one 64K background partition (62K TPA) while you 
edit files, and spool to the printer, and communicate with another computer in up to four 32K 
foreground partitions (28K TPA). 

As you expand your memory beyond 32K, you can also enter the amazing world of TrackMode 
BIOS™ which not only multiplies diskette speed up to five times, but also automatically performs 
read after write checks for the ultimate in data reliability. 

•Gain hard disk performance for a fraction of the cost— and no backup problems!!! 

• Works in 32K, add RAM memory to 256K using standard Radio Shack memory boards. 

• Supports two sided expansion disk drives (1.2 megabytes per diskette). 

JobStream CP/M 2.2 (with Z-80** Debugger) $235 

Video Text Editor $130 

Z-80 Debugger Source Code $ 50 

Package of above (a $415 value) $295 




"Software with Service" 




on 



nternational, Inc. 



Prepaid, Visa. MasterCard or COD. 
Shipping and handling extra. 
California residents add 6% sales tax. 

CP/M* Digital Research, Inc 
""TandY Corp "'"Zilog Corp. 
JobStream, TrackMode BIOS'" ATON Intl. 



260 Brooklyn Avenue, San Jose, CA 95128 
^398 (408)286-4078 
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GENERAL 



Is anybody there. . . does anybody care? 



Adventures in Modemland 



Fred Blechman 
7217 Bemadine Ave. 
Canoga Park, CA 91307 



In Part I of "Adventures In Modemland" 
I described how I got my TRS-80 con- 
nected to my telephone using the Micro- 
connection modem from The Microperi- 
pheral Corp. Now I could communicate 
with microcomputer bulletin boards all 
around the country. Assuming I could only 
contact other TRS-80s I looked over a list 
of 133 bulletin boards from The Micro- 
peripheral Corp. and found several that 
looked TRS-80 oriented: Forum-80, 
Comm-80, lnfo-80, Hobbiest-80 and 
Engineer-80. The closest was Fullerton, 
CA— the Comm-80 bulletin board of the 
Orange County TRS-80 Users Group (OC- 
TUG). 

I reduced my equipment to the bare 
bones for modem operation. The Micro- 
connection was ribbon-cabled directly to 
the TRS-80 keyboard card edge. My 
parallel printer and Exatron stringy/floppy 
tape storage unit, normally connected to 
the keyboard, were disconnected. I didn't 
want any interaction to create problems— 
I was confused enough already. See Fig. 1 
for the minimum configuration. 

Modem Encounter of The First Kind 

I plugged in the Microconnection wall 
transformer, and made sure the telephone 
was connected. I loaded the S80 software 
program (provided with the Microconnec- 
tion) into the TRS-80 using the cassette 
recorder. When the screen asked for (H)alf 
or (F)ull Duplex command, I typed in F. The 
screen went blank except for a cursor in 
the upper left corner. I put the Microcon- 
nection modem in the Simplex/Data mode, 
and random characters (created by the 
dial-tone) and line noise appeared on the 



This is the second article by Fred Blechman 
about modems; the first was The Microcon- 
nection 80 Microcomputing, August 1981. 
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screen. When I pressed a key that 
character appeared on the screen; this 
meant my modem was ready. I put the 
modem switches in the Duplex/Voice posi- 
tion, picked up the phone handset and 
dialed the OCTUG Comm-80 phone 
number, (714-526-3687). It answered 
almost Immediately with a click and a 
steady tone. 

I quickly set the Microconnection to the 
Duplex/Data mode. This transmitted a car- 
rier of the proper frequency to the modem 
at the other end of the line, letting the 
Comm-80 system know I was in contact. I 
hung up the telephone handset and con- 
tact continued through the modem. After a 
couple of Enters from my keyboard, the 
Comm-80 started asking questions. 

When OCTUG Talks, I Listen! 

I had no experience with bulletin boards 
and no instructions of any sort. I just 
muddled through the questions, giving the 
best answers I could think of. The first 
question (Do You Need Linefeeds, indicate 
yes or no"?) I answered no. Then the 
screen gave a basic description of the 
system. It asked my first name, last name, 
and location. It repeated my inputs on the 
screen and asked for confirmation. The 
screen showed I was being logged onto 
Comm-80, with the date, time and caller 
number. When asked if this was my first 
time on the system, I answered yes. I was 
then asked if I wanted more information on 
the system; I replied yes and was told that 
Comm-80 is running on a TRS-80 with 48K, 
two MTI/MPI disk drives, TRSDOS 2.2, a 
Radio Shack RS-232-C, Centronics Micro 
P1 printer, a Novation CAT modem, auto- 
answer hardware from Computer Control, 
and software from Faulk and Associates 
Software. 

This was followed by an invitation from 
OCTUG to use the system any time 24 
hours a day, seven days a week. A simple 
command menu was then printed: 

E— Enter a Message 
K-Kiii a Message 
H-Halp, Reprint this List 
R •- Retrieve a Message 



S— List summary of messages 
Q— Quick Summary (MSG # & Subject) 
W— Redisplay the Welcome Message 
T— Terminate the Session 



Confusion and Panic 

Although all this was happening at only 
300 baud— about 30 characters per sec- 
ond—many lines were short. This meant 
that one, two or three lines a second were 
being generated on the bottom of the 
screen, pushing old lines off the screen. 
Without my printer connected, I had to 
read (and try to understand) too quickly for 
comfort. So I entered a T from my keyboard 
to terminate the session. The screen 
showed "User Logged Off Comm-80," gave 
the date, time, and total time on system (in 
hours, minutes and seconds) and discon- 
nected. I put the Microconnection in 
Duplex/Voice model to disconnect at my 
end. 

I called lnfo-80 in Seattle, but got hung up 
in the system, so I disconnected. After a 
couple of Forum-80 calls I started to get the 
hang of it. I found I was able to read mes- 
sages within various categories (miscellan- 
eous, personal, commercial, system bulle- 
tins) and I could enter messages of my own. 

Non-Standardization 

My confusion was caused mostly by the 
non-standardization among different 
systems. Various control keys and com- 
mands are used. The TRS-80 does not have 
a Control key; instead you use a combina- 
tion of a letter key with an Up-Arrow, but 
not always. Some use Shift and Key or 
Down-Arrow and Key. Some just use the 
letter alone for control during receiving, 
but as a command when responding to a 
question. Without experimentation or 
documentation on a particular system, 
you can waste a lot of time (usually at long- 
distance rates). Command letters can be 
particularly confusing. To end a session, 
you might need a T to terminate, a B for 
bye, or a G for goodbye. Don't use an E for 
exit or end, since E usually means enter 
(for leaving a message). Sometimes a B 
means bulletins instead of bye. And G, 



'. . . computer communication over phone lines is by 
standardized character code (300 baud ASCII). . . " 



R/S Z6-I4II 
PRINTER INTERFACE 
CABLE ASSEMBLY 



TO PARALLEL 
PRINTER 



TO EXATRON 
STRINGY/ 
FLOPPY TAPE 
DRIVE 





KEYBOARD SLOT 



(LEVEL I OR H 4K> 



TO SERIAL PRINTER 



Fig. 1 



Table 1 

Typical Apple Bulletin 

Board System Commands 



Function: 

(A, B, D, E, G, H, K, L, N, Q, R, S, T, V, W, X, ?) ?H , 

Enter your Choice: 

'ALL' For Complete Review 

'CTRL' For CTRL Characters, or 

'A, B, D, E, G, H, K, L, N, Q, R, S, T, W, X, ?' for Individual Response. 

(C/R) to return to program 

?ALL 

Following is a brief list and description of the commands and their usage: 

CTRL E— Retypes current line up to present position and allows you to con- 
tinue from that point. 

CTRL H (backspace)— Allows you to backspace one character at a time and 
prints A T followed by the character you are backspacing over. This is the 
same routine as is used for delete or rubout instead of true delete. (For the 
benefit of printers) 

CTRL U (forward arrow)— Starts you back at the beginning of the current line 
being typed (i.e. start over). 

(C/R) to continue, (E) to end ? 

A— Apple 40 column. Normally you would be allowed 64 characters per line. A bell 
will sound at 59 and on up to 64 columns at which point you would be forced 
on to the next line of text. In the Apple 40 mode, the bell will ring at 35, then 
again at 38 and 39, dropping you to the next line at 39. To avoid an extra blank 
line because of the 40th character, 39 was used instead of 40. 

B— Print bulletin. Prints bulletins at beginning of program. 

(C/R) to continue, (E) to end ? 

D— Duplex Switch. Alternately selects full or half duplex operation and informs 

yOU Of Current StatUS. Table continues 



used for goodbye on some systems, is 
used for graphics on Forum-80. Also, the 
same letter can have entirely different 
meanings as sub-commands within a 
single system. 

Adding the Printer and Stringy/Floppy 

With a few contacts under my belt, I 
decided to add the printer so I could have a 
printout of what was happening on the 
screen. I have an Okidata Microline-80 
printer with a Centronics-compatible 
parallel interface, so I'm able to use a Radio 
Shack Printer Interface Cable (#26-1411) 
without modification. 

Since I don't have an expansion inter- 
face and the Microconneot ion was already 
plugged onto the card edge at the left rear 
of the keyboard, I used a two-for-one bus 
extender from Exatron. This is a five-inch 
long 40-wire ribbon cable with a 40-pin 
male card-edge connector on one end, a 
40-pin female card-edge connector on the 
other end, and a 40-pin male card-edge in 
the center. This allows you to connect two 
40-pin cables to the keyboard in parallel. I 
connected both the printer interface cable 
and the Microconnection cable to the 
keyboard using a bus extender. To use the 
printer with the S80 software, press the 
Shift, Up-Arrow and P keys at the same 
time. To stop printing, press the Shift, Up- 
Arrow and S keys at the same time. 

Next, using another two-in-one bus ex- 
tender, I added the Exatron String/Floppy 
tape storage unit. I made a copy of S80 on 
a String/Floppy wafer, and it loads the S80 
program in a few seconds. The system, 
with printer, Stringy/Floppy and Microcon- 
nection connected parallel to the key- 
board, worked just fine. No crosstalk or in- 
terference has been noted even after 
several months of operation. 

Talking to an Apple 

I noticed several bulletin boards listed 
that were local phone calls— but they were 
all listed as ABBS. (Apple Bulletin Board 
System). I knew an Apple used a different 
Basic than a TRS-80, and that the screen 
on a standard Apple computer showed only 
40 characters on a line, although the TRS-80 
had 64 character lines. I dialed the Canoga 
Park ABBS at (213) 340-0135. Everything 
worked perfectly; I have since found that 
computer communication over the phone 
lines is by standardized character code 
(300-baud ASCII) using standardized 
frequency-shift keying (Bell 103), so any 
computers using these standards can talk 
to each other— Apple, PET, TRS-80, OSI, 

etc. 

My first session with the Canoga Park 
system yielded a four-foot long printout in 
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Table continued 

E— Enter message. Allows you to enter a message into system. Enter com- 
mands are basically self explanatory. A carriage return (C/R) at this point will 
list out the command menu for entries. The change command allows you to 
change an entire line but not just change part of it. Make sure when you are 
done with the message to save it to disc with the 'S' command. 

(C/R) to continue, (E) to end ? 
G— Goodbye. Exit program. 

H— Help. Prints this routine. 

K— Kill a message. Enter this to delete a message from the file. A password 
may be necessary if one was used at the time of message entry. 

L— Line feed on/off. Normally on. For terminals that need an extra linefeed 
character to advance to the next line. 

(C/R) to continue, (E) to end ? 

N— Nulls. Adds an extra delay after a carriage return to allow printers time to 
move the printerhead back to starting position. This option only works with 
the line feed option on. Each null is equivalent to 30 milliseconds delay and is 
adjustable from 1 to 30. It defaults to one. 

Q— Quick scan. An abbreviated scan See 'S'. 

R— Retrieve messages. Allows you to retrieve a message from the file. 

(C/R) to continue, (E) to end ? 

Table continues 



seven minutes and six seconds— and that 
included the time I spent scratching my 
head trying to figure out what to do next! 
Now I had the command and control codes 
for a typical ABBS system. (See Table 1 for 
main commands and control characters.) 
Additional sub-commands are described 
during specific functions if you hit Enter 
instead of entering a command. 

I called another local system— the 
Woodland Hills ABBS at (213) 346-1849. 
This system included an automatic log-on 
function and a Chat mode. Typing a C as a 
command alerted the system owners (if 
they were available) who could use their 
Apple keyboard to send a message in real 
time; I'd answer from my keyboard. It's like 
RTTY (radio teletype) but uses the video 
screens instead of printers. 

A Visit to the Big Apple 

Since this system was located only a 
few miles away, I made an appointment to 
see it in operation. I couldn't believe how 
simple it was: An Apple II with 48K RAM, 
two disks, a 12-inch video monitor and a 
D.C. Hayes auto-answer modem are con- 
nected to a standard telephone. When it 
rings, the auto-answer modem triggers the 
computer. The disk-based program was 
purchased for about $40 from Rainbow 
Computing in August 1980. No user's guide 
is necessary, since the program is self-doc- 
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INTRODUCING THE FIRST PASCAL COMPILER 
FOR TRS-80* MODEL I AND MODEL 



* * 



• FAST ONE PASS RECURSIVE DESCENT DESIGN 

• CONFORMS CLOSELY TO ISO DP 7185.1 

• SYNTAX ERROR CHECKING 

• ACCESS TO TRS-80 GRAPHICS AND RANDOM NUMBER GENERATOR 

• COMPLETE DOCUMENTATION 

• RUNS UNDER TRS DOS 

SEND CHECK OR MONf V ORDER - 0% SALES TAX FOR CALIF ORDERS 



♦TRS-80 IS A TRADEMARK OF TANDY CORP. 
♦•MINIMUM 32-K AND SINGLE DISK DRIVE 



ONACKI SYSTEMS 

5161 COLE ST. 

SAN DIEGO, CA 921 17 



~1 



ONACKI 



>N> 



• 427 
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RACET SORTS — RACET UTILITIES — RACET computes — RACET SORTS — RACET UTILITIES — RACET computes — RACET SORTS — RACET UTILITIES — RACET computes — 

I 




FIELD PROVEN!! 

10 MEGABYTES and MORE for the TRS-80* Model II 
plus SHARED ACCESS to HARD DISK DRIVE 



£■ RACET computes 3 



£ CIRCLE READER REQUEST FOR FREE 24-PAGE CATALOG CHECK. VISA, M/C, C 0.0. PURCHASE OROER U~ llflVb I UWMrUFM J ^^ 

52 -TRS-80 IS A TRAOEMARK Of TANDY CORPORATION TELEPHONE ORDERS ACCEPTED (7141 997-4950 1330 N GLASSELL SUITE M 0MN8E 

RACET SORTS — RACET UTILITIES - RACET computes - RACET SORTS - RACET UTILITIES - RACET computes — RACET SORTS - RACET UTILITIES - RACET computes - 



I Hard/Soft Disk System (HSDS) Software allows access as single drive. You can have that 10 Megabyte continuous file - that 50,000 name maillist or inventory! » 

S Or a directory with 1000 entries! All completely compatible with TRSD0S 2.0 BASIC. You can mix floppy and hard disk drives. Includes special utilities including ui 

£ HPURGE. DCS Directory Catalog System, HZAP Hard Disk Superzap. and many special formatting options. Three to eight times taster than floppy! RACET quality < 

o °F 

£ HARD DISK DRIVE* CONTROLLER $5995. Second User $595. HSDS Software $400. (Note: HSDS now also available for C0RVUS drives!!) J, 

1 KFS-80 (1-drive 32K Min - Mod II 64K) Mod I and III $100, Mod II $175 £ 

2 Assembly language ISAM facility! Interfaces with BASIC. Very fast access to records in large files. Access/insert times 1 -4 seconds. 5 
t B-Tree directory structure eliminates record search. No file reorganization required. Sector buffering reduces media and drive wear while increasing performance. r> 
p Can be used for primary and secondary file database applications. Records are kept in sorted order on disk by alpha key. Deferred write option. Comprehensive £ 
h file maintenance and debugging utilities are included . Attention applications programmers - Save time in implementing your custom database application software. <£ 
S MAILLIST (1 -drive 32K Min - Mod II 64K) Mod I and III $75, Mod II $150 x 
k This ISAM-based maillist minimizes disk access times. Four keys — no separate sorting. Supports 9-digit zip code and 3-digit state code. Up to 30 attributes. J, 

1 Mask and query selection. Record access/update time 1 -4 seconds! ! c 
£ DISCAT(32K1-driveMm)Modlandlll$50 £ 
o This comprehensive Diskette Cataloguing/Indexing utility allows the user to keep track of thousands of programs in a categorized library. Machine language program tu 
{2 works with all TRSDOS and NEWDOS versions. Files include program names and extensions, program length, diskette numbers, front and back, and diskette ^ 

free space. RS232 drivers and other features. * 

2 LPSPOOL (32K 1 -drive Min) Mod I $75 J 

1 LPSPOOL — Add multi-tasking to permit concurrent printing while running your application program. The spooler and despooler obtain print jobs from queues s 

2 maintained by the system as print files are generated. LPSPOOL supports both parallel and serial printers. | 

1 BASIC LINK FACILITY 'BLINK' (Mod I Min 32K 1 -disk) Mod I $25; Mod II $50; Mod III $30 ° 
| Link from one BASIC program to another saving all variables! The new program can be smaller or larger than the original program in memory. The chained program fo 
£ may either replace the original program, or can be merged by statement number. The statement number where the chained program execution is to begin may o 
£ be specified! * 
g INFINITE BASIC (Mod I & Mod III Tape or Disk) Mod I $50; Mod III $80 ^ 

1 Extends Level II BASIC with complete MATRIX functions and 50 more string functions. Includes RACET machine language sorts! Sort 1000 elements in 9 seconds!! y 

2 Select only functions you want to optimize memory usage. 3 
E INFINITE BUSINESS (Requires Infinite BASIC) Mod I & III $30 e, 
p Complete printer pagination controls — auto headers, footers, page numbers. Packed decimal arithmetic — 127 digit accuracy + , -,*,/. Binary search of ft 
^ sorted and unsorted arrays. Hash codes. " 
S COMPROC (Mod I & Mod III — Disk only) Mod I $20; Mod III $30 * 
c Command Processor. Auto your disk to perform any sequence of instructions that you can give from the keyboard. DIR, FREE, pause, wait for user input, BASIC, ' 

1 No. of FILES and MEM SIZE, RUN program, respond to input statements. BREAK, return to DOS, etc. Includes lowercase driver software, debounce and screenprint! £ 
J2 6SF ( Mod I & 1 1 1 Tape or Disk - Specify Memory Size) Mod I $25; Mod II $50; Mod III $30 g 

Generalized Subroutine Facilities. The STANDARD against which all other sorts are compared! And then compare prices! Machine language — fast and powerful! ^ 
• Multi-key multi-variable and multi-key character string. Zero and move arrays. Mod II includes USR PEEKS and POKES. Includes sample programs. o 

3 OSM (Mod I Min 32K 2-drive system. Mod II 64K 1-drive. Mod III Min 32K 1-drive) Mod I $75; Mod II $150; Mod III $90 c 

2 Disk Sort/Merge for RANDOM files. All machine language stand-alone package for sorting speed. Establish sort specification in simple BASIC command File. . 

I Execute from DOS. Only operator action to sort is to change diskettes when requested! Handles multiple diskette files! Super fast sort times — improved disk I/O i 

% times make this the fastest Disk Sort/Merge available on the TRS. | 

\ UTILITY PACKAGE (Mod II 64K) $150 | 

1 Important enhancements to the Mod II. The file recovery capabilities alone will pay for the package in even one application! Fully documented in 124 page manual! 8 

XHIT, XGAT, XCOPY and SUPERZAP are used to reconstruct or recover data from bad diskettes! XCOPY provides multi-file copies, 'wild-card' mask select, fc 
§ absolute sector mode and other features. SUPERZAP allows examine/change any sector on diskette including track-0, and absolute disk backup/copy with I/O " 

< recovery. DCS builds consolidated directories from multiple diskettes into a single display or listing sorted by disk name or file name plus more. Change Disk <2 
°[ ID with DISKID. XCREATE preallocates files and sets 'LOF' to end to speed disk accesses. DEBUG! ! adds single step, trace, subroutine calling, program looping. Jl 
to dynamic disassembly and more! ! \a 

1 BASIC CROSS REFERENCE UTILITY (Mod II 64K) $50 g 
d SEEK and FIND functions for Variables, Line Numbers, Strings, Keywords. 'AH' options available for line numbers and variables. Load from BASIC — Call with h 
o 'CTRL'R. Output to screen or printer! ^ 
£ DEVELOPMENT PACKAGE (Mod II 64K) $125 o 

< Includes RACET machine language SUPERZAP, Apparat Disassembler, and Model II interface to the Microsoft 'Editor Assembler Plus' software package including <r 
f uploading services and patches for Disk I/O. Purchase price includes complete copy of Editor Assembler + and documentation for Mod I. Assemble directly I 
J, into memory, MACRO facility, save all or portions of source to disk, dynamic debug facility (ZBUG), extended editor commands. £ 
£ DEALER inquiries invited. System Houses - check for special pricing on hard drives and software. 



"Prepare to communicate with giants like 
The Source and CompuServe. " 



Table continued 



S— Summarize messages. Allows you to scan over messages starting at the 
message # you specify. 

T— Time and date. Gives you the current time and date. This is also used 
automatically during log-in. 

W— Welcome. Prints welcome message at beginning of program. 

X— Expert user. Does away with certain explanatory messages during the pro- 
gram. It also allows certain C/R-defaults. Ex: A C/R in response to functions? 
will print functions supported by the system. 

—Prints functions supported in that current mode of operation. 



is self -documented and prompts the user. 

Forom-80 

While there are many bulletin board 
systems you can use with a TRS-80, the 
most widely available system designed 
with the TRS-80 user in mind— and using a 
TRS-80 as the host computer— is the 
Forum-80. Bill Abney, the father of 
Forum-80, spent two years writing the 
combination Basic and machine language 
programs. If you have an interest in setting 
up a bulletin board system, the current 3.1 
version is available for a one-time license 
fee of $150, which includes free technical 
advice. 

A minimum Forum-80 bulletin board 
system requires a TRS-80 with 48K RAM, 
three 35-track disk drives, an RS-232 board 



and an auto-answer modem. You can call 
Abney from 5 p.m. to 10 p.m. EST weekdays, 
or 10 a.m. to 7 p.m. weekends (816) 921-9439 
for further information. 

You can use a Forum-80 system by 
following the screen prompts and using 
the Help command. However, the system 
offers sophisticated features and many 
commands and sub-commands that can 
save you a lot of time and make your con- 
tact more efficient. To encourage proper 
utilization of Forum-80 systems, Abney 
distributes free user's guides, in two 
volumes. Volume I is the basic system and 
Volume II covers the more advanced 
features. For copies send a self- 
addressed, stamped, legal size envelope 
for each volume. 

Postage is 28 cents for Volume I and 41 



cents for Volume II. Mail to user's guide, 
Forum-80 Headquarters, 7600 East 48th 
Terrace, Kansas City, MO 64129. 

Bulletin Board Roster 

There are at least 200 bulletin board 
systems on line around the United States. 
Some lists have been published previously 
(80 Microcomputing, May 1980, page 110, 
and Kilobaud Microcomputing, October 
1980, page 158) but the picture keeps 
changing. The most extensive list I know 
of is offered free; send a self-addressed 
stamped envelope to The Microperipheral 
Corporation, P.O. Box 529, Mercer Island, 
WA 98040— (206) 454-3303. 

What Good Are The BBs? 

You might wonder why you should get 
excited about using a computer bulletin 
board when a phone call or letter might be 
more efficient. Consider this: You and your 
computer are in the forefront of a new 
technological explosion in the information 
and communications fields. Bulletin 
boards are a training ground for develop- 
ing new communication techniques. Also, 
some allow programs to be uploaded (from 
your computer memory to the host comput- 
er memory) or down-loaded (from the host 
computer to your computer memory) in vari- 
ous languages. As this sophistication pro- 
ceeds, so will your ability to use your equip- 
ment and knowledge. Furthermore, bulletin 
boards prepare you to communicate with 
giant information systems like The Source 
and CompuServe.! 



ONINITERNI 

What Is OMNITERM? 

OMNITERM is a protessMtal eornmunicatiore package tor the TRS-80 that allows 
yoi to easily communicate and transfer files or programs with almost any other 
computer We've never found a computer that OMNITERM cant wort with. It's a 
complete package because it iodides not only the terminal program itself, but also 
convention utilities, a ttxt editor special conflguratten files, serious 
documentation and serious support 

Why do I need It? 

Yn need OMNITERM il yn need to communicate efficiently with many different 
computers, or if you want to customize your TRS-80 for use with one particular 
computer You need OMNITERM to SOLVE your communications problems once 
and for all 

What do I get? 

The OMNITERM package includes the OMNITERM terminal program, four 
conversion utilities, a text editor, and setting files for use with popular computers 
such as CompuServe, the Source, and Dow Jones —just as samples of what you can 

lindborgh Systems 



The ULTIMATE TRS-80 Terminal Package 



do for the computer you want lo wort with The package ledooes six programs, scvet 
data files and real documentation a TtS-pagc manual that has been called "the best in 
the industry." And OMNITERM comes with real user support We can be reached 
via CompuServe. Source, phone or mail to promptly answer your questions about using 

OMNITERM 

What do I need to use OMNITERM? 

A Model I or Model III TRSUO^t least 32K of memory, one disk and the RS-232 
interlace OMNITERM works with all ROMs and OOSes. and will wort with your 
special keyboard drivers 

What will it do? 

OMNITERM allows you to translate any character going to any device: printer, screen, 
disk keyboard, or communications line, giving you complete control and allowing you to 
redefine the character sets of all devices It will let you transfer data, and run your 
printer while connected for a record of everything that happens. OMNITERM can 
reformat your screen so thai 80. 32 or 40 column lines are easy to read and look neat on 
your TRS-80 screen It even lets you get on remote computers with just one keystroke 1 
The program lets you send special characters, echo characters, count UART errors, 
configure your UART. send True Breaks and use lower case It accepts VIDEOTEX codes, 
giving you lull cursor control. It will even let yea review text that has scrolled off 
the screw 1 Best of all OMNITERM will save a special file with all your changes so you 



41 Fairhill Road, Holden, MA 01520 (617) 852-0233 



can quickly use OMNITERM for any 
one of many different computers by 
loading the proper file It's easy to use 
since it's mens driven and gives you a 
full status display so you can examine 
and change everything 

"OMNITERM has my vote as the top 
TRS-80 terminal program available today 1 ' 
Kilobaud Microcomputing June 1961. 
pages 16-19 

OMNITERM is $95 (pros shipping if 
COO) Call for 24 hour shipment Manual 
alone $15. applied toward complete pack- 
age. Visa, M/C, and COO accepted. MA 
residents add 5% tax. Dealer inquiries 
invited. 

Contact Lindbergh Systems for your 
custom programming needs. We are 
expert at writing software to wort with 
YOUR hardware, in assembler, high-level 
laaoaagt or Forth. 

►^391 
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'430 












YOU IM81 02 

Attend the biggest public computer shows in the couniry. 
Each show has 100.000 square feet of display space fea- 
turing over 50 Million Dollars worth of software and hard- 
ware for business, industry, government, education, home 
and personal use. 
You'll see computers costing $150 to $250,000 including 
mini and micro computers, software, graphics, data and word 
processing equipment, telecommunications, office machines, 
electronic typewriters, peripheral equipment, supplies and com- 
puter services. 

All the major names are there including; IBM. Wang. DEC. 
Xerox. Burroughs. Data General. Qantel, Nixdorf, NEC. Radio 
Shack, Heathkit, Apple. RCA. Vector Graphic, and Commo- 
dore Pet. Plus, computerized video games, robots, com- 
\puter art. electronic gadgetry. and computer music to 
entertain, enthrall and educate kids, spouses and peo- 
ple who don't know a program from a memory disk. 
Don't miss the Coming Of The New Computers - 
- Show Up For The Show that mixes business with 
pleasure. Admission is $5 for adults and $2 for chil- 
dren under 12 when accompanied by an adult. 



Ticket Information 

Send $5 per person with the name o» the show 
you will attend to National Computer Shows 
824 Boyiston Stieet Chestnut Hill Mass 02167 
Te> 617 739 2000 Tickets can also be purchased 
at tne snow 



THE 

NORTHEAST 

COMPUTER 

SHOW 

BOSTON 

Hynes Auditorium 

PRUDENTIAL CENTER 

THURS-SUN 

OCT 15-18, 1981 

1 1 AM TO 7PM WEEKDAYS 
11 AM TO 6PM WEEKENDS 



THE 
MID-WEST 
COMPUTER" 
SHOW 

CHICAGO 
McCormick Place 

SCHOESSUNG HALL 
23rd & THE LAKE 

THURS-SUN 
SEPT 10-13, 1981 

1 1 AM TO 7PM WEEKDAYS 
11 AM TO 6PM WEEKENDS 



THE 

MID-flTLfiNTIC 

" COMPUTER ~ 

SHOW 

WASHINGTON, DC 
DC Armory/Starplex 

2001 E CAPITAL ST SE 

(ECAP ST EXIT0FFI295 

-KENILWORTH FRWY) 

ACROSS FROM RFK 

STADIUM 

THURS-SUN 

SEPT 24-27, 1981 

1 1 AM TO 7PM WEEKDAYS 

1 1 AM TO 6PM WEEKENDS 



THE 

SOUTHEHST 

COMPUTER 

SHOW 

ATLANTA 
Atlanta Civic Center 

395 PIEDMONT AVE NE AT 
RALPH McGlLL BLVD 

THURS-SUN 
OCT 29N0V 1,1981 

1 1 AM TO 7PM WEEKDAYS 
1 1 AM TO 6PM WEEKENDS 



THE 

SOUTHERN 

CRUFORNIR 

COMPUTER 

SHOW 

LOS ANGELES 

LA Convention Center 

1 201 SOUTH FIGUEROA 

THURS-SUN 

MAY 6-9, 1982 

1 1 AM TO 7PM WEEKDAYS 
1 1AM T06PM WEEKENDS 



•See List of Advertisers on page 386 
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MORE POWER 



We stock the complete line of hardware, 
software, and accessories 



MODEL II 



MODEL III 



COLOR 
Computer or Video 







26-4002 64K 1 D 


rive 




$3500.00 




26-4160 


1 Drive Exp 


$1030 00 


26-4161 


2 Drive Exp 


. 1560 00 


26-4162 


3 Drive Exp 

PRINTERS 


. 2100 00 


26-1155 


Quick Printer 


S180 00 


26-1167 


9V4 Dot Matrix Printer 


. . 325 00 


26-1166 


Line Printer VI 


. 1025 00 


26-1158 


Daisy Wheel II 


1725 00 


26-1165 


Line Printer V 


. 1625 00 



W^ 



26-1061 4KI S620OO 

26-1062 »6K III 675 00 

26-1066 48K III 

W/2 Drives RS232 .2180 00 



POCKET COMPUTER 




^J_I_ll_Jl_ILJI_IL_JLJI_0«*Miat 

— )_ l_J_JUUL.Lil. nuuBD 

I- J LJ[L-_] 






j . j l J : 



HBOUB 



26-3001 4K S330 00 

26-3002 16K Ext Basic 480 00 

26-3008 Joysticks 25 00 

26-3010 Color Video 370 00 

26- 1 206 Recorder 59 00 

PERIPHERALS 

26-1140 Expansion Interface S250 00 

26-1141 16K Expansion Interface 

with A M Ram 310 00 

26-1142 32K Expansion Interface 

with A M Ram 350 00 

26-1145 RS232C Board 84 00 

26-1160 1 Mini Disk Drive 420 00 



26-3501 1 9K P C S185 00 

26-3503 Cassette 1 F 49 00 

14-812 Recorder 79 00 



DEALER P124 



Fowlerville:111 North Grand, Box 1071, 

Fowlerville, Ml 48836 

(517)223-7281 



m 



* Includes A.M. Electronics 90 Day Warranty 

R.S. 90 Day Limited Warranty 
F-48 Form Provided 



Ann Arbor: 3366 Washtenaw Ave. 
Ann Arbor, Ml 48104 
(313) 973-2312 



OS 



The power behind the drives' 

A.M. ELECTRONICS, INC. 
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Also, we specialize in complete, powerful software 
packages for business. Put your TRS-80™ to work for you! 



Dealer /Service Center 
Record Package 

This package, built in several modular 
packages, can be used separately, or in 
combination as a complete system. The 
modular units are self-contained. When 
combined, they will make the most 
complete and comprehensive service 
center bookkeeping/record-keeping 
package on the market. 

A complete history of customer repair 
files is maintained on-line. Customer files 
can be accessed by account number or 
customer name. The information file 
includes customer name, address and 
telephone number, make of unit, service 
dates, name of servicing technician, 
services perfor med. and total billed. This 
information can be called to the screen 
or printer as a total list, or by the last 
service date. 

The customer records module can 
post to accounts receivable module, 
payroll module and our Inventory Control 
System. 

A Model I computer, with four 80-track 
drives, or a Model III computer, with two 
80-track drives will hold approximately 
1 ,800 customers and records. By adding 
additional drives to the Model III, more 
than twice this amount of information 
can be maintained. By switching 
diskettes in drives, the capacity is 
unlimited. 

Versions of Dealer Service Center 
Record Package are available for Auto 
Dealers, Mechanics, TV Repair Centers, 
Electronic Technicians and Appliance 
Repair Centers. $199.95 

Order Entry (With 
Invoicing & Inventory) 

Orders are composed of name and 
address information (with optional 
company name), method of shipment, 
method of payment, items on order, 
quantities, prices, description, and stock 
number. The system also prints invoices. 

At point of shipment, inventory is 
automatically updated and dollar sales 
recorded. Shipping charges are logged 
and shipping date recorded. All entries 
may be edited and partial shipping is 
permitted. The inventory module allows 
checking and updating stock, inventory 



See your nearest 
A.M. Electronics, Inc. dealer 

Here is a partial listing of authorized AM 
Electronics, Inc. dealers: 



ARIZONA 

MU Computer Product* 

POBo. 13687 

TuCSOn Ariiona 85710 

Microcomputer!. Inc. 

4322 E Fairmont 

Phoenix Anion* 850 '8 

CALIFORNIA 

RAC Product* 

3200 KnighlSwOOO Way 
San Jose California 95 MB 

CONNECTICUT 

Mountain View Software 

Mirybrook Road 

Oanbury Con iieci.ru! 068 10 

Computer Service* ol Oanbury 

14 Summit Street 
OanOu'y Connecticut 06810 



DIST . OF COLUMBIA 

PFOOjvsfn Stow 
4200 Wisconsin Ave NW 
Washington DC 20016 



FLORIDA 

Computer World* 

2232 East Bay Drive 
Clearwater Florida 33516 
Adventure International 

507 East Street 

Longwood Florida 32750 

MSyetemaGo 

105 West Plant Street 

Winter Caroen Florida 32787 

ILLINOIS 

3H Computer 

1950 Bitter Road 

Aurora Illinois 60504 

AAA Chicago Computer Center 

120 Chestnut Lane 

Wheeling. Illinois 60090 

Midwett Computer Peripherals 

1467 S Micnigan Ave 

Chicago Illinois 60605 

MASSACHUSETTS 

SmaH Bu*« n «** System* Group 

6 Carlisle Ftoad 

Wesitord Mass 01886 

1899 Mam Street 

Tewksbury Mass 01876 

Computer Ptu* 

245A Great Road 

Littleton Mass 01460 



Remarkable Software 

1 506 A Defense 

Muskegon. Michigan 49441 



438 East Lake Street 
Petoskey Michigan 49770 

Eight Bit Comer 

722 Evanslon Avenue 

Muskegon. Michigan 49442 

Soft Sector Marketing, Inc. 

6250 Middlebelt Road 

Garden City. Michigan 48135 

Matrix Software 

315 Marion Avenue 
Big Rapids Michigan 49307 

Breeze Computing 

PO Box 1013 

Berkley. Michigan 48072 

NEW HAMPSHIRE 

Hardafcte 

6 South Street 

Mtttord New Hampshire 03055 

NEW JERSEY 

Floppy DIM Service* 
40 Misty Morn Lane North 
Trenton New Jersey 08638 

NEW MEXICO 

Rocky Mountain Engineering 

4749 Southern S E 

Albuquerque. New Mexico 87108 

NEW YORK 

John D. Ow e n* Aeae e iate*. Inc. 

12 Schubert Street 
Staten Island New York 10305 

■ T. Enterpr i se * 

171 Hawkins 

Centereach New York it 720 

NORTH CAROLINA 

Alpha Technology 

1201 Wicker Drive 

Raleigh North Carolina 27604 

OHIO 

Electronic* Unlimited 

824 East 14th Street 

Ashtabula Oh* 44004 

OREGON 

1300 Centre Electronic* 

1300 6th Street 
Lfmatirla Oregon 97882 

PENNSYLVANIA 

Steven* Radio Shack 

562 Null Road 

Phoennviile. Pennsylvania 19460 



MICHIGAN 

Adapt* — 

600 28th Street 
Grand Rapids. Michigan 49509 



TEXAS 

Quality Soltw.r* 

1500 Sternmons Expressway 

Dallas Texas 75229 



reports, sales reports, shipping charges, 
etc. 

Order Entry is a complete order entry 
system, designed for almost any retail 
and /or wholesale business. Its capacity 
is upward-expandable from a dual 40- 
track Model I system: 1 ,750 inventory 
items, 385 orders per diskette. $199.95 



Inventory Control System 

This system gives the user complete 
access to and control over an unlimited 
number of inventory items. (Note: It has 
been found that systems containing 
more than 1 3,000 items are difficult to 
handle, from a maintenance time 
standpoint. Operations, such as Block 
File reorganization can take more than 3 
hours.) 

As presently configured, a Model I 
computer with one 40-track drive will 
hold 1 ,925 items, or for a four-drive 
system a total of 6,625 items. Four 80- 
track drives will hold in excess of 1 3,000 
items. A Model III computer, with two 40- 
track drives, will hold about 1 3,000 parts. 
If required, A.M. Electronics can modify 
both the program and hardware 
configuration to allow on-line storage of 
an unlimited number of items. As the file 
becomes larger, maintenance 
operations take longer. Average search 
time is six seconds, with 1 2 seconds the 
longest time. 

Upon program initialization, the user 
specifies the item number and 
description digit length. This allows for 
Hern numbers up to 23 alpha-numeric 
characters. (As item number digits 
increase, digits for description usage are 
decreased.) 

The program is completely menu- 
driven. Items can be added, edited or 
deleted from the file. Items can be 
placed on order, received to stock, or 
sold from inventory. Complete printout 
capabilities are available through the 
printout menu. 

Item information includes: item 
number, description, supplier, re-order 
point, cost, wholesale and retail selling 
price, quantity, on-order, and total sold. 
The re-order point is calculated by the 
program, based on number of items sold 
over a period of time. The time period is 
established at program initialization. 
$199.95 

Get a sample 

sof t w a re printout — Free! 

Call or write us to get sample program 
printouts for these programs, or if you 
need more information. Well be happy to 
send it to you. 



Th9 power DaVhnO 



m 

A.M. ELECTRONICS, INC. 



-452 



Ann Arbor: 3366 Washtenaw Ave.. Ann Arbor, Ml 481 04 (31 3) 973-231 2 Store Hours: Monday-Friday 1 0-6. Sat. 1 0-5 

Grand Opening of our Radio Shack Authorized Dealership at: 1 1 1 North Grand, Box 1 071 . Fowlerville, Ml 48836 (51 7) 223-7281 

Attention Dealers, OEM's & Distributors: Call us for details on our attractive pricing. 



•TRS-80 is a tiadema-x ol Tandy Corp 



Prttes suOieci 10 change wnnoui nonce 



■ See List ol Advertisers on page 386 
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APPLICATION 



Calculating time and place all year. 



Sunrise . . . Sunset 




Harold K. Skramstad 
8045S.A1A Hwy. 
Melbourne Beach, FL 32951 



Would you like to know the 
time of sunrise and 
sunset without having to look it 
up in the daily newspaper? The 
following program finds the 



declination of the sun, the 
equation of time (the difference 
between apparent and mean 
time), the compass direction of 
the sun at sunrise and sunset, 
and the time of sunrise and 
sunset for any point in the con- 
tinental United States. 

If you are interested in these 
values for only your own loca- 
tion, the program can be 



simplified by replacing the 
statements before line 210 with 
statements giving the values of 
LA— your latitude in degrees 
and tenths, and TD— the time 
difference between sun time 
and standard time for your 
location. 

The declination D and the 
equation of time E are approx- 
imated by finite Fourier series 



in terms of X, the week number 
and fraction of the week, in 
lines 280 and 340. The value .04 
in lines 530 and 560 is a correc- 
tion for the refraction of light in 
the earth's atmosphere at 
sunrise and sunset. 

I have found this program to 
agree within two minutes with 
the times of sunrise and sunset 
given in the local newspaper. ■ 



Program Listing 



19 PRINT'THIS PROGRAM FINDS THE DECLINATION OP WE SON, THE EQUA 

TION' 

21 PRINT'Of TIME, THE AZIMUTH ANGLES OP SUNRISE AND SUNSET, AND 

THE' 

31 PRINT-TIMES OP SUNRISE AND SUNSET POR ANY POINT IN THE CONTIN 

ENTAL" 

41 PRINT-UNITED STATES." 

1§B DIM 11(12) 

Hi PL-3. 14159/26: J-57. 29578 

121 INPUT-ENTER LATITUDE (DEC. ,MIN.) " ;D1 ,M1 

131 LA-Dl+Hl/69 

141 IMPUT'EMTER LONGITUDE (DEC. ,MIN.) '»D2,M2 

158 INPUT-ENTER TIME ZONE (E,C,M,P) *»TS 

1(8 IP T$"-E' THEN LO-75: GOTO 218 

178 IP TS--C- THEN LG-9B: GOTO 218 

188 IF T$--M- THEN LO-195: GOTO 218 

198 IF TS-'P" THEN LO-128i GOTO 218 

288 GOTO 151 

218 TD-(D2+M2/68-LO)/15 

228 INPUT-ENTER MONTH NO., DAY OP MONTH' »M, DA 

238 POR 1-1 TO 12: READ N(I): NEXT 1 

248 DATA 8,31,59,98,128,151 

258 DATA 181,212,243,273,384,334 

268 X-(N(M)+DA)/7 

288 D-. 456-22. 915*COS(PL*X>-.439*COS(2*PL*X)-.156-COS(3-PL*X) +3. 

83B»SIN(PL*X)+.B68*SIN(2-PL*X)-.882*SIN(3*PL*X) 

318 PRINT 

318 PRINT-DECLINATION OF SUNi"; 

328 PRINT USING*IM.I*;D; 

111 mHT' DEGREES' 

348 E-.99B*.S18*COS(PL*X)-3.197«COS(2-PL*X)-.186-COS(3-PL-X)-.15 



••COS(4-PL»X)-7.317*SIN(PL*X)-9.471-SIN(2*PL-X)-.391-SIN(3*PL-X) 

-.242-SIN(4-PL*X> 

369 PRINT- EQUATION OF TIME:") 

379 PRINT USING*MI.»";Ej 

389 PRINT" MINUTES- 

398 CL-C0S(LA/J) : SD«SIN(D/J) : CD-COSID/J) : Y-SD/CL 

489 IF ABS|Y>»>1 THEN PRINT-NO SUNRISE OR SUNSET*: END 

418 Z«99-J-ATN(Y/SQR(1-Y*Y)> 

428 PRINT-AZIMUTH OF SUNRISE:'; 

438 PRINT USING*t*M.*';Z| 

449 PRINT* DEGREES* 

458 PRINT* AZIMUTH OF SUNSET: *; 

469 PRINT USING*lt*l.t*;369-Z; 

479 PRINT* DEGREES* 

488 ST"SIN(Z/J)/CD 

499 IF ABS(ST)>-1 THEN T-6 : TT-6: GOTO 529 

599 CT-SORd-ST-ST) 

519 T-J/15'ATN(ST/CT): TT-T 

529 IP D<9 THEN T-12-T: TT«T 

539 T-T+TD-E/69-.94 

548 GOSUB 681 

551 PRINT-TIME OF SUNRISE: *jT1S» *: *;T2$; * *iTS;".S.T.* 

568 T-12-TT: T«T*TD-E/69*.94 

578 GOSUB 689 

589 PRINT-TIME OP SUNSET: *;T1Sj ':* jT2S; * *)T$)*.S.T.* 

599 END 

699 Tl-INT(T): T2-T-T1: TlS-STRS(Tl) : T2-INT( (T2*698+5>/19> 

619 T2S-STRS(T2): T2S-RIGHT$(T2S,LEN«T2S)-1) 

629 IP INT(T2)<19 THEN T2S-*9-*T2S 

631 RETURN 



272 • 80 Microcomputing, October 1981 



THE GREAT 



2nd Edition 



A \ 



*Z± 



* 



Encyclopedia of the 
BASIC Computer Language 



by 
David A. Lien 



APPLE • TRS-80 ■ ATARI • IBM • DtC • ABC 80 • SHARP 
FXIDY • NFC • HEWLETT PACKARD • HEATH 

IM80 • TEXAS INSTRUMENTS • PET • N ™™S™ 
SINCLAIR • WANG VARIAN • OHIO SCIENTIFIC 



■he 



Ihe only book that simplifies the BASIC language by 
explaining its many dialects is now even better! We've added 
240 BASIC words from the world's latest computers, for a 
new total of nearly 500 words detailed in a concise 
easy-to-read manner. 

The 480-page 2nd Edition BASIC Handbook tells you 
everything you need to know about today's BASIC language. 
It explains all significant Statements, Functions, Operators 
and Commands, so you can put them to work instantly! 

If there's an alternate way to write a program using other 
BASIC words, the Handbook shows you how. If a program 
needs a Function your computer doesn't have, the Handbook 
generally has a subroutine which does the same thing. And 
it's all alphabetized and indexed for fast access! 

The big new 2nd Edition helps you convert those "strange" 
programs found in magazines and professional journals to 
RUN on your computer. Extra sections describe many 
specialty BASICS, including Atari, Sinclair, Tektronix, 
TRS/Color, plus Disk BASIC. 



For students, businessmen, hobbyists, and pros — anyone 
who works with BASIC, the updated Handbook is 
indispensable. Order your Second Edition today! It's the 
missing link between you and more computer power! 
r _____ — — — — — — — — — — — — - 

Yes! Give Me More BASIC Power! 

Please send copies of THE BASIC HANDBOOK 

2nd Edition. (30 day money back guarantee) 

D My check for $19.95 each and $1.65 P&H is enclosed. 

(Californians add 6% tax.) 
D Charge it to my MasterCard or Visa (circle one). 

Acct. No. Exp. Date 

Name 



Address 
City 



State. 



Zip 



Signature 

Mail to: CompuSoft® Publishing, 1050-E Pioneer Way, Dept. A 

El Cajon, CA 92020 
Or Call: (714) 588-0996 to order now! ^377 



APPLICATION 



Where you'll be with this meat inventory program. 



Fat City 



David D. Busch 
515 E. Highland Ave. 
Ravenna, OH 44266 

Letting your computer keep 
track of the meat in your 
home freezer can save frostbit- 
ten fingers and energy lost to 
escaped cold air. Better yet, 
firm control over what you have 
and don't have can keep you 
from accidentally dipping into 
the latest meat stocks while an 
older cut languishes at the bot- 
tom of the stack. 

Freezer Inventory was writ- 
ten to take some of the confu- 
sion out of stocking and main- 
taining meat in a home freezer. 
Some homeowners use log 
books which are difficult to 
maintain, never up-to-date, and 
time-consuming. It's usually 
necessary to do a physical in- 
ventory once each six months 
or so just to be sure of what's 
hidden in dark recesses of the 
freezer. 

Others stock and replenish 
by the seat of their pants, know- 
ing vaguely how much ground 
beef remains, and frequently 
allowing choice cuts to suc- 
cumb to freezer burn or some 
other malady because they 
were kept two or three years 
beyond the recommended 
freezer life. 

Features 

Freezer Inventory is a disk- 
based meat inventory system 
written for the TRS-80 Model I 



or III. Type, cut, weight and date 
frozen for up to 50 pieces of 
meat can be entered and 
stored. Depending on memory 
available, the number of items 
in the inventory can be in- 
creased. 

In accessing the data, the 
user can see a list of all the 
foods in the freezer or scan the 
available cuts of only one type 
of meat. Nervous types can 
also retrieve inventory items by 
age. The program presents a 
list of all meats that were 
frozen one to six months prior 
to the current date. 

Meats can be entered in one 
of seven different categories: 
pork, beef, lamb, fowl, ham, fish 
and other. Those who normally 
do not eat a certain type of 
meat for religious or other 
reasons can delete that selec- 
tions) from the list. On the 
other hand, if rattlesnake, 
game or goat is part of your 
menu, it can be added. 

Thirteen different cuts can 
be entered to further differen- 
tiate the item in the meat inven- 
tory. I put together the list to 
conform to the cuts we most 
frequently buy in our house- 
hold: three kinds of roasts, 
three kinds of steak, chops, and 
other configurations such as 
ground. Again, these may be 
altered by the user. 

To initialize the program, the 
data file must be created. This 
can most easily be done by 



typing DIM FOOD$(50,4) in the 
command mode, and then 
typing GOTO 1420. The pro- 
gram will open the file Foods, 
and save the available data (no- 
thing, at this point) to the disk. 
Then, a File Not Found error 
will be avoided when the pro- 
gram is first run. 

Data on the different meat 
types and cuts are Read into 
two string arrays, Type$(n) and 
Cut$(n), at the beginning of the 
program. Next, the user is con- 
fronted with a menu, which 
presents six options: 

• See list of all foods in the 
freezer. 

• See list of only one type of 
food in the freezer. 

• Add new foods to freezer 
inventory. 

• See list of foods by age. 

• Save information input this 
session to disk. 

• Remove an item from in- 
ventory. 

Entering New Food Data 

Depending on the option 
selected, control branches to a 
series of subroutines. Foods 
are added to the new or existing 
list as a subroutine at lines 
730-1030. The meat data are 
stored within the program in a 
two-dimensional string array, 
FOODS (row, column). The first 
row used, NF, indicates the 
number of foods in the file, and 
is incremented by one each 
time a new food is entered. 



To simplify printing out op- 
tions, code numbers instead of 
the actual names of the types 
of meat and cuts are stored in 
the array. The code number 
points to the element of 
TYPE$(n) and CUT$(n) ap- 
propriate to the item. 

The first column of FOODS 
(row, column) stores a number 
from one to seven, which 
stands for the name of the meat 
represented by that element of 
the string array Type$(n). For 
example, TYPE$(1) = PORK, so 
if a cut of pork were to be en- 
tered, a string containing the 
numeral "1" would be inserted 
in FOOD$(NF,1). 

The second column stores a 
string representation of the 
number that points to the 
CUT$(n) element equivalent to 
the cut selected. Chops would 
be the fourth element of 
CUT$(n), so to indicate pork 
chops, FOOD$(NF,2) would 
contain a four. 

The third column contains 
the actual weight of the cut, in- 
put by the user to the nearest 
half pound. Because the weight 
is stored as a string, the user can 
enter a number only, such as a 
four, or the words four pounds. 
The numeral must come first, 
as the program looks for the 
VAL of FOOD$(n,3) when de- 
leting a food from the list. 

The date the food was frozen 
is entered into the fourth col- 
umn (FOOD$(NF,4)). The format 



274 • 80 Microcomputing, October 1981 



MM/DD/YY must be used. That 
is, Aug. 4, 1981, should be 
entered as 08/04/81. No error 
trap is built in to catch im- 
proper input, and failure to con- 
form to the standard MM/DD/YY 
will make it difficult to delete 
an inventory item later. 

Entering new foods is fairly 
fast. Each of the TYPE$(n) and 
CUT$(n) options is presented to 
the screen in a pair of For. . . 
Next loops at lines 830-850 
and lines 920-940 respectively. 
INKEY$ input will refuse any 
values other than those of- 
fered. Next, the user can input 
the weight of the meat. Weights 
to the closest pound are sug- 
gested, because of the need- 
less complexity of converting 
pounds and ounces to decimal 
values. If two identical cuts of 
meat are entered on the same 
day, the user should enter 
slightly different weights to dif- 
ferentiate them. One could be 
four pounds, and the other 4.5 



pounds. Mark these working 
weights on the package of 
frozen meat so the correct 
weight can be entered when the 
item is deleted from the inven- 
tory. 

After the date Is input, con- 
trol reverts back to lines 
770-800, where the information 
entered is transferred to the 
correct element of FOOD$(row, 
column). Then, the program 
returns to the menu. 

You should remember to 
save current data to disk before 
exiting the program. By not hav- 
ing Save as an automatic step 
following the input of each new 
item of food, some time is 
saved whenever several items 
must be entered at one time. 
This will frequently be the case 
after a shopping trip, or when 
freezing a newly purchased 
side of meat. 

In addition, a list of the cur- 
rent foods in inventory, in- 
cluding the new entries, can be 



requested— prior to the Save. If 
a mistake is discovered in the 
new entries, the user can delete 
the error (using menu option 
six) before the data is saved. 
Only one disk I/O operation 
need be performed at the end of 
the session. 

Saving is performed at lines 
1420-1490. The number of 
foods (NF) is first Printed to the 
disk file Foods, and then each 
element of FOOD$(row,column) 
is recorded. Because the disk 
I/O time difference is almost 
negligible between having the 
Row loop increment from one 
to 50 and from one to NF, I 
elected to use the former, 
simpler system for program 
clarity. Those who find It 
necessary to redimension 
FOOD$(row,col) larger than 50 
rows may want to switch to the 
latter technique. 

Accessing the File 

The food file may be ac- 



cessed three different ways. In 
lines 250-270, all the foods in 
the file are displayed. A loop 
from one to NF repeats until all 
foods are listed to the CRT. 
Pauses are built in every 12 
foods by a check in line 290 that 
sends control to a wait sub- 
routine at lines 400-430. If the 
loop counter (N4) can be evenly 
divided by 12(N4/12 = INT(N4/ 
12)), then the user must hit any 
key to see the rest of the list. 

If only one type of meat is to 
be listed, a subroutine at lines 
450-710 checks FOOD$(N6,1) 
in line 590 to see if it matches 
the food type looked for (A$). If 
so, then the meat listing is 
printed to the CRT screen (lines 
660-710), and a counter (CU) 
that keeps track of when 12 
items have been found and dis- 
played is incremented. The 
same wait subroutine is used. 

Meats may also be listed by 
age (lines 1050-1400). The user 
inputs the current date as a 



Program Listing 




10 CLEAR 1000 


540 A=VAL(AS) 




2e SLS="/" 


550 IF A<1 OR A>6 GOTO 530 




38 DIM TYPE$(7) ,CUTS(13) ,POOD$(50,4) 


560 CLS:PRINT:PRINT 




40 GOSUB 1500 


570 PRINT "ALL " ;TYPE$ ( A) j " LISTED BELOW:" 




50 FOR N=l TO 7:READ TYPES (N) : NEXT N 


580 FOR N6-1 TO NF 




60 FOR Nl-1 TO 13:READ CUTS (Nl) :NEXT Nl 


59C IF FOODS (N6,l) -AS THEN GOSUB 660 




70 DATA PORK, BEEF, LAMB, FOWL, HAH, FISH, OTHER 


600 NEXT N6 




80 DATA ROAST, ROAST- RUMP, ROAST- RIB, CHOP, STEAK-SIRLOIN, STEAK-CHOC 


610 PRINT 




K , STEAK-ROUND , WHOLE , HALF , BREASTS , LEGS , GROUND , BRISKET 


620 IF C0»1 THEN PRINT "NO ";TYPES(A);" FOUND 1H FILE" 


PRINT 


90 ■ ...... HEUC ****** 


630 PRINT "HIT ANY KEY TO RETURN TO HEIiU" 
640 IF INKEYS-"" GOTO 640 




1B0 CLS: PRINT: PRIST 


650 GOTO 100 




110 PRINT " ENTER CHOICE :" 


660 CU=CU+1 




120 PRINT ■ 1.1 SEE LIST OF ALL FOODS IN FREEZER" 


678 IF INT(CU/12)=CU/12 COSUB 390 




130 PRINT " 2.) SEE LIST ONLY OF ONE TYPE FOOD IN FREEZER" 


680 PRINT CUTS ( VAL( FOODS (N6, 2) )) , 
690 PRINT FOODS(N6,3), 




148 PRINT " 3.1 ADD NEW FOODS TO FREEZER INVENTORY" 


700 PRINT FOODS (N6 ,4) 




153 PRINT " 4.) SEE LIST OF FOODS BY AGE" 


710 RETURN 




160 PRINT ■ 5.) SAVE INFORMATION INPUT THIS SESSION TO DIS 

K" 

17B PRINT " 6.) REMOVE AN ITEM FROM INVENTORY" 


720 ' *«*«»* ADD NEW FOODS TO FREEZER INVENTORY ««*«** 




730 CLS:PRINT:PRINT 




IBB PRINT 


740 NF-NF+1 




190 PRINT " >"; 


750 PRINT "FOOD TYPE OF NEW ENTRY :" 




200 AS=IHKEYS:IF A$«"" GOTO 200 


760 GOSUB 820 




210 A»VAL(AS) 


770 FOODS (NF,1) -AS 




223 IF A<1 OR A>6 GOTO 200 


780 FOODS(NF,2)-A2S 




230 ON A GOTO 240,440,720,1040,1410,1600 


790 FOOD$(NF,3)-A3S 




243 ' ****** LIST ALL FOODS IN FREEZER ****** 


800 FOOD$(NF,4)-A4$ 
810 GOTO 100 




250 CLS 


820 PRINT 




-6j SRIET "TYPE", "CUT", "WEIGHT", "DATE" 


830 FOR N2-1 TO 6 




273 fRINT 


848 PRINT K2;' ! "rTYPES'N:" 




263 FOR N4-1 TO NF 


850 NEXT N2 




292 IF IKT(N4/12)=N4/12 GOSUB 390 


860 PRINT 'ENTER CHOICE :"; 




Jlfi PRINT TYPES (VAL( FOODS! N4,l) ) ) , 


B70 A$»INKEY$:IF AS-"* GOTO 870 




31i PRINT CUTS(VAL(FOODS(N4,2) )) , 


880 A=VAL(A$) 




32.1 PRINT FOODS(N4,3), 


890 IF A<1 OR A>6 GOTO 870 




330 PRINT FOODS (N4, 4) 


900 CLS 




34 NEXT N4 


910 PRINT 




3 50 PRINT 


920 FOR N3-1 TO 13 




360 PRINT "HIT ANY KEY TO RETURN TO MENU" 


930 PRINT N3;".) "jCUTS(N3) 




370 IF INKEYS-"" GOTO 370 


940 NEXT N3 




3 80 GOTO 100 


950 PRINT 




3 90 PRINT 


960 PRINT "ENTER CUT OR TYPE : " ; 




40l) PRINT "HIT ANY KEY TO SEE REST OF LIST" 


970 INPUT A2S 




413 :F INKEYS-"" GOTO 410 


980 A2=VAL(A2S) 




4 23 CLS SPRINT 


990 IF A2<8 OR A2>13 GOTO 970 




43 3 s.ETL-s:. 


1008 CLS: PRINT: PRINT 




441 . ...... LIST ONLY ONE TYPE OF FOOD ****** 


1018 INPUT "ENTER WEIGHT TO CLOSEST POUND :";A3S 




453 il'J-1 


1828 INPUT "ENTER DATE FROZEN (MM/DD/YY] " ;A4S 




460 CLS: PRIST: PRINT 


1830 RETURN 




470 FOR H5-1 TC 6 


1840 ' ****** SEE LIST OF FOODS BY AGE ***•«• 




4E0 PRINT N5;".) "; 






493 FSIKT TYPES (MS) 


1850 CLS: PRINT: PRINT 




500 NEXT MS 


1060 INPUT "ENTER TODAY'S DATE : (MM/DD/YY) "; DATES 




51 (. PRINT 


1070 Y1S-RIGHT$(DATES,2) 




520 PRINT "ENTER CHOICE"; 


1080 M1S=LEFTS(DATES,2) 




530 A$-INKEY$:IF A$ = "" GOTO 530 








Program continues 
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Program continued 

' 1090 Yl-VAL(YIS) 
11BH Hl-VALlHlS) 
11 IB CLS: PRINT: PRINT 
112B FOR N7»l TO 6 
113B TY$«Y1S 
114(1 TM-H1-N7 

1150 IF TM<1 THEN TM=TM+12 : TY-Y1-1 :TYS-STRS (TY) 
116B PRINT 

117B PRINT "ALL FOODS ";N7;" .MONTHS OLD LISTED BELOW 
1180 PRINT 

119B PRINT'TYPE" , "CUT" , "WEIGHT" , "DATE" 
1200 PRINT 
1216 CU-1 

1228 FOR N8 = l TO NF 
123B YS«RIGHTS(FOODS(N8,4) ,2) 
1240 MS»LEFTS(FOODS|NB,4) ,2) 

1250 IF VAL(Y$) -VAL(TYS) AND VAL(H$)-TH THEN GOSUB 134( 
1260 NEXT N8 

1270 PRINT "HIT ANY KEY FOR REST OF LIST" 
1280 A$-INKEY$:IF AS'"" GOTO 1280 
1290 CLS: PRINT 
1300 NEXT N7 

1310 PRINT "HIT ESTER TO RETURN TO MENU" 
1320 IF INKEYS**" GOTC 1320 
1330 GOTO 100 
1340 CU-CUfl 

1358 IF CU/12<=IHT(CU/12) GOSL'B 390 
1360 PRINT TYPES(VAL(FOODS(NB,l) ) ) , 
1370 PRINT CUTS ( VAL( FOODS (N8, 2)) ) , 
1380 PRINT FOODS(N8,3) , 
1390 PRINT FOODS(N8,4) 
I486 RETURN 
1410 ' •*•**• SAVE FOODS TO DISK •••**» 

1420 OPEN "0",1 ."FOODS" 

1430 PRINT ll.NF 

1440 FOP ROWl TO bi 

1450 FOR COL-1 TO 4 

1460 PRINT II, FOODS (ROW, COL) :",": 

1470 NEXT COL, ROW 

14 80 CLOSE 1 

}4 9? GOTC Hi? 

15 0B . ..... L0AD F00 DS FROM DISK ••••*« 



1510 OPEN "I",l ."FOODS" 

1520 INPUT II, NF 

1530 FOR ROW=l TO 50 

15 40 FOR COL«l TO 4 

1550 INPUl ll,FOODS(ROW,COL) 

156 NEXT COL, ROW 

1570 CLOSE 1 

1580 RETURN 

1590 ••••••• REMOVE FOOD FROM INVENTORY 

1600 CLS:PRINT:PR1NT 

1610 PRINT "ENTER DATA ABOUT ITEM REMOVED FROM INVENTORY :" 

1620 GOSUB 820 

1630 FOR N9-=l TO NF 

1640 IF V AI.( FOODS (N9.1) ) -VAL(AS) GOSUB 1670 

1650 NEXT N9 

1660 GOTO 100 

1670 IF VAL(FOODS(N9,2) ) =VAL(A2S) AND VAL ( FOODS ( N9 , 3 ) ) -VAL ( A3S) 

GOTO 1690 

16 80 RETURN 

1690 IF FOODS(N9,4) OA4S THEN RETURN 

170B IF N9-NF THEN NF-NF-1 : RETURN 

1718 FOR M«l TO 4 

1720 FOODS(N9,«)-FOODS(NF,M) 

1731 NEXT K 

1740 !JF = NF-1 

17 50 RETURN 



MM/DD/YY string, which is 
parsed, and the values of the 
MM and YY compared with the 
values of the corresponding 
segments of each of the dates 
of the foods in the file. Target 
years (TY$) and target months 
(TM$) are determined for each 
of six months before the cur- 
rent month (lines 1130-1140). If 
a target month carries back 
into the previous year, then the 
value of TY$ is decremented by 
one, and the target month ad- 
justed accordingly (line 1150). 
The loop prints out lists of 
meats one to six months old, 
month by month. 

Deleting an Item from the File 

As foods are consumed, they 
must be deleted from the file. 
This is accomplished by a 
routine at 1600-1750. The user 
enters data about the item to be 
removed (type, cut, weight and 
date frozen), and each element 
of FOOD$(row,column) is ex- 
amined until a match is found. 
If the item to be deleted hap- 
pens to be the last item in the 
file, (N9 = NF in line 1700), then 
NF is decremented by one, 
making that row in FOODS 
(row, column) available for new 
entries (which will wipe out the 
old ones, if still present). Effec- 
tively, the old entry does not ex- 
ist, because loops accessing 
the data will not go beyond NF 
in their search. 

More frequently, however, 



the item deleted will not be the 
last element of the array. Usual- 
ly the oldest cuts of meat are 
consumed first. In this case, 
the item is deleted by taking the 
last set of data in the array, and 
moving it to the spot to be 
vacated. Then, NF is decre- 
mented by one. Effectively, this 
closes up the array by putting 
the last entry into the hole left 
by the last one deleted. 

Enhancements 

Freezer Inventory offers a 
number of opportunities for 
enhancement. Additional meat 
types and cuts can be tacked 
on by redimensioning the array 
TYPE$(n) and CUT$(n), and by 
enlarging the loops which 
display these choices to the 
user for input or retrieval. Use 
Step 2 to count off the display 
loops two numbers at a time, 
and change print lines, as in 
line 840 to read: 840 PRINT 
N2;".r: TYPE$(N2),N2 + 1;".)"; 
TYPE$(N2 + 1). This will allow 
displaying a greater number of 
choices on the screen at one 
time without scrolling off. 

Frozen vegetables could also 
be added with a little imagina- 
tion. Vegetable could be given 
as element of TYPE$(n), and 
whenever FOODSJrow.l) was 
equal to zero then column 2 
(cut) would be ignored, and, in- 
stead, a vegetable type would 
be input or retrieved from a new 
column in the array. ■ 
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You've Written 
a Fantastic Game? 
Then We'd Like to Publish It! 
We're looking for hot GAME pro- 
grams: 
ARCADE (HI-SPEED GRAPHICS) 
ADVENTURE FORMAT 
PANT AST WAROAMING 
BOARD GAMES 
LOGIC & PUZZLE GAMES 

There's Gold in them there 
Games! Write for our free 
Programmer's Kit today. 

INSTANT SOFTWARE, INC. ^2 

Submissions Dept. 

Peterborough. NH 03458 



Coming Next Month 



For November, 80 Microcomputing 
takes a look at micros in business. 
We will cover topics ranging from real 
estate to the stock market. 

Technical Editor Chris Brown has 
done an in-depth study of computers 
and the new white-collar militancy. In 
many businesses and federal agencies, 
there is a class of technical elite who 
have the power to bring these institu- 
tions to their knees by tampering with 
their computers. Some of these people 
have not hesitated to use this power. 

News Editor Bert Latamore will give 
you the latest on electronic mail and its 
impact on the business sector. Who 
knows, maybe someday stamps and 



mailmen will be obsolete. Electronic 
mail is but one area that is revolution- 
izing communications. 

Freelancer Theron Wieranga will 
show you how to use your TRS-80 to 
keep track of your personnel file. This 
program has already seen use in a 
school system and promises to be of in- 
terest to any businessman with a large 
number of employees. 

Are you a realtor with a number of 
rental properties? Freelancer George 
Kwascha has a program that maintains 
rental records. Also of interest to real- 
tors will be Leslie Sparks' real estate in- 
vestment analysis program. ■ 
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THE ORIGINAL MAGAZINE FOR 
OWNERS OF THE TRS-80™* MICROCOMPUTER 



SOFTWARE 

FOR TRS-80" 

OWNERS 



H 



CQMPLITRQNICS 



TRS80- IS A TRADEMARK OF TANDY CORP 

| MONTHLY 

|| NEWSMAGAZINE 
J FOR TRS-80 • 
C. OWNERS 



MONTHLY NEWSMAGAZINE 

Practical Support For Model I, II & III 



■x 



PRACTICAL APPLICATIONS 
BUSINESS 

GAMBLING • GAMES 
EDUCATION 
PERSONAL FINANCE 
BEGINNER'S CORNER 
NEW PRODUCTS 
SOFTWARE EXCHANGE 
MARKET PLACE 
QUESTIONS AND ANSWERS 
PROGRAM PRINTOUTS 
AND MORE 



NOW IN OUR 4th YEAR 



PROGRAMS AND ARTICLES PUBLISHED IN RECENT ISSUES 
INCLUDE THE FOLLOWING: 

• FINCALC A COMPLETE FINANCIAL APP1 ICATTONS PACKAGE 

• INFORMATION SYSTEM REVIEW 

• STATISTICAL COMBINATIONS 

• PASCAI S TRIANGLE 

• ASSEMBI Y I ANGUAGE TOR BEGINNERS 

• DISK FILES 

• MOD III REVIEW 

• KFYBOARD IHUNDFR AND LIGHTING EXPLAINED 

• DOS COMMANDS IN LEVEI II 

• PROBABII 1 1 Y CURVE GENERA I OR 

• CALCULATOR SIMULATIONS 

• I HE MEGABYTE GAP 

• STOCKS AND BONDS 

• BUDGE! ANALYSIS (FOR BUSINESS AND HOMI I 

• NEWDOS HO REVIEW 

• DUTCHING THE HORSE SYSTEM THAI" CAN'T I.OSK 

• A SIMULATED GOLF GAME 

• CONTINUOUS FORM SOURCES 

• TAX SAVER REVIEW 

AND MORE 



**S£ 



fff£n^ 



A Complete Financial Analysis Package Used 



,C^ To Calculate Markup, Margin, Annuities, Compound Interest, Nominal 

qH And Effective Rates, Sinking Funds, Mortgage Calculations, Future Value, 

ctrffc^ Savings and Insurance, Percentage Difference Between Two Numbers, 

*• Amortization Schedule and More 



SEND FOR OUR NEW 6-1 PAGE SOFTWARE CATALOG (INCLUDING LISTINGS OF HUNDREDS OF TRS 80'" PROGRAMS AVAILABLE ON 
CASSETTE AND DISKETTEl S2 00 OR FREE WITH EACH SUBSCRIPTIONS OR SAMPLE ISSUE 



All programs are supplied on cassette (add S3 for Diskette Version - add $5 (or modified Mod-ll Version). 



•CQMPLJTRQNICS 



MA'V^^A'CA. *P«^CA'I>« 



C >-9 



50 N. PASCACK ROAD 
SPRING VALLEY. NEW YORK 10977 

ONE YEAR SUBSCRIPTION S24 

TWO YEAR SUBSCRIPTION $48 

SAMPLE OF LATEST ISSUE $ 4 

START MY SUBSCRIPTION WITH ISSUE 

I»l July 1978 • »12 June 1979 • »24 July 1 980 • »30 January 1981) 
NEW SUBSCRIPTION RENEWAL 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF NY. STATE) 

(800) 431-2818 



NEW!!! 

MOD II NEWSLETTER 
$1 8/year Cor 12 1— um 3 




HOUR 
24 ORDER 
LINE 

(914) 425-1535 




IB' 



CREDIT CARD NUMBER 
SIGNATURE 



EXP DATE 



NAME 



ADDRESS 



__CITY. 



STATE 



ZIP. 



ADD $12 YEAR (CANADA, MEXICO) ADD $24 YEAR AIR MAIL OUTSIDE OF USA., CANADA & MEXICO *" 



r'Scc List ol Advertisers on page 386 
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• ••EVERYTHING FOR YOUR TRS-80 ••• 



* TRS-80" is a trademark of the Radio Shack Division of Tandy Corporation 



MOD-II PROGRAMS 



■k All orders processed within 24 -Hours 
* 30~Day money back guarantee on all TRSDOS Software 
■kAdd $3.00 for shipping in UPS Areas 
*Add $4.00 for COD. or NON-UPS Areas 
*Add $5.00 outside U.S.A., Canada & Mexico 
* We will match any bonafide advertised price 
in any of the Major Computer Magazines 
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(1) ELECTRIC PENCIL (Michael Shrayer Software) 
Complete word processor with extensive editing and 

printer formatting features $325 (STANDARD 

TRSDOS VERSION) $350 (DIABLO. NEC OR QUME 
TRSDOS VERSION) 

(2) GENERAL LEDGER. ACCOUNTS RECEIVABLE, 
ACCOUNTS PAYABLE, INVENTORY CONTROL. 
INVOICING AND PAYROLL (Small Business Systems 
Group) . an extensive business system for the serious 
user can be used one module at a time or as a co- 
ordinated system $225 per module $1299 for the 
complete system 

(3) GENERAL LEDGER, ACCOUNTS RECEIVABLE. 
ACCOUNTS PAYABLE. INVENTORY CONTROL 
AND PAYROLL (Compumax) a complete user ori- 
ented business system can be used one module at a 
time or as a coordinated system $140 per module 
$995 tor the complete system 

(4) MOD-II UTILITY PACKAGE (Racel Computes) 
adds important utilities to TRSDOS copy files 
selectively faster and more accurate file copying 
repair bad directories displays sorted directory of 
all files on 1 to 4 disk drives SUPERZAP change 
disk ID and more $150 

(5) ADVENTURE *1«9 (Scott Adams - Adventure 
International) a series of games formally only 
available on the large computers your goal is to work 
your way through a maze of obstacles in order to 
recover a secret treasure or complete a mission the 
package includes all 9 Adventures written by Scott 
Adams $99 95 

(6) GSF (Racet Computers) Generalized Subroutine 
Facility a series of super fast machine language 
utilities that can be called from a BASIC program (no 
machine language knowledge required) sons 1000 
items in under 5 seconds allows PEEK and POKE 
statements move data blocks., compress and un- 
compress data works under TRSDOS $50 

(7) DSM (Racet Computes) Disk Sort Merge sorts 
and merges large multiple diskette files on a l to 4 
drive system NOT AN IN MEMORY SORT can 
actually alphabetize (or any other type ol sort) 4 disk 
drives worth of data sorts one complete disk ot 
information m 10 minutes information is provided to 
use DSM with the RS MAILING PROGRAM works 
under TRSOOS $150 

(8) RSM (Small Systems Software) a machine 
language monitor and disassembler can be used to 
see and modify memory or disk sectors contains all 
the commands found on the Model-I version plus 
some additional commands tor tne MOD-II works 
under TRSDOS $39 95 

(9) BLINK BASIC LINK FACILITY (Racet Computes! 
Link from one BASIC program to another saving all 
variables chain programs without losing variables 

$50 

(10) BASIC CROSS REFERENCE UTILITY (Racel 
Computes) lists all variables and strings used in a 
program (with the line numbers in which they appeari 

lists all GOTO'S and GOSUB's (with the line num- 
bers in which they appear) searches for any specific 
variables or strings (with the line number In which 
they appear) $50 

(11) DEVELOPMENT PACKAGE (Racet Computes) 
SUPERZAP (lo see print or change any byte on a 
diskette) Disassembler and MOD-ll interlace to the 



MICROSOFT EDITOR ASSEMBLER PLUS including 
uploading services and patches for Disk I/O assemble 
directly mlo memory. ..save all or portions of source 
to disk dynamic debug facility (ZBUG) emended 
editor commands $125 

(12) HARD/SOFT DISK SYSTEM (Racet Computes) 
The software essential to interface any of the popular 
large hard disk drives completely compatible with 
your existing software and tiles allows up to 20 
megabytes of storage (andlarger) directory expand- 
able to handle thousands of files $400 

(13) CAMEO HARD DISK DRIVE CONTROLLER 

coming soon (November 1') 

(14) HARD DISK DRIVES coming soon (Nov 1?) 

(15) H a E COMPUTRONICS. INC. SHARE-A- 
PROGRAM DISKETTE »1 works under TRSDOS a 
collection of programs written by MOD-II owners 
programs include data base management a word 
processor mail system mortgage calculations 
checkbook register and many others $8 (add $3 
postage outside of the United States. Canada and 
Mexico) FREE if you send us a diskette containing 
a program that can be added to the SHARE-A-PRO- 
GRAM DISKETTE 

(16) WABASH CERTIFIEO DISKETTES $39 95 (per 
box ot 10) 

(17) FLIP SORT DISKETTE STORAGE TRAY Stores 
50 diskettes comes complete with index-dividers, tilt 
plates and adiusiable spacing $44 95 

(18) MASTER PAC 100 100 essential programs 
BUSINESS PERSONAL FINANCE STATISTICS 
MATH GAMBLING GAMES includes 125 page 
manual and 2 diskettes $99 95 

(19) BUSINESS PAC 100 100 essential business 
programs INVENTORY CONTROL PAYROLL 
BOOKKEEPING SYSTEM STOCK CALCULA- 
TIONS CHECKBOOK MAINTENANCE AC- 
COUNTS RECEIVABLE ACCOUNTS PAYABLE 
includes 125 page manual and two diskettes $149 95 

(20) EDITOR ASSEMBLER (Galactic Software Ltd ) . 
the first user oriented Editor Assembler for the 
MODEL II and was designed to utilize all the features 
of the MODEL II It includes innovative features tor 
ease of coding and debugging and complete docu- 
mentation (over 120 pages) works under TRSDOS 

$229 00 

(21) BASIC COMPILER (Microsoft) changes your 

source programs into machine language increases 
program execution by 3-10 times $395 

(22) MAIL/FILE SYSTEM from Galactic Software Ltd 
stores 2.500 names per disk No sorting lime is 
required since the tile is automatically sorted by first 
and last name plus Zip Code on input Retrieve by any 
combination ol 19 user codes Supports an 11 digit 
alphanumerica Zip Supports a message line Comes 
complete with user-oriented documentation (100- 
page manual) Allows fc company name and individ- 
ual of a company ano complete phone number (and 
extension) works under TRSDOS $199 00 

(23) INCOME TAX PAC Professional income tax 
package most forms and schedules output to video 
or line printer automatic memory storage ol all 
information data can be loaded from diskette 
Changed and edited built in error checking $199 95 

(24) COMPUTER GAMES (SBSG) Mean Checker 
Machine. Star-Trek III. Concentration. TreasureHunt 
Banco. Dog Star Adventure $74 95 
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50 N. PASCACK ROAD 
SPRING VALLEY. NEW YORK 10977 



-jKiTfJ. *t a. HOUR 

®«\ 24 ORDER 
LINE 




NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF NY. STATE) 

(800) 431-2818 



(1) CP/M (Lifeboat Associates) an alternative 
operating system tor the MOO-II that allows MOD-II 
owners to use any of the hundreds of programs 
available under CP/M $170 

(2) CP/M HANDBOOK (Sybex) a step-by-step 

Suide to CP/M takes the reader through each of the 
P/M commands numberous sample programs 
practical hints reference tables $13 95 

(3) GENERAL LEDGER. ACCOUNTS RECEIVABLE. 
ACCOUNTS PAYABLE. INVENTORY CONTROL. 

AND PAYROLL (Peachtree Software) requiresCP/M 
and MICROSOFT BASIC professional business 
systems turn key operation can be used as single 
modules or as a coordinated system $500 per 
module $2500 for the complete system 

(4) WORD-STAR The ultimate word processor a 
menu driven word processing system that can be used 
with any printer All standard word processing 
commands are included plus many unique com- 
mands only found on WORD STAR requires CP/M 

$495 

(5) MAIL LIST MERGE An add on package that 
allows the user to send form letters (crested on 
WORD-STAR) to any compiled mailing list (using any 
CP'M based MAIL program such as the PEACHTREE 
MAIL PROGRAM) requires CP/M. WORO STAR and 
andy CP'M based mail program $150 

(6) SELECTOR III (Micro-Ap) complete data 
management system user defined fields and codes 
manages any list defined by the user includes 
additional modules for simplified inventory control, 
accounts receivable and accounts payable requires 
CBASlC-2 $295 

(7) SELECTOR IV (Micro-Ap) the ultimate data 
management system all features use the SELECTOR 
III plus data file format conversions full page report 
formatter computations global search and replace 

hard disk compatible aala 'text merging $550 

(8) GLECTOR ( Micro- Ap) add on package lo the 
SELECTOR general ledger that allows the user to 
delme a customized chart of accounts $350 

(9) CBASIC-2 a non-interactive BASIC used for 
many programs that run under CP/M allows user to 
make more efficient use of disk tiles eliminates the 
use of most line number references require on such 
programs as the SELECTOR $120 

(10) MICROSOFT BASIC an enhanced version of the 
MICROSOFT BASIC found on TRSDOS adds 
commands such as chaining (allows the user to LOAD 
and RUN a new program without losing the variables 
currently in memory) long variable length tile 
records. WHILE/WEND and others can be used with 
the BASIC COMPILER to speed up programs (3-10 
times 'aster execution) $325 

(11) MASTER TAX (CPAids) professional tax 
preparation program prepares schedules A B C D 
E. F. G. R/RP. SE. TC. ES and forms 2106. 21 19. 2210 
3468 3903 2441. 4625. 4726. 4797. 4972. 5695 and 
6521 Printing can be on readily available pre-printed 
continuous forms, on overlays, or on computer 
generated IRS approved forms Mamtainsclmt history 
files interactive with CP'Aids General Ledger $995 

(12) GENERAL LEDGER II (CPAids) designed tor 
CPA's stores complete 12 month detailed history of 
transactions generates financial statements, 
depreciation, loan amortizations (Ournals. tnai 
balances, statements of changes in financial position, 
and compilation letters includes payroll system with 
automating posting to general ledgers prints 
payroll register. W2's and payroll checks $450 

(13) ELECTRIC PENCIL (Michael Shrayer Software) 
Complete word processor with extensive editing 

and printer formatting features $275 (Standard 
printer version) $300 (DIABLO. NEC or QUME 
version) 

(14) BASIC COMPILER (Microsoft) changes your 
source programs into machine language increases 
program execution by 3-10 times $395 



(CP/M IS A REGISTERED TRADEMARK 
OF DIGITAL RESEARCH) 
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(914) 425-1535 



NEW!!! 

MOD-II NEWSLETTER 
$18 year (or 12 issues} 
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• ••EVERYTHING FOR YOUR TRS-80'*** 

• m-M-b a trademark of the Radio Shack DivWon of Tandy Coiporatlon 

100 ***** [master PAcibb 

HOGK^* ' _»»* EDITION (COMPLETELY REVISED) 

FOR YOUR TRS-80™ LEVEL II MICROCOMPUTER 

ALL ON CASSETTE OR DISKETTE 



B USIH**» 



BUSINESS AND PERSONAL FINANCE 

1 CHECKBOOK MAINTENANCE 

2 TIME FOR MONEY TO DOUBLE 

3 FEDERAL RCA & WITHHOLDING TAX 

3 COMPUTATIONS 

4 HOME BUDGET ANALYSIS 

5 ANNUITY COMPUTATION 

6 UNIT PRICING 

7 CHANGE FROM PURCHASE 

8 NEBS CHECK PRINTER 

9 DAYS BETWEEN DATES 

10 MORTGAGE AMORTIZATION TABLE 
It INVENTORY CONTROL 

12 PORTFOLIO VALUE COMPUTATIONS 

13 VALUE OF A SHARE OF STOCK 

14 SALES RECORD KEEPING SYSTEM 
IS. FUTURE VALUE OF AN INVESTMENT 

16 EFFECTIVE INTEREST RATE (LOAN) 

17 PRESENT VALUE OF A FUTURE AMOUNT 

18 RATE OF RETURN VARIABLE INFLOW 

19 RATE OF RETURN CONSTANT INFLOW 

20 REGULAR WITHDRAWAL FROM INVESTMENT 

21 STRAIGHT LINE DEPRECIATION 
22. SUM OF DIGITS DEPRECIATION 

23 DECUNING BALANCE DEPRECIATION 

24 BREAK EVEN ANALYSIS 

25. SALVAGE VALUE OF INVESTMENT 

26 PAYMENT ON A LOAN 

27 FUTURE SALES PROJECTIONS 

28 CREDIT CARD RLE 

29 ECONOMIC ORDER QUANTITY (EOQ) 
INVENTORY MODEL 

30 VALUE OF HOUSE CONTENTS 

31 TEXT EDITOR 

32 MONTHLY CALENDAR 

33 DAY OF WEEK 

34 CASH FLOW VS DEPRECIATION 

35 COMPLETE MAIL SYSTEM 

36 INTEREST RATE ON A LEASE 



UNA* 6 * 



STA 



T1STICS 



STATISTICS AND MATHEMATICS 

37 RANDOM SAMPLE SELECTION 

38 ANGLO METIC CONVERSION 

39 MEAN. STANDARD DEVIATION 
MAXIMUM AND MINIMUM 

40 SIMPLE LINEAR REGRESSION 

41 MULTIPLE REGRESSION ANALYSIS 

42 GEOMETRIC REGRESSION 

43 EXPONENTIAL REGRESSION 

44 SIMPLE MOVING AVERAGE 

45 SIMPLE T TEST 

46 CHI SQUARE TEST 

47 NORMAL PROBABILITIES 

48 BINOMIAL PROBABILITY 

49 POISSON PROBABILITY 

50 MATRIX ADDITION AND SUBTRACTION 

51 MATRIX TRANSPOSE 

52 MATRIX INVERSE 

53 MATRIX MULTIPUCATKDN 

54 SOLUTION OF SIMULTANEOUS EQUATIONS 

55 QUADRATIC FORMULA 

56 LINEAR EQUATION SOLUTIONS 

57 ROOT HALF INTERVAL SEARCH 

58 ROOTS OF POLYNOMIALS 

59 ROOTS NEWTONS METHODS 

60 PRIME FACTORS OF INTEGER 

61 LEAST COMMON DENOMINATOR 

62 RADIAN DEGREE CONVERSION 

63 NUMERICAL INTEGRATION 

UTIUTIES 

64 QUICK SORT ROUTINE 

65 PROGRAM STORAGE INDEX 

66 MULTIPLE CHOICE QUIZ BUILDER 

67 FORM LETTER WRITER 

68 SHELL SORT 

69 CASSETTE LABEL MAKER 

70 CODES MESSAGES 

71 MERGE TWO FILES 

72 SORT WITH REPLACEMENT 



MATH 



GRAPHICS 

73 DRAWS BAR GRAPH 
4 DRAWS HISIOGRAM 

75 MOVING BANNER DISPLAY 

GAMBLING AND GAMES 

76 RANDOM SPORTS QUIZ 

77 GOVERNMENT QUIZ 

78 HORSE RACE 

79 MAGIC SQUARE 

80 ARITHMETIC TEACHER 

81 HIGH LOW GAMBLE 

82 UNSCRAMBl F I F.TTF.RS 

83 HANGMAN 

84 GAME OF NIM 

85 RUSSIAN ROULETTt 
<*» ROULETII.GAME 
B7 ONE ARMED BANDIT 

88 HIT THE TARGET 

89 WALKING DRUNK 

90 STATE CAPITAL QUIZ 

91 TICTACTOF 

92 DICE GAME 

93 LUNAR LANDAR GAME 

94 BIORHYTHM 

95 HORSE SELECTOR (CLASS CALCULATOR! 
% RANDOM DICE ROLL 

97 RANDOM ROULETTE ROLL 

98 RANDOM CARD DEALER 

99 GUESS THE NUMBER 
101) WHITE OUT SCREEN 



nt»u**« 



liOPAOB 
USE* 



—2S& 



GUARANTEED SATISFACTION 

30 DAY MONEY BACK GUARANTEE ON ALL SOFTWARE 



• 9 



•CQMRJTRQMCS 

SO N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 

PLEASE SEND ME: 

DMASTERPAC 100 CASSETTE VERSION $5995 

D MASTER PAC 100 DISKETTE VERSION $59.95 

D MASTER PAC 100 (TRS 80 MODEL II VERSION) $99 95 





(S m\ 24 ORDER ^S> 

LINE ^^ 

(914) 425-1535 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF N.Y. STATE) 

(800) 431-2818 

* AM ardmrm processed within 24-Houra 

■k 30-Day money bock guarantee an off Softwa 



CREDIT CARD NUMBER & p DATE- 



SIGNATURE. 



NAME 

ADDRESS CITY STATE ZIP 

— ADO I3.M FOR SrUfMNC IN Uf$ AKAS • ADD KM KM COO. Ot NON-UPS AKAS • ADD KM OUTSIDE U.&A. CANADA • MEXICO "• 



^ See List ot Advertisers on page 386 
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• • > EVERYT HING FOR YOUR TRS-80 ... 

TRSM Is a iradrinark of the Radio Shai k Division of Tandy Corporallon 

BUSINESS PAC 100 

100 Ready To Run 
Business Programs 

(ON CASSETTE OR DISKETTE) Includes 110 Page Users Manual 5 Cassettes (Or Diskettes) 

Inventory Control Payroll Bookkeeping System Stock Calculations 

Checkbook Maintenance.... .Accounts Receivable... Accounts Payable 




1 * 30-Day money back gu 

Software 



BUSINESS 100 PROGRAM LIST 



' RULE 78 Interest Apportionment by Rule of the 78 s 

2 ANN(J I Annuity computation program 

3 DATE I. me between dates 

4 DA WEAR Day o( year a particular date falls on 

5 LEASFJN T Uteres rate on lease 

6 BREAKEVN Breakeven analysis 

> DEPRSL Straightrine depreciation 

8 DEPRSY Sum of the digits depreciauon 

9 DEPRDB Declining balance depreciation 

10 DEPRDDB Double declining balance depreciation 

1 1 TAXDfcP Cash flow vs depreciation tables 

1 2 CHECK2 Pnnts NEBS checks along with daily -egister 
1 J CHLCKBK1 Checkbook maintenance prog'an- 

14 MORTGAGE/A Mortgage amortuatioc table 

1 5 MULTMON Computes Cme needed for money to double tnple 

16 SAXVAGL Determines salvage value of an nvestment 

1 7 RRVARTN Rate of return on investment with variable inflows 

18 RRCONST Rate of return on investment with constant inflows 

19 EFFECT Effective interest rate of a ioan 

20 FVAL Future value of an irvestment (compound interest) 

21 PVA1 Present value of a future amount 

22 I OANPAY Amount of payment on a 10a" 

23 REGWTTH ! qua withdrawals from investment to leave over 

24 SIMPDISK Simple discount analysis 

25 DATTVAL Equivalent & nonequivalent dated values 'or obtig 

26 ANNUDEf Present value of deferred annuities 

27 MARKUP * Markup analysis for items 

28 SINK.FUND Siniong fund amortisation program 

29 BONDVAL Value of a bond 
3C DEPUTE Depletion analysis 

31 BLACKSH Black Schotes options analysis 

32 STOCVA1.1 Expected return on stocK via discounts dividends 

33 WARVAL Value of a warrant 

34 BONDVAL.2 Value of a bond 

35 EPSEST Estimate of future earnings per share for company 

36 BETAALPH Computes alpha and beta variables for stock 

37 SHARPE 1 Portfolio selection model i e what stocks to hoid 

38 OPTWRfTE Option wnting computations 

39 RTVAL Value of a nght 

40 EXPVAL Expected value analysis 

41 BAYES Bayesian decisions 

42 VALPRMF Value of perfect information 

43 VALADINF Value of additional information 

44 UTILiTY Derives utility function 

45 SIMPLEX Linear programming solution by simplex method 

46 TRANS Transportation method for hnea/ programming 

47 EOQ Economic order quantity inventory model 

48 QUEUE! Single server queueing (waiting line) model 

49 CVP Cost-volumeixoflt analysis 

50 CONDPROF Condtoonal profit tables 

51 OPTLOSS Opportunity loss tables 

52 FQUOQ Fixed quantity economic order quantity model 

IAMB DTSOOFTrON 

53 FQEOWSH As above but wftti shortages pemstted 

54 FQEOQPB As above but wKh quantity price breaks 

55 OUEUECB Costbeneflt waiting line analysts 

56 NCFANAL Net cashflow anarysM for simple kTveatment 

57 PROFFC Proffabtty kvfcx of a prefect 

56 CAP1 Cap Asset Pr Model anstysto of project 



59 WACC Weighted average c ost ot t apita 

6C COMPBAi. True rate or loan wth con^ensatinq bal required 

61 D1SCBAL True rate or discounted loan 

62 MF RCiANAl Merger analysis computations 
61 HNRAl Financia. ratios lor a firm 

64 NPV "v* present vame of pro(e<t 

65 PRINDLAS i-aspeyres pnee ndex 

66 PRINDPA Paasche pnee ndex 

67 SEASIND Constructs seavmal quantity ndices for < ompar y 

68 TIMETR Time senes analysis hneai txeixl 

69 I1MEMOV Time senes analysis moving average trei>ci 

70 FUPRINF F ut i ire pnee estimation with inflation 

71 MAILPAC Mailing list system 

72 LFTWRT Letter wnting system links with MM PAC 

73 SORT3 Sorts list of names 

74 LABEL I Shipping label maker 

75 LABEL2 Name label maner 

/6 EKJSEK1D DOME business booKkeeping system 

77 IlMf/C.CK Computes weens tola 1 hours From timeckx'K info 

78 ACCTPAY In memory accounts pava&le system storage pennitted 

79 NVOrCL Generate invoice o" screen and pnnt on prntet 

80 INVENT? in memory inventory control system 
8". TEl-DiR Computerized telephone d rectory 

82 TIMUSAN Time use analysis 

83 ASSIGN Use of assignment algorithm lor optima, job assign 

84 ACOREC In memory accounts -ece-vabie system storage ok 

85 TERMSPAY Compares 3 methods of repayment of loans 

86 PAYNE T Computes gross pay required 'or given net 

87 SELLPR Computes veiling pnee for given aftc tax amount 

88 ARBCOMP Arbitrage computations 

89 DEPRSF Sinking fund deprec .atior 

90 UPSZONE Finds UPS lones from up code 

9". ENVELOPE Types enve<ope Deluding -et^m address 

92 AUTOf_XP Automobile expe'-se analysis 

93 INSF1LE Insurance policy f le 

94 PAYROLL2 In memory payroll system 

95 DILANAL Dilution analysis 

96 LOANAfTD Loan amount a borrower car. afford 
9/ RF.N'PRCH Purchase pnee for rental property 

98 SALELEAS Sale leaseback analysis 

99 RRCONVB0 Investor s rate of return on conversable bond 
'00 POR T VAL9 Stock market portfolio storage- valuation program 



D CASSETTE VERSION $99.95 

□ DISKETTE VERSION $99.95 

□ TRS-80* MODEL D VERSION $149.95 



ADD $100 FOR SHIPPING IN UPS AREAS 
ADD $4.00 FOR C.O.D. OR NON-UPS AREAS 
ADD $5.00 OUTSIDE U.S.A, CANADA & MEXICO 

•CQMPLJTRQNICSi . 



New 
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50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 
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425-1535 
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... EVER YTHING FOR YOUR TRS-80 ... 

TRS-iio is a trademark of ihr Radio Shack Division of Tandy Corporation 

* All orders processed within 24-Hours 
f%f%^%W% W%W^.T jt #W*WT I T% * -'^^"v money back guarantee on all Software 
LililnlllniA I WLLM * Add $300 for shipping m UPS Areas 

• Add $4. 00 /or COD . or NON-UPS Areas 
11 V TCSWTtfPCfcCi * 4 ' j<i 55 00 outside U.S A , Canada & Mexico 

SMALL BUSiNESS SYSTEMS P"H 




SYSTEMS GROUP 



A A.'lf RlCflJy] 
[EXPRESS 




FACTS ABOUT THE S.B.S.G. BUSINESS PACKAGES 

1 S.B.S.G. is a sophisticated Business So'tware System designed for the serious businessman 

2 Each of the S.B.S.G. Business Modules may be purchased separately, or you may purchase the enti'e coordinated business system. 

3 Modules purchased separately do not coordinate with the General Ledger (although for the standard S.B.S.G. fee. the user may upgrade his 
individual modules for the coordinated system) 

4 Foolproof Step-By Step procedures are supplied, planned and documented 'or the First-Time Computer User. Ail programs are self- 
explanatory, tellmg the user what is required at every step 

5 Programs are written in BASIC and the source code listing is supplied for those users who decide to modify the original system 
6. A complete users manual is supplied wth each module 

7 Demo Data diskettes are suppiied with sample data. 

8 S.B.S.G. has an In House staff that can answer questions and problems related to the proper use of the S.B.S.G. Business System ;on the 
telephone or through the ma!) 

9 First-Time Computer Owners Note Instruct ons are provided 'or entering state payroll withholding tables There .s an additional charge if 
you prefer to have S.B.S.G. Programmers insert the correct data 

10 Minimum system requirement is 2-d'ives to run any single module 

11 Minimum system requirement is 3-dnves to run the coordinated business system (AR-AP-GL) or (AR AP-GL with PAYROLL). 

12 Minimum system requirement is 4 drives to run the extended coordinated system (AR-AP-Gl-PR and INVENTORY/INVOICING) 

13 The A. OSBORNE & ASSOCIATES business manuals are provided FREE with each order fthey may be purchased separately at $20 per 
manual) 

14 The INVENTORY and INVOICING modules are original programs written by S.B.S.G. 

15 Each module can be purchased as independent modules to run on a 2 or more drive system except INVOICING 

16 Memory requirement is 48K *or the MODEL I and 64K for the MODEL-II 

1 7 All S.B.S.G. BUSINESS SYSTEMS may be upgraded up to 4-disk drives No data is ever lost during an upgrade There is a standard S.B.S.G. 
charge for all upgrades. 



ACCOUNTS PAYABLE 

The accounts payable system receives data concerning purchases from 
suppliers and produces checks in payment of outstanding invoices. In 
addition, it produces cash management reports. This system aids in 
tight financial control over all cash disbursements of the business 
Several reports are available and supply information needed for the 
analysis o* payments expenses, purchases and cash requirements All 
A P data feeds General Ledger so that data is entered into the system 
just once These programs were developed 5 years ago for the Wang 
micro-computer and have been testeo n many environments since 
then The package has been converted to the TRS-80'" and is now we'l 
documented, on-line, interactive micro-computer system with the 
capabilities of (or exceeding many larger systems). 
CAPABILITIES: 

* menu driven; easy to use full screen prompting and cursor control 

* invoice oriented everything revolves around the invoice handles 
new invoice or credit memo or debit memo 

* mvoce information recorded, invoice ». description, buyer, check 
register #. invoice date, age date, amount of invoice, discount (in °/c), 
freight, tax ($). total payable 

* transaction pnnt and file maintenance procedures insure accuracy 

* flexible check calculation procedure: allows checks to be calculated 
fc a set of vendors- or-for speci'ic vendors 

* program prints your checks, contiguous computer checks with your 
company letterhead can be purchased from SBSG 

* reports include (samples on back) 

• open item listing,closed item listing - both detai 1 and summary 

• debit memo listing/credit memo listing 

• aging 

• check register report (to give an audit trail of checks printed) 

• vendor listing and vendor activity (activity o' the whoie year; 

* fully linked to GENERAL LEDGER each invoice car be distributed 
to as many as 'ive (5) different GL accounts system automatically 
posts to cash and A/P accounts 



ACCOUNTS RECEIVABLE 

T he objective of a computerized A/R system is to prepare accurate and 
timeley monthly statements to credit customers. Management can 
generate information required to control the amount of credit extended 
and the collection of money owed in order to maximize profitable credit 
sales wh \e minimizing losses from bad debts The programs com- 
posing this system were developed 5 years ago especially for small 
businesses using the Wang Microcomputer They have been tested m 
many environments since then Each module can be used stand alone 
or can feed General Ledger for a fully integrateo system 
CAPABILITIES: 

* menu driven; easy to use; full screen prompting and cursor control 

* invoice oriented; invoices can be entered be'ore ready for billing, 
when ready 'or billing, after billing or a'ter paid 

* allows entry of new invoice, credit memo debit memo, or change/ 
delete invoice 

* allows for progress payment 

* transaction information rcludes 

• type of A/R transaction • billing date 

• customer P.O. # • generai ledger account number 

• description of P O • invoice amount 

• sh'pping/transportation charges 

• tax charges 

• payment 

• progress payment information 

• transaction print & tile maintenance procedures insure accuracy 

* customer statements printed, computer statements with your corn- 
pay letterhead can be purchased from SBSG 

* reports include! (samples on back) 

• listing of invoices not yet billed 

• open items (unpaid invoices) 

• closed items (paid invoices) 

• aging 

* fully linked to General Ledger, will post to applicable accounts, 
debit A/R. credits account you specify 



^See List ol Advertisers on page 306 
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PAYROLL 

Payroll invoices many complex calculations and the production of 
reports and documents, many of which are required by government 
agencies. It is an ideal candidate for the computer With this Payroll 
system in-house. you can promptly and accurately pay your employees 
and generate accruate documents/reports to management, employees, 
and appropriate government agencies concerning earnings, taxes, and 
other deductions The package has been converted to the TRS-80'" and 
is now a well documented, op-line, interactive, micro-computer system 
with the capabilities of (or exceeding) many larger systems 
CAPABILITIES: 

* performs all necessary payroll tasks including 

• file maintenance, pay data entry and verification 

• computation of pay and deduction amounts 

• printing of reports and checks 

* can handle salaried and hourly employees 

* employees can receive: 

• hourly or salary wage 

• vacation pay 

• holiday pay 

• piecework pay 

• overtime pay 

* employees can be paid using any combination of pay types (except, 
hourly cannot receive salary and salary cannot receive hourly) 

* special non-taxable or taxable lump sums can be paid regularly or 
one time (bonus, reimbursements, etc) 

* health and welfare deductions can be automatically calculated for 
each employee 

* earnings-to-date are accumulated and added to permanent records: 
taxes are computed and deducted: US income tax. Social Security 
tax. state income tax, other deductions (regular or one time) 

* paychecks are printed, computer checks with your company letter- 
head can be purchased from SBSG 

* calculations are accumulated for: employee pay history, 941A re- 
port, W-2 report, insurance report, absentee report 

* fully linked to General Ledger. Each employee's payroll information 
can be distributed to as many as (12) twelve different GL accounts: 
system automatically posts to cash account 



INVENTORY CONTROL/INVOICING 

* ISAM (Indexed Sequential Access Method) eliminates the necessity 
for time consuming sort 

* Pre- Allocated Files for IMMEDIATE update and inquiry capabilities 

* Fast Disk storage and retrieval 

* Inventory Master Record includes, class SKU Division Retail 
Cost Beginning Balance Period Sale Units Period Receipts On 
Order On Hand Minimum Reorder Point Recommended Re- 
order Amount Vendor Number Period Sale Dollars YTD Sale 
Units YTD Sale Dollars 

* Calculated and Displayed Formulas include Gross Margin ($) 
Gross Margin (%) Gross Margin ROI (%) Average Inventory Retail 
($) Average Inventory Cost ($) Turn-Over (%) 

* Reports Generated include... Master File Listing Class Description 
Listing. ..Transaction Audit Trail Minimum Reorder Point by Ven- 
dor ..Retail Price List. Retail & Cost Price List. Period Sales Report 
...Year to Date Sales Report. Stock Status (Screen or printer output) 
..Commission Report (for salesmen and buyers) 

* Transaction Types include Sales, Vendor Receipts Vendor 
Orders Customer Returns Vendor Returns Transfer Stock 



GENERAL LEDGER 

The General Ledger accounting system consolidates financial data 
from other accounting subsystems (A/R. A/P. Payroll, direct posting) in 
an accurate and timely manner Major reports include the Income State- 
ment and Balance Sheet and a "special" report designed by manage- 
ment The beauty of this General Ledger system is that it is completely 
user formatted. You "customize" the account numbers, descriptions, 
and report formats to suit particular business requirements. These 
programs were developed 5 years ago for the Wang micro-computer 
and have been tested in many environments since then The package 
has been converted to the TRS-80" and is now a well documented, on- 
line, interactive micro-computer system with the capabilities of (or 
exceeding) many larger systems. 
CAPABILITIES: 

* more than 200 chart of accounts can be handled 

* account number structure is user defined and controlled 

* more than 1,750 transactions may be entered via: 

• direct posting; done by hand; validated against the account file 
before acceptance 

• external posting; generated by A/R. A/P, Payroll or any other 
user source 

* data is maintained and reported by: 

• month 

• quarter 

• year 

• previous three quarters 

* reports (samples on back) include: 

• trial balances 

• income statement 

• balance sheet 

• special accounts reports and more 

* user formats reports with the following designated as you wish: 

• titles 

• headings 

• account numbers 

• descriptions 

• subtotals 

• totals 

• skip lines 

• skip pages 

* up to eight levels of totals - fully user designated 

* menu driven, easy to use; full screen prompting and cursor control 
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50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF N.Y. STATE) 

(800) 431-2818 




HOUR ^g 
24 ORDER ^ 
LINE 

(914) 425-1535 



PRICING MOD-1 

VERSION 

ACCOUNTS RECEIVABLE $125 

ACCOUNTS PAYABLE $125 

GENERAL LEDGER $125 

PAYROLL $125 

INVENTORY $1 75 

INVOICING $150 

COORDINATED INVENTORY/INVOICING ACCOUNTS RECEIVABLE $449 

COORDINATED AR-AP-GL $375 

COORDINATED AR-AP-GL with PAYROLL $495 

EXTENDED COORDINATED AR-AP-GL INVOICING/INVENTORY with PAYROLL $799 



MOD-II 


MOD-MI 


VERSION 


VERSION 


$225 


$199 95 


$225 


$199 95 


$225 


$199.95 


$225 


$199 95 


$275 


$199.95 


$250 


$199.95 


$749 


$599.95 


$675 


$599.95 


$899 


$799.95 


$1299 


$1199.95 
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• • • EVERYTHING For Your TRS-80* Model I or Model III • • • 



TRS-80'" is a trademark of Tandy Corp 



, Inc 



All orders processed within 24 Hours 
• 30-Day money back guarantee 
• Add S3 00 lor shipping in UPS Areas 
• Add S4 00 tor C O Dor NON-UPS Areas 
• Add S5 00 to Canada or Mexico 
• Add exact postage lo all other countries 



Let Your TRS-80™ 
Teach You 

ASSEMBLY LANGUAGE 


LEARN TRS-80™ 
| ASSEMBLY LANGUAGE 

DISK 1/0 


REMASSEM-1 

Tiredol buying book alter hook on assembly language? programming and 

still not knowing your POP from your PUSH? [ 

REMSOFT proudly announces a more efficient way using your own 
TRS-80'" to learn the fundamentals of assembly language programming 
at YOUR pace and at YOUR convenience 
Our un que package "INTRODUCTION TO TRS-80" ASSEMBLY 

PROGRAMMING", will provide you with tnp followmq 

* Ten 45-minute lessons on audio casselles 

* A driver program to make your TRS-80'" vidf ■ monitor ser.p as a 
Macknoard for the instructor 

* A display program for each lesson to provide illustration and rem- j 
f ircement lor what you are hearing 

* A textbook on TRS-80" Assembly Language Programming I 

* Step-by-step dissection of complete and useful routines to lest 
memory and to gam direct control over the keyhoard. video moni- 
tor, and printer I 

* How to access and use powerful routines in your Level II ROM 
This CO use was developedand recorded by Joseph E Willisandisbased 
on the successful series o' courses he has taught at Meta Technologies 
Corporation the Radio Shack Computer Center and other locations in i 
Northern Ohio The minimum system required is a Level II 16KRAM 


i REMDISK-1 

Your disk system and you can really step out with REMSO' ' s Educational 
Module. REMDISK-1. a short course' revealing the details of DISK I O 

PROGRAMMING using assembly language 

Using the same format as our extremely popular introduction to assem- 
bly language programming this "ASSEMBLY LANGUAGE DISK I/O 
J PROGRAMMING" cou'se includes 

* Two 45-minufe lessons on audio cassette 

* A dri/er program to make your TRS-80" vi'lwi monitor s e 've as a 
Mark ooa'd for the instructor 

* A display program 'or each lesson to provid" illustration and rrjin- 
• orcement tor what you are hearing 

* a booklet of comprehensive fully-commented program listings 
illustrating sequential file I O random-access file I O and track 
and sector I O 

* A diskette with machine-readable source codes for ail programs 
discussed, m both Radio shack EDTASM and Macro formats 

* Routines to convert from one assembler formal to the other 
This course was developed and recorded tiy Joseph E Willis for the 
student witn expedience m assembly language programming it is an 

in|ormedial>"*-tO adv3nced- ! ''vH course Minimum hardwarerequired isa 
Model I Lt^el il 16K RAM one disk drive System 











•CQMPJTRQNICS 



^9 




50 N PASCACK RUaO 
SPRING VALLEY, NEW YORK 10977 

PLEASE SEND ME: 

DREMASSEM-1 (TRS-80 MODEL I CASSETTE) . 
DREMASSEM-1 (TRS-80 MODEL I DISKETTE) 
CREMASSEM-1 (TRS-80MODEL III CASSETTE) 
CREMASSEM-1 iTRS-80 MODEL III DISKETTE. 
CREMDISK-1 .TRS-80MODEL I DISKETTEi 
CREMDISK-1 (TRS-80 MODEL III DISKETTE' 



HOUR 

ORDER 

LINE 



€$\24 

(914) 425-1535 




S69 95 

S74 95 
.S74 95 

S79 95 
. S29 95 

S34 95 



NEW TOLL-FREE 
ORDER LINE 

(OUTSIDE OF N Y STATE) 

(800) 431-2818 



CREDIT CARDNUMBER 

SIGNATURE 

ADDRESS 



EXP DATE 



NAME 



CITY STATE... 

ALL PRICES AND SPECIFICATIONS SUBJECT TO CHANGE "• 



ZIP. 



'See List ol Advertisers on page 386 
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# # 



from yOME mmMFE 

FOR THE TRS-80 MODEL I AND MODEL III 



1 System Diagnostic 



# 



c^gcuniVisri/iss 



JggtS^ 51 




For Cassette or Disk 



IS YOUR COMPUTER WORKING? 



si**,** ap ARE YOU SURE? 

^^y ^^y RAM: four separate tests including every address and data value. 

^ vintr» r»i«»i *v. character generator, video RAM. and video signal. 

every key contact tested, 
character test, 
read/write/verify data. 

connector fault, data transmission, framing, data loop, baud rate generator, 
disk controller, drive select and restore, track seek and verify data, read/write/verify all tracks and 
sectors with or without erasing, sector formatting, disk drive timer, disk head cleaner. 

— Individual tests of each device with operator monitoring and intervention. 

— Continuous sysem tests run continually for hours testing each component, with diagnostic reports optionally written on line printer. 

— One program adapts to any system configuration and hardware. 

— Complete instructions and documentation. 



ROM: 

RAM: 

VIDEO DISPLAY: 

KEYBOARD: 

LINE PRINTER: 

CASSETTE RECORDER: 

RS-232-C INTERFACE: 

DISK DRIVES: 



MON-3 and NON-4 

The TRS-80 Monitor Programs »3 and "4 are powerful utility programs 
enabling you to interact directly with the TRS-80 in Machine Language. 
They are as useful for beginners as for advanced programmers. 

• BEGINNERS can learn to interact directly with the computer in 
Machine Language. 

• 40-PAGE MANUAL provided with each program, 
o SIMPLE commands, easy to use. 

The Features Of The Monitor Pro g rams Enable You To The Followin g 

• DISPLAY memory in different ways. 

• DISASSEMBLE memory to see Machine Language commands. 

• MOVE and COMPARE memory areas. 

• SEARCH through memory to find specific, values. 

• MODIFY memory in various ways. 

• RELOCATE object programs. 

• PRINT output on video display or line printer. 

• READ and WRITE object tapes in SYSTEM Format. 

• UNLOAD programs using low RAM on disk. 

• SAVE and READ disk files (MON-4 Only). 

• INPUT and OUTPUT of disk sectors (MON-4 Only). 

• SEND and RECEIVE data over RS-232-C Interface (MON-4 Only). 

• Create SYMBOLIC Tapes (MON-3) or Files (MON-4) of Disassem- 
bled output for Editor/Assembler program. 

MON-3 (For Cassette Systems) $*9-99 
MON-4 (For Disk Systems) $49-95 



MAILING UST 

Maintains mailing lists of over 1000 names. Commands allow adding, 
changing, deleting, and finding names. Sorting is done by machine lan- 
guage according to the information in any field (i.e., name, address, zip 
code). Labels printed in 1, 2, or 3 columns, in master list on one line, or on 
video display. 

Disk Version Oaly to*.** 



SMART TERMINAL 

Enables your TRS-80 to be used as a remote terminal to a time sharing 
computer system. Supports upper/lower case and full range of control 
keys, including control key mapping into any ASCII character. Automatic 
transmission of files between TRS-80 and host computer. Files can be read 
from or written to cassette tape or disk. Incoming data can be printed on 
line printer or stored in memory for subsequent save to cassette or disk. 
Disk and tape files are fully compatible with the ELECTRIC PENCIL pro- 
gram. Baud rate and RS-232-C sense switches can be reset without open- 
ing Expansion Interface. Requires RS-232-C interface and modem. 

Cassette or Disk Version $+99$ 



FASTSORT 

A series of machine-language subroutines (for 16K, 32K and 48K Sys- 
tems) to tort data from BASIC programs. Data may be alphabetic (string) 
or numeric (integer only). Works equally well with Level II or Disk Basic. 
Complete instructions and examples provided for interfacing with your 
■ASIC programs. 

Cassette or Disk Version $9-95 



HOME BUDGET 

Combines the maintenance of your checkbook with analysis of your 
income, expenses, and monthly bills. Handles data including bills, in- 
cluding bills, income, deposits, checks and debits to your checking ac- 
count, and cash expenses. Computes checkbook balance, list of unpaid 
bills, monthly and year-to-date summaries of income and expenses show- 
ing income tax deductions. All output printed on video display or line 
printer at user's option. Complete instructions for customizing to suit 
your own budget. 

Disk Version Only $49-95 



SMALL BUSINESS ACCOUNTING 

Based on Dome Bookkeeping Record "612, this program keeps track of 
income, expenditures, and payroll for a small business of up to 16 employ- 
ees. Income and expenditures can be entered on a daily, weekly, or 
monthly basis, and the program computes monthly, through last month, 
and year-to-dale summaries. Payroll section keeps record of individual 
employees and their paychecks with up to six categories of payroll de- 
ductions. Employee payroll record and year-to-date payroll totals can be 
computed. Manual contains complete instructions for customizing to suit 
your business. 

Disk Version $49 95 
Cassette Version $19-95 

(Cassette Version does not conlain payroll) 



•CQMPJTRQNICS- 



SO N PASCACK ROAD 
SPRING VALLEY. NEW YORK 10977 



v«— -B ros* 

NEW TOLL-FREE 




"! HOUR 
24 ORDER 
LINE 

(914) 425-1535 



ORDER LINE 

(OUTSIDE OF N Y STATE) 

(800) 431-2818 



• All orders processed within 24 Hours 

• 30-Day money back guarantee 

• Add 53 00 tor shipping in UPS Areas 
• Add $4 00 for C O D or NON-UPS Areas 
• Add S5 00 to Canada or Mexico 
• Add exact postage to all other countries 
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GENERAL 



Tweak six additional characters out of Radio Shack's generator chip. 



Soft Characters 



Stephen D. Moulton 
766 Biltmore Drive 
Virginia Beach, VA 23454 



Being a computer program- 
mer both in profession and 
hobby, I was intrigued by a let- 
ter in 80 Input ("Lowercase Ac- 
cess", November, 1980). The 
letter concerned those who had 
Radio Shack's lowercase mod- 
ification installed, which in- 
cluded a brief program to POKE 
certain special characters into 



10CLS 

20 FOR X* 32 to 191 

30 PRINT CHR$(32); CHR$(X); 

40 NEXT 

Program Listing 



video memory. The letter also 
stated that these characters 
were otherwise inaccessible to 
Basic. If you run that program, 
you will see that a lowercase @ 
remains @, while lowercase ar- 
rows and underline keys pro- 
duce spaces (see Program 
Listing 1). 

At this point it occurred to 
me that, If the characters can 
be displayed with a series of 
POKE statements, they are ob- 
viously included in the Radio 
Shack hardware upgrade. The 
lack of accessibility to Basic 
must be caused by a deficiency 
in the software driver. I found 



that this is Indeed the case, 
although I can not fathom why 
Radio Shack would deliberately 
ignore some of the capabilities 
of their character generator chip. 
At any rate, here is a fix for 
ULCBAS which will allow the 
display of six additional charac- 
ters (£,[,i ,},Mt,M) under Basic 
control. In addition, the fix will 
repair the defective automatic 
memory protection feature so 
that the two POKE statements 
recommended by Radio Shack 
need not be entered prior to the 
execution of the driver program. 
First, load and execute 
T-BUG and load ULCBAS using 



Chang* Location 


From 


To 


709D 


5D 


F2 

7D for 16K system 


709E 


70 


BO for 32K system 
FD for 48K system 


7247 


40 


60 


7262 


20 


78 


7263 


20 


7C 


7264 


20 


70 


7265 


20 


7E 


7266 


20 

Table 1 


7F 



the L function. Now use the M 
function to make the changes 
listed in Table 1. The first two 
locations changed will repair 
the automatic memory protec- 
tion feature so that your Basic 
program stack will not interfere 
with the driver software and 
cause a keyboard lockup. The 
remaining six changes add the 
additional characters to the 
driver program. Next, save the 
patched driver on tape using P 
7000 7270 7000 ULC16K (this is 
the filename I use for my 16K 
system, but you can use any 
filename that you find con- 
venient). At this point, I would 
turn off the TRS-80 just to make 
sure that any garbage I may 
have scattered through mem- 
ory will be cleared, but a simple 
J 0000 should suffice. 

To run the modified driver, 
first answer the memory size 
question with Enter (the pro- 
gram is self-protecting, right?). 
Next, type System, press Enter, 
type the filename you chose 
when you saved the program, 
and wait for the tape to load. 
Answer the *? prompt with 
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qsn 


|(C)198l| 
| 88P | 


NEM PRODUCT NEMS 1 




■HIIIIIIIIIIIIIIIIIIIIBBD 




SCRIPLUS 



Scriplus is a modification to Scripsit' which enables 
you to take advantage of the special functions, 
features, and print formats of your printer while your 
document is being printed. Allows you to: 



change expanded print 
change no- of characters per inch 
or underline in mid— line! 



All in accordance with the capabilities of your printer. 
You can change your print size at will! Features: 

1) The user can send commands to the printer to 
activate special formats 

2) Scriplus will not crash programs protected in high 
memory. 

3) "END" returns to DOS READY instead of re- 
booting. 

4) The initial line-feed is changed to a carriage return 
to empty the text buffer. 

5) The user can get an ALPHABETIZED directory 
from within scriplus. 

6) Optionally select automatic line feed after carriage 
return. 

7) Supports custom printer drivers (not included) 

8) Modifies Scripsit/LC or /UC. (MOD I) 

9) Works with MOD I and MOD III! (Including MOD III 
3.1 Scripsit!) 

10) Specifically written for the MX-80, but will work 
on ANY Printer that accepts CHR$ codes for 
control. 



Tape or disk — $ 24.95 

(specify) 



— DEALER INQUIRIES INVITED — 

QUALITY SOFTWARE DISTRIBUTORS 

11500 STEMMONS EXPRESSWAY, SUITE 104 «■■ 
DALLAS, TEXAS 75229 wax 

PHONE (214) 484-2976 ^^™ 

WVMSwpsiU* MICRONET 70130,203 ^27 PnceDo«sNot Include 

trxfeflUfksol Tandy Co>p PosdfC 



/Enter and the familiar Ready 
prompt will appear. You now 
have the lowercase driver in 
protected memory, and ?MEM 
will yield 15046. To view your 
new character set, run the Pro- 
gram Listing 1 again. See the 
difference? 

Now that we can access the 
additional characters from 
Basic, let us discuss how to use 
them in our programming. First, 
you will note that the @ key will 
always yield "@" when used 
alone and "£" when used with 
the shift key, regardless of the 
status of the Shift toggle. I did 
this to make the @ key function 
like the other dual-symbol keys 
at the top of the keyboard. I 
also did not incorporate key- 
board reversal for this key 
because £ will not be used as 
frequently as & in normal pro- 
gramming applications. Note 
that the computer will not 
accept PRINT* as PRINT® 
(although the Exatron Stringy 
Floppy will accept jCLOAD as 
©LOAD). Note also that Shift® 
still functions to pause program 



execution. The next four special 
characters can not be input 
from the keyboard because the 
shifted arrow keys serve control 
functions. These symbols must 
be displayed using ?CHR$(123) 
through (126). The final symbol 
cannot be input from the key- 
board because it is a shifted 
underline, and the TRS-80 has 
no underline key to shift! It can 
be displayed by ?CHR$(127). 

There remains one additional 
note for owners of the Exatron 
Stringy Floppy. The lowercase 
driver software must be loaded 
and executed prior to the in- 
itialization of the ESF oper- 
ating system (this applies to 
the original driver supplied by 
Radio Shack or to the one 
created in this article). After ex- 
ecuting the driver program, the 
Stringy Floppy must be initial- 
ized using /12346 (not /12345) 
because the Exatron and lower- 
case driver debounce routines 
will interfere with one another. 

So there you have it; 32 lower 
case characters for the price of 
26! ■ 



!!NOW AVAILABLE!! 

I NDEX 

Sequential 

Access 

Method 

• Get and Put Records to Disk File by "KEY" 

* Read File in Key Sequence Without Sorting 

* Delete Records Without Recopying File 

• Add Records to Disk Files in Any Sequence 

* Variable Key Length From 1 to 50 Characters 

• Machine Language or Basic Subroutines. 

BUSINESS APPLICATION ADVANTAGES 

- Improved Disk Utilization 

- Easier Program Development 

- Improved Operating Characteristics 

- Reduce or Eliminate Sorting 

- Improved Performance 

ISAM SUBROUTINES Documentation 

ISAM UTILITIES On Diskette $90.00 

- PLUS - Free Mailing List Sample Application 

Add 6% Sales Tax for California Orders 

TRS60 MODEL I, II, A III SOFTWARE FROM: 

Johnson Associates -or- Telephone Order Line 

P.O. Box1402M ^85 For Bank Card Sales 

Redding, CA 96001 (91 6) 221-0740 

WRITE FOR FRffi CATALOG 
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Computer experts 
(the pros) usually have big 
computer experience. 
That's why when they shop 
system software for Z80 
micros, they look for 
the big system features 
they're used to. And that's 
why they like Multi-User 
OASIS. You will too. 



(THEN COMPARE.) 



DATA INTEGRITY: FILE & 
AUTOMATIC RECORD LOCKING 



The biggest challenge 
for any multi-user system 
is co-ordinating requests 
from several usei 
to change tbA.sa^kreM>rc 

at the. 



Without this control, 
unauthorized users could 
access your programs and 
data and do what they like. 
A frightening prospect 
isn't it? 

And multi-users 
can multiply the problem. 

But with the 
Password 



memory is needed. Even 
if you have more than 64K, 
your pay-off is cost sav'u 
and more efficient use' 
of all the memor^ou h< 
availabl^^i ^v it 
sej 




ires 
>S^EWSTns. 
sample: normally 

jsers can view a 
particular record at the 
same time. But, if that 
record is being updated 
by one user, automatic 
record locking will deny all 
other users access to the 
record until the up-date is 
completed. So records 
are always accurate, 
up-to-date and integrity 
is assured. 

Pros demand file & 
automatic record locking. 
OASIS has it. 



leepmnimory 
ser nas been 
, when and 
r how long. 
Pros insist on these 
security features. 
OASIS has them. 



EFFICIENCY: 
RE-ENTRANT BASK 



A multi-user system 
is often not even practical 
on computers limited 
to 64K memory. 

OASIS Re-entrant 
BASIC makes it practical. 

How'? 

Because all users use a 
single run-time BASIC 
module, to execute their 
compiled programs, less 



upports 
nals 
intis little as 
>ry. Or, with 
itching, as much 
s 784K. 
Multi-Tasking lets each 
user run more than one 
job at the same time. 

And there's our BASIC- 
a compiler, interpreter and 
debugger all in one. 
An OASIS exclusive. 

Still more: Editor; Hard 
& Floppy Disk Support; 
Keyed (ISAM), Direct & 
Sequential Files; Mail-Box; 



SYSTEM SECURITY: 
LOGON, PASSWORD 
& USER ACCOUNTING 



Controlling who gets on 
your system and what they 
do once they're on it is the 
essence of system security. 



Scheduler; Spooler; 
all from OASIS. 

Our documentation is 
recognized as some of the 
best, most extensive, in the 
industry. And, of course, 
there's plenty of 
application software. 

Put it all together and it's 
easy to see why the real 
pros like OASIS. Join them. 
Send your order today. 



OASIS IS AVAILABLE FOR 

SYSTEMS Alios Compucorp Cromemcq^ 
Delia Products Digital Group. Digiia 
MicrOSySIPiris. Dynabyle. G odbou t; 
Index. Intcrsystems Nortjj 
SD Systems TRS! 
Graphic Vot 

CONTRO^ 
vus Kc 
bell Tele! 




*ee *;>: r 




Hware Directory 



PLEASE SEND ME: 

Price 
wtlh 

Product Manual 


Manual 
Only 


OPERATING SYSTEM 
(includes 
EXEC Language 
File Management. 
User Accounting; 
Dev^e Drivers. 
Pr.nt Spooler. 
General Tent 
Editor etc ) 
SlMGl f JSER 
MULTI-USER 


$150 
350 


$•7 50 
1 7 50 


BASIC COMPILER/ 
INTERPRETER/DEBUGQER 


•oo 


15 00 


RE-ENTRANT BASIC 
COMPILER/INTERPRETER/ 

DEBUGGER 


150 


1500 


DEVELOPMENT PACKAGE 
Macro Assent) e' 
L nkage to>!0' 
Deeugge-' 


ISO 


:■: : : 


TEXT EDITOR * 
SCRIPT PROCESSOR 


150 


1500 


DIAGNOSTIC & 
CONVERSION UTILITIES 

(Memory Test. 
Assemoiy Language. 
Conveners. File 
Recovery. Disk Test 
File Copy fiom 
omer OS. etc ) 


•CO 




COMMUNICATIONS 
PACKAGE 

Te-m njl Em„ ato'. 
Fi e Se-d & R<--e .*, 


100 


150C 


PACKAGE PRICE 

.A. o' Above) 
SINGLE-USER 
MULTI USER 


500 
B50 


60 00 
60 00 


FILE SORT 


100 


1500 


1 COBOL-ANSI '74 


750 


35 00 



OrdO- OASIS f'0-n 

Phase One Systems, Inc. 

7700 Edgewater Drive, Suite 830 

Oakland, CA 94621 

Telephone (415) 562-SC35 
TWX 910-366-7139 

NAMF 



STRFFT (NOBOX=t 


CITY 


STATE ZIP 
AMOUNT S 






(Aracr-. system aesc* at. on; 

aC3 S3 for s- op.ng. 

Ca'.fo*n a •es'Ce'Vs ac'd saes tax) 

C Chec< enclosed CI VISA 

~ UPS COD j Mastercharge 

Card Number 

Fxpiralion Date 

Signature . 



MAKES MICROS RUN LIKE MINIS 



UTILITY 



A TRSDOS to CP/M conversion program. 



Crossdos 



Jack Means 

1612 East Oakland 

Blooming ton, IL 61701 



Digital Research's CPM is 
neither the most sophisti- 
cated nor the most convenient 
operating system available for 
the TRS-80. However, the large 
number of programming lan- 
guages and quality business 
packages available for TRS-80 
CPM made me more than will- 
ing to order it. 

Immediately after receiving 
it, I was faced with two prob- 
lems. First, the text editor pro- 
vided with CPM (ED) was too 
limited and cumbersome to suit 
my needs. Second, I needed 
some way to transfer programs 
and data files from TRSDOS (or 
NEWDOS) to CPM. 

A Solution 

Program Listing 1 solves 
both problems. I can now 
create a program under 
TRSDOS using virtually any 
text editor (Electric Pencil, 
Scripsit, Electric Secretary, 
even the TRS-80 Basic editor), 
and transfer the file to CPM 
using the attached program. In 



addition, the program allows 
me to transfer any sequential 
data set from TRSDOS to CPM. 
The program can handle ran- 
dom files, but they must first be 
converted to sequential data 
sets. 

To use the program, load the 
file and type "Run". The system 
will immediately display: Enter 
input file name:. 

At this point, enter the name 
of the TRSDOS file to be trans- 
ferred. If the file is a Basic pro- 
gram created with the TRS-80 
Basic editor, it must have been 
saved with the ASCII option 
(i.e., SAVE "MAILLST/BAS",A). 
The next video display will be: 
Enter name for output CPM file:. 

Enter the name which you 
would like to have assigned to 
the file after it is transferred to 
CPM. Remember, if you plan to 
use the file as input to the 
CBasic compiler, it must have 
the suffix of .BAS (i.e., 
MAILLST.BAS). 

Enter CPM Drive (A.B.C.D) for output: 

Enter the CPM drive name to 
which the output data set 
should be written. Remember 
that CPM uses A, B, C, D in- 
stead of 1 , 2, 3, 4. 

The system will now display 
the word Converting: and 



display each text line as it is 
read into the system. When the 
entire file has been read into 



memory, the system will dis- 
play something similar to the 
following: 



10 
20 
30 
40 
50 
60 
70 
80 
90 
100 

lie 

120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
4 80 
490 
500 
510 
;XS 
520 
530 
540 
550 
560 



**** TRS80- CPM *•** 

* * * * TRANSFER PROGRAM • * * * 

* * * « COPYRIGHT *«.» 

* * * * JACK MEANS * * » * 

* * • * 1612 EAST OAKLAND * * • • 

* * * * BLOOMINGTON * * * * 

* * * * ILLINOIS » * * * 

* * * * ALL RIGHTS RESERVED * » * • 



ML-ML-1 



ML=ML-1 
ML=ML-1 



CLEAR 500 : ML-65535 : CLS : DEFUSR1-4H0000 

LINEINPUT 'ENTER TRSDOS INPUT PILE NAME: * ; N$ 

LINEINPUT 'ENTER NAME FOR OUTPUT CPM FILE: ';C$ 

LINEINPUT 'ENTER CPM DRIVE (A,B,C f D) FOR OUTPUT: ";DS 

IF DS < "A' OR DS > "D" THEN GOTO 140 

OPEN "I",1,N$ 

LINEINPUTI1,IS 

IF EOF(l) THEN GOTO 2S0 

L=LEN(IS) : IF L=0 THEN IS=" ■ 

PRINTM48, 'CONVERTING:' : PRINTJ512 , IS;CHRS(31) 

FOR 1=1 TO L 

A-ASC(MIDS(IS,I,1)) 

POKE (-1MML-32767) ) ,A 

NEXT I 

POKE(-l*(ML-32767) ) ,13 

POKE(-l*(HL-32767)) ,10 

IF ML < 33535 THEN GOTO 350 ELSE GOTO 170 

L=LEN(IS) : IF L=0 THEN GOTO 330 

FOR 1-1 TO L 

A=ASC(MID$(1S,I,1) ) 

POKE(-l*(ML-32767) ) ,A : ML=ML-1 

NEXT I 

POKE(-l*(ML-32767) ) ,13 : ML=ML-1 

POKE(-l»(ML-32767) ) ,10 : CLS 

PRINT "FILE ";NS;" HAS BEEN WRITTEN IN MEMORY." 

PRINT "PLEASE COPY THE FOLLOWING STATEMENTS EXACTLY :": PRINT 

A=32768+(65535-ML) : Z-16 : GOSUB 440 s GOTO 390 

N=N-1 : IF N = THEN GOTO 430 

IF B(N)=>10 THEN GOTO 420 

Al«B(N)+48 

MLS*ML$-tCHRS(Al) • GOTO 380 

Al = B[N)+55 : GOTO 410 

GOTO 4ee 

N-N+l : B"INT(A/Z) : C-A-(B*Z> : B (N) •INT(C+. 5) 

B(N)«INT(C*.S) : A=B 

IF A>0 THEN GOTO 440 

RETURN 

PRINT 'MB0OO,';ML$;',430e* 

Z=INT( (65535-MLI/256+1) 

PRINT "SAVE";Z;D$j':";C$:PRINT 

LINEINPUT "PRESS ENTER WHEN YOU HAVE COPIED THE STATEMENTS " 

CLS : PRINT 'REMOVE ALL TRSDOS DISKS." 

PRINT "INSERT THE CPM SYSTEM DISKETTE IN DRIVE A. * 

PRINT 'INSERT A CPM FORMATED DISKETTE IN DRIVE ';D$ : PRINT 

LINEINPUT "PRESS ENTER WHEN THE CPM DISKS ARE READY ":IS 

X-USR1[0) 



Program Listing 
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File MAILLST/BAS has been written 
In memory. Please copy the following 
statements exactly: 

Me000.375O.43O0 

SAVE 8 B:MAILLST BAS 

Press Enter when you have copied the 

statements. 

Once the Enter key has been 
pressed, the screen will clear 
and the following will be 
displayed: 

Remove all TRSDOS disks. 

Insert the CPM system disk in drive A. 

Insert a CPM formatted disk in drive 

B 

Press Enter when the CPM disks are 

ready 

At this point, remove all 
TRSDOS disks and place the 
CPM System disk in drive A 
(TRSDOS 0) and the disk for the 
output in the drive indicated. If 
the data set is to be written on 
the System disk, the second 
statement can be ignored. 

Once the CPM disks have 
been loaded, press Enter. The 

CPM operating system will be 
loaded and the prompt A> will 
be displayed. At this point you 
should enter: DDT. 



The system will then display 
the following: "-". 

Next, enter the first of the 
two statements you copied 
earlier (i.e., M8000.875D.4300). 
The system will respond with: 

Now press the Break key. 
This will cause the CPM to 
reboot. As soon as the A> 
prompt appears, enter the 
second of the two statements 
copied earlier (i.e., SAVE 8 
B:MAILLST.BAS). 

A copy of the transferred file 
is now in the drive specified. It 
can be edited by ED as if it had 
been created on the CPM 
system. However, the last line 
in the file will usually contain 
garbage. To eliminate the line 
simply use the ED kill (K) com- 
mand. 

As written, the system will 
transfer just over 32,000 bytes 
at a time. If your file is larger 
than this, it can be segmented 
and transmitted as individual 
files. Once on the CPM system, 
you can again merge the 
segments. ■ 



AT LAST! 

Mass production prices lor high quality software Buy direct and save 50 Also 
available tor CPM and HDOS 

DATA BASE MANAGER Mod I & III S69 CI 49 <48K) Mod-ll S199 

Maintain a data base and produce reports, all without user programming Define 
file parameters and report formats on-line Key random access fast multi-key 
sort field arithmetics audit log label No time-consuming overlays 500 happy 
user-s in one year Mod II arte) 4BK versions have over 50 enhancements, including 
40 fields maximum IDM-M2 is great 1 - 80-US 

A/fl Mod-IS69 Mod-ll S149 Mod-Ill S69 

Handles invoices, statements, aging, sales analysis, credit checking, forms input, 
and order entry Unlike other accounts receivable programs, ours can be used by 
doctors, store managers, etc 

WORD PROCESSOR S49 

Centers justifies, indents and numbers pages Mod-l version features 
upper/lower case without hardware modification 1 File merge option available 

MAILING LIST Mod I & III S59 S79 i48K) Mod-ll S99 

The best' Compare and be selective Includes forms input 5-digit selection code. 
zip code extension, sort on any field and multiple labels Who else offers a report 
writer and merges with word processor'' 

INVENTORY Mod I & III S89 $109 i48Ki Mod-ll S149 

Fast key random access Reports include order info performance summary. E00 
and user-specified reports Many people have converted to our system 1 Next to 
impossible to damage the file 

GL A/R. A/P. PAYROLL Mod-ll S129 each 

Integrated accounting package 100* page manual As opposed to Osborne s slow 
binary search and 64 column screen, we use fast ISAM and {JOcolumns Dual disk 
and TRSDOS required 

L216 S59 

A cassette package of 10 business programs for Level II 16 K systems Includes 
word processor and data base manager Poker game S19 

Most programs are on-line, interactive random-access, bug-tree documented 
and delivered on disks Mod-l programs require 32K TRSDOS We re II in business 
software— don t let our low price fool you 1 Ask for our free 20-page catalog if 
you re still not convinced Compiled versions are available 



e* 



MICRO ARCHITECT. INC. ^ 

96 Dothan St.. Arlington, MA 02174 




TRS-80 MODEL II 

$ 

8.4 MEGABYTE HARD DISKS 

(PRIMARY UNIT) $4040 



OUT-OF-STATE TAXES AND SHIPPING COSTS 

WARRANTIES HONORED BY ALL COMPANY OWNED 
RADIO SHACK STORES OR COMPUTOR CENTERS 

WE ALSO CARRY A FULL LINE OF PRINTERS, 
COMPUTORS AND ACCESSORIES 




^"^2100 '«*850 

2 DISK RS-232 (ALL RADIO SHACK EQUIPMENT) 



TRS-80 COLOR 4-K $3 1 5 
16-K $495 32-K $595 



COLOR DISK DRIVES 

o*509i23*339 

— T.M.TANDY CORP. 



WE ACCEPT 

CERTIFIED CHECKS. 

CASHIERS CHECKS 

AND MONEY ORDERS 



PERRY OIL & GAS INCORPORATED 



137 NORTH MAIN ST PERRY MICHIGAN 48872 

WE OWN AND OPERATE A RADIO SHACK 



PHONE (517) 625-4161 MlCH 
DEALERSHIP R162 



FOR OUR PRICES PLEASE CALL TOLL FREE 



1 -800-248-3823 



• See List o! Advertisers on page 386 
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GENERAL 



Is anybody there. . . does anybody care? 



Adventures in Modemland 



Fred Blechman 
7217 Bernadine Ave. 
Canoga Park, CA 91307 



So you're a new Model III 
owner— or you're thinking 
of getting a Model III. One thing 
you want to know is, "Are there 
a lot of programs I can use?" 
The answer is an emphatic yes! 
The vast majority of Basic pro- 
grams written for the TRS-80 
Model I will run without modifi- 
cation on the Model III— but not 
all of them. 

But first let's get some con- 
fusing terminology straight. 
Radio Shack has chosen to use 
the TRS-80 name on all their re- 
cent computers (Model I, Model 
II, Model III, Pocket Computer, 
Color Computer and Videotex 
Terminal). However, the Basic 
interpreters for these computers 
are not the same; some pro- 
grams require more memory 
than others; and some pro- 
grams are written for disk-based 
systems, others strictly for cas- 
sette. 

In both the Model I and the 
Model III the less-sophisticated 
Basic is called Level I. They 
seem to be 100 percent com- 
patible, with the added feature 
Model III Level I includes— print- 



er commands not found in 
Model I Level I. 

Model I Level II Basic is large- 
ly compatible with Model III 
Basic. This Basic is not called 
Level II with the Model III, 
possibly to avoid confusion 
with Model II Basic which is 
quite different. 

I have a cassette-based 
Model I Level II 16K unit for 
which I've written and sold 
various programs (Amway 
Products Distributor programs 
and Small Home-Business pro- 
grams). I also have 22 programs 
in a new Hayden book (Pro- 
grams for Beginners on the 
TRS-80). Since all these pro- 
grams were written for Model I, 
I wondered if they would run on 
Model III. 

Real Trouble 

I bought the TRS-80 Model III 
Operation and Basic Language 
Reference Manual (Radio 
Shack Catalog Number 
26-2112, $5.95) and read it cover 
to cover. This convinced me the 
Model III is more than just a 
repackaging of the Model I, 
since it has so many additional 
features. 

Since all my programs are in 
Level II Basic, I didn't concern 
myself with Level I, but looked 
for information on the program- 



ming compatibility with Model 
III Basic. In the 270-page Model 
III manual, less than one page 
is devoted to Model I to Model 
III conversion hints! What par- 
ticularly grabbed my attention 
were the differences in avail- 
able memory (less in Model III) 
and the slightly different 
character sets. I could see I 
was in trouble, but later found 
the trouble was worse than I 
thought. Many Level II Model III 
differences are not mentioned 
in the manual! 

It became obvious that the 
only certain way to find out how 
my programs would operate 
with a Model III would be to run 
them on one. Armed with my 
Level II cassettes, my own 
recorder and a loading meter 
(to reduce tape loading prob- 
lems), I went to the local Radio 
Shack Computer Center and ex- 
plained my dilemma to the 
store manager. He could not 
have been more cooperative. 

There were about six Model Is 
and six Model Ills set up for 
their classroom, and he said I 
could use them as long as I 
didn't interfere with his 
classes. 

I found a 16K Model III Basic 
machine and immediately ran 
into the first thing not men- 
tioned in the Model III manual. 



It seems Radio Shack recently 
changed the DIN five-pin plug 
on the cassette recorder-to- 
computer cable from one with a 
thick plastic sleeve to one with 
a thin metal one. The old type 
plastic sleeve DIN plug will not 
fit the Model III socket! You 
must have the new Radio Shack 
cassette recorder cable, now 
supplied with the CTR-80A 
recorder also available sep- 
arately (Catalog Number 
AW-2577 for $6.95). The new 
cable fits both Model I and 
Model III. 

The manager loaned me a 
new cable. We plugged every- 
thing in, turned on the Model III 
and "CASS?" appeared on the 
screen; this was the computer 
asking me what cassette speed 
to use. Model III Basic uses 500 
baud for data recording; 1500 or 
500 baud for cassette program 
loading or saving. Since Level II 
uses 500 baud only and my 
cassettes were recorded in 
Level II, I typed and entered L 
for low cassette speed. The 
default value (pressing Enter 
without typing anything) will 
result in a high cassette speed 
and Level II tapes will not load! 

The first program I tried was 
my "Amway Order Verification," 
which loads into about 10,400 
bytes of memory: no problem — 
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until I tried to run it. While 
dimensioning a large array — 
something I had no problem do- 
ing with my Model I 16K— the 
Model III told me it was out of 
memory. Model III Basic has 
less available memory. 

A Definite Lack 

How much less? That de- 
pends on your Model I. The 
Model ill has 258 bytes less 
user memory than the older ver- 
sions of Model I Level II, 256 
bytes less than later versions. 
When you type and enter: 
?MEM or PRINT MEM on the 
Model I, you get 15572 (older 
Model I) or 15570 (new Model I) 
for Level II 16K. On Model III 
16K Basic you get 15314. This is 
the best way to determine no 
extra memory has been re- 
served for Clear, arrays or 
upper-memory programs. (Ac- 
tually, 50 bytes are auto- 
matically cleared on power-up 
for string handling. To prove 
this, type and enter CLEARO 
and then ?MEM and you'll find 
15364 as the Model III Basic 
total free memory, but you 
won't be able to handle any 
strings at all. Type and enter 
CLEAR50 and you're back to 
power-up configuration.) 

Fortunately in this program, 
the entire array was not really 
required. I reduced the array 
size and the order verification 
program ran beautifully. In 
another version of this pro- 
gram, which needed the max- 
imum array size, I removed 
some remark lines to free 
enough memory. 

A Mystery Revealed 

Next I loaded my "Amway 
Monthly Gross Profit" pro- 
gram—plenty of memory to 
spare, no problem there. 
However, right at the beginning 
of the program I PEEKed at 
memory location 14312 to 
determine if the printer was 
ready. A number in this memory 
location indicates the printer 
status in the Model I. The 
printer status is at the same 
memory location in Model III 
Basic. Unfortunately, the value 
of the number at this memory 
location is not the same in the 
Model I and Model III. 

The solution to this problem 



is to PEEK at location 14312 
with your printer on and ready 
and note the number for that 
particular printer. Be aware 
that different printers may give 
a different value at 14312 — 
especially if you are using a 
serial printer with a printer- 
driver program in memory. The 
printer-ready number at 14312 
can then be used by the pro- 
gram to determine if the printer 
is ready. If not, the program can 
branch around LPRINT com- 
mands. 

Also, it's not generally 
known (and not in the TRS-80 
manuals) that with Level II 
Basic you can punch in 
POKE16423.4 to make your pro- 
gram transparent to LPRINT 
statements. This also works 
with Model III Basic. 

However, to restore program 
recognition of LPRINT, you 
must insert POKE16423.5 for 
Model I or POKE16423.3 for 
Model III. Do not put in 
POKE16423.5 on the Model III 
or you will lock the computer in 
Disk Basic and will be able to 
recover only by turning the 
computer off (thus losing your 
program) and then turning it 
back on after 10 seconds while 
also pressing the Break key. I 
found this out from the store 
manager when I unintentionally 
locked the computer center's 
Model III in Disk Basic and 
thought I had destroyed it! 

With Renewed Courage 

Regaining my courage, I 
loaded and ran five other Am- 
way programs and found no 
other changes necessary. Then 
I turned to the Small Home- 
Business Package designed for 
Level II 16K with printer. The 
first program, "Speed-Letter," 
a simple text generator, bombed 
out with the message ?OM ER- 
ROR in 130. Line 130 of that pro- 
gram is CLEAR9400, to preserve 
lots of string space for text. The 
fewer bytes of free memory in 
Model III Basic caused this to 
happen, so I changed line 130 
to CLEAR9000 to reduce the 
memory requirement. This 
allowed it to run in Model III 
Basic, but also reduced the 
length of text permitted in us- 
ing the program. 

That program also uses an 
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Dough flo (do'flo) n. [Colloq] a highly inter- 
active business or home finance program, 
designed to instantly analyze where the hell 
all that money went. 

Doughflo It's a business program It's a home finance program Ooughllo is (now hold 
your breath), 'an expenditure oriented data base management system " (Whew.) Bui 
best of all. it's easy to use 

What the heck does Doughflo do? I ots 

• Allows instant analysis ol business or home casn now Fo''> 

• Keeps tabs oi expenses with up to ?6 user defined categories 

• Allows separation o' home and busiress expenses *or tax. Social 
Secunly. deductions etc 

• Ideal lor preparing income ana state taxes 

• Is able to search so't and produce nam copy ol any numoei of teffft ana 
checks over any range of dales categories amounts, vendors, or 
descriptions 

Be your own business analyst' Virtually obsoletes a bookkeeper because your com 
puter does the work for you Use Doughflo to 

• Instantly retrieve up 10 450 recoils a' a ;">>e without lime consuming disk 
access 

• Easily generate detailed reports o> at expenditures 

• Satisly your boss wife (husband 7 ) or yourself that you know how wisely 
(or foolishly) money is bemg spent ■'•. 

Exceedingly simple to use (we tested it on simple people!), now there is no excuse 
not to know where the hell you lost all that money, whether it was last year or last 
month Best of all. maybe now you'll be able to save some ol that dough tor the 
future 1 Requires 32K and one or more disk drives Specify Model I or III. At only 
$39.95 postpaid, it's a steal sure to save you money 1 



alphanelies 



P.O. BOX 597 FORESTVILLE. CA 95436 
24 hr. phone (707) 887 7237 ^ " 



4JV-J4TA 



PERFECT 
CLOAD 



DM M til 



TIME 




Al PHANETICS TRS-S0 TAPE DIGITIZER 

■ rrom a renew in me September October 1980 Elementary E lee Homes Reprints available upon request 

At last there is a cure lor TRS 80 tape cloading blues For over three years. Alphanetics 
has been seiling Ihe TRS 80 Tape Digitizer a proven hardware solution lor your sottwa'e 
problems No longer need you juggle the recorder s volume control endlessly, trying lor 
a perlect cload ol a pre recorded program Just pop the tape into Ihe cassette recorder. 
process the signal through our digitizer, and you re ready to RUN a perlect load! , 

Just check out the Tape Digitizer's teatuies 

• Makes tape program loading virtually independent o' volume control 
selling 

• Allows copying system and normal rapes withoul using computet 

• M<ikes a perfect digital copy of any tace without using compuler ' 
removing hum noise and cures minor dropouts 

'• Cassette switch allows manual control o' cassette recorder independent 
o' computer control 

• Good Data indicator easily enables setting proper volume doubiesas 
a tape monitor 

• AC powered no batteries to replace . 

• Housed m a sturdy attractive metal case 

• Completely compatible with level i & II also LOW speed Model III 

Feed your cassette lo Ihe Alphanelics Tape Digitizer and teed your computer the exact 
digital wavetorm the TRS 80 gave your tape Gel rid ol your tape bugs today — $64 95 
postpaid or return within 10 days tor a lull refund 1 



• See List ot Advertisers on page 386 




PROBASIC 



PROBAStC $195.00 

Loader retocataWy links user specified modules to save memory. 
Design BASIC to your specifications (now or later). 
Dump feature allows you to save your versions of Basic 
Sample: PROBASIC -P: ACDEFGIM -S:Your file 



Probaslc Includes the following relocatable modules 



PRO - ANGLES 

DEGREES, RADIANS 
ASIN. ACQS, PI # 



PRO-LABELS 

Label branching & testing 
IF LABEL 85 < > Test" 
THEN MERGE . . . 
85 Test" PRINT Test" 



PRO-DEBUG 

* Most brackets optional . . . 

* Fix - T M error 

* New - DELETE 

* TRSTEP, TRVAR, PROC, 
INSERT, DIR, INBSC 



PRO-EXTENSIONS 

Dynamicly save variables & 
files during editing, merging, 
linking & deleting, . . . 
New - RENUM 
New - MERGE. LINK 



PRO-KEYS 

Redefine key(s) to any string 
from program or keyboard 

* Enable/Disable from key- 
board with CTR'L - ) 

* Fix - live - keyboard 

* PROKEY = , PROKEYS 



PRO-WORDS 

UPC$. LWC$, TRIMS, REVS, 
PAUSE, RPTS FCHR, FSTR, 
FSECTS, CHGS, EVAL, 
CKKEY, FRACT, COMP, 
FQTY, MIN, MAX, EDT$, E #, 
INVS, CNSECS, 



PRO-MACH 
SVC axcess to basic subs 
New - BREAK (Reset) 
PEEK, PEEK%, PEEKS, 
POKE, POKE%, POKES, 
CALL adres (parms), 
CLRTN, EXECUTE, INP, 
OUT 



PRO-EDIT 

Immediate entry keys 
M**,./fl 

New - LIST & EDIT 
ROLLUP, ROLLDN 



PRO -CRT 

Inverse vidio 

CRT, CRTS, SCROLL 



PRO-SORT 

String aray sort routines 
2000 strings in 7-16 sec 
SORTa$(*USING 1.2. . . 



PRO - FILES 

Fa - LOF 
RELOC, OPEN "E" 



PRO-FUNCTIONS 

Multi-line Functions 

MIDS TO 

WAfT for $ reorganizing 

New-HEXS 

Misc fixes 



Call and we'll send our 
PRO-80-SYSTEMS .so/ 
3206 CENTER STREET 
Cedar Falls, la. 50613 



PRO - VRS 

Allows 3 letter variables 
Reserved words in variables 
UPCVRS, LWCVRS 
KEYVRS. VARLEN 



PRO-GRAPH 

Draw lines, patterns, points 
SET, RESET, POINT, 
USING, TO, GRAPH 



TEST PROGRAM" listing 

319-266-4262 
319-266-7184 
319-233-6111 



up arrow to indicate the end of 
text. The Model III video display 
character set is not identical to 
the Model I. In particular, there 
are 96 special additional char- 
acters, but no up, down, left or 
right arrows! It seems incredi- 
ble these were not included in 
the new 96 characters. The up 
arrow on the Model I keyboard 
produced an up arrow on the 
screen. This could also be gen- 
erated using the command 
CHR$(91). The Model III key- 
board still has an up arrow, but 
this key (or CHR$(91)) produces 
a left bracket instead of an up 
arrow. I didn't change my pro- 
gram but instead, tolerate a left 
bracket instead of an up arrow 
on the screen. This could really 
be a problem in a program that 
used arrows to indicate direc- 
tion, such as some game pro- 
grams. 

Another Program Bombs 

My "12-Column Ledger" and 
"3-Across Mailing Labels" pro- 
grams loaded and ran with no 
changes. 

However, I ran into two 
Model III Basic problems with 
my "Telephone DialerTimer" 
program. This program auto- 
matically dials a telephone, us- 
ing up to 500 names and phone 
numbers stored in memory. The 
dialing is accomplished by us- 
ing the internal TRS-80 relay to 
trigger an external buffer relay 
whose contacts interrupt the 
phone circuit. The recorder 
cable subminiature plug (which 
normally goes to the recorder 
remote jack) is directly con- 
nected to the internal TRS-80 
relay contacts. The OUT255.4 
command on the Model I closes 
this relay's contacts, and 
OUT255.0 is used to open the 
relay contacts. This does not 
work on the Model III, so I got 
help from the manager again. 
He and the Computer Center 
lead technician went through 
some Model III schematics and 
told me to try OUT236.2 to close 
the relay and OUT236.0 to open 
it. It worked! 

The timing portion of this 
program, used to show elapsed 
time in seconds and minutes 
for cost calculation, was run- 
ning too fast. The Model III runs 
at 2.02752 MHz, while the 



Model I runs at 1.774 MHz. Con- 
sequently, any For. ..Next loops 
used for timing need to be 
modified. Unfortunately, al- 
though the Model III internal 
clock speed is approximately 
14.3 percent faster than the 
Model I, the Basic speed of 
operation is not directly related 
by the same percentage. In this 
program I found a FOR X = 1 TO 
266:NEXT loop had to be 
changed to FOR X = 1 TO 
285:NEXT (only a seven percent 
increase in counts) to retain 
one second for a completed 
loop count. It becomes a matter 
of trial and error and will vary 
with individual machines and 
room temperature. The circuits 
are crystal controlled, with no 
real attempt at extreme ac- 
curacy or long-term tempera- 
ture stability, so don't expect 
your TRS-80 timing loops to 
have even the accuracy of your 
digital wristwatch. 

I ran into the same thing in 
my "Telephone Toll-Charge" 
program, where a similar 
For.. .Next loop count had to be 
increased from 263 to 325 (an 
almost 24 percent increase in 
counts) to maintain a nominal 
one-second completed loop. 
Several things affect the run- 
ning speed of For.. .Next loops: 
the location of the loop within 
the program; whether the vari- 
able is an integer, single or 
double precision; and to some 
degree, the number of other 
variables that precede this loop 
variable in the program. 

Next, I decided to see how 
the 22 programs I wrote for the 
Hayden book would run in 
Model III Basic. Most of these 
programs were originally writ- 
ten in Level I 4K Basic, then 
changed to Level II. Since the 
book features line-by-line ex- 
planations of each program, I 
wanted to see if any rewriting 
would be necessary. I found 
that except for the numbers in 
some timing loops, no other 
program changes were 
necessary. So, Model III runs 
many simple Model I programs 
with little or no change. 

The book also contains 
several appendices, and I 
checked their validity for Model 
III Basic. A two-line keyboard 
debounce program, needed in 
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Level II to prevent multiple en- 
tries when pressing a key only 
once, is not needed for the 
Model III, since the keyboard 
does not have this problem. My 
Audio/Visual Control Box, for 
reliably loading cassette pro- 
grams and controlling recorder 
operation, worked perfectly 
with the Model III without any 
changes. Simple subroutines 
for printing the screen display 
on a printer, with and without 
graphics, worked perfectly. But 
I ran into trouble using a simple 
two-line Basic program merg- 
ing technique. 

Another Discovery 

The Model III manual 
memory map (page 12/23 of the 
operation section) shows 17129 
as the beginning of user 
memory. However, decimal 
memory locations 16548 and 
16549 are the beginning-of- 
program pointer. The numbers 
in these two locations are the 
least and most significant bits, 
in decimal form, of an eight- 
digit byte giving the decimal 
location of the beginning of the 
Basic program area. 

For Model I Level II, location 

16548 shows a 233 and location 

16549 has a 66. Multiply 66 by 
256 and add 233 and you get 
17129. However, the Model III 
on power-up shows a 67 in loca- 
tion 16549 and 233 in 16548. 
Since 67 times 256 plus 233 
equals 17385, it seems the 



beginning of Basic programs is 
17385— exactly 256 bytes 
higher than in the Model I. 

Apparently this is where the 
Model III lost 256 bytes. I con- 
firmed this with some PEEKs at 
a Basic program in memory and 
by successfully merging pro- 
grams using the technique in 
the book, revised to reflect the 
new beginning-of-program loca- 
tion. 

While you may wonder if this 
is important, I can tell you this 
change will raise havoc with 
any System tapes you have that 
load into low memory. There 
are various utility programs 
that do this. They won't work 
unless modified and for most of 
them this means "back to the 
drawing board," since they are 
written in machine language, 
not Basic. 

Another item in my book ap- 
pendix needed revision. I have a 
one-liner that makes two 
cassette copies with a two- 
second gap between them. I put 
this at the end of all my pro- 
grams as the last line: 



WEB International T-Beep, a 
device that beeps on command 
from the computer. This tells 
you when the computer has 
finished a task (sort, search, 
load, save or a program error). It 
uses a simple command and 
time-loop for operation from 
the cassette auxiliary cable. 
The command OUT255.1 
causes the voltage at the com- 
puter's gray miniature phone 
plug to go from its normal 45 
volts dc to .9 volts dc. This is 
enough to make the T-Beep 
sound. The command OUT 
255,0 returns the voltage to .45 



volts. I checked this out on the 
Model III and these commands 
have not been changed. 

There are many other subtle 
differences between Level II 
and Model III Basic in various 
ROM addresses that can crash 
your programs written for Level 
II in machine code. Also, Basic 
POKEs and PEEKs will have to 
be carefully checked. If your 
Level II program crashes in 
Model III— especially with a 
?CASS or the memory size query 
on the screen— you probably 
POKEd into the wrong loca- 
tion. ■ 



Utterance 


Level II Baste 16K 


Model III Basic 16K 


Cassette Cable ' 

Less Memory 
(256 or 258 Bytes) 


Plastic Oi N Plug 
?MEM = 15772 or 15770 


Metal DIN Plug 
(R/S»AW2577) 
?MEM = 15364 


Printer Status* 
(Same Location. 
Different Value) 


?PEEK (14312) 
(Note Value) 


?PEEK (14312) 
(Note Value) 


LPRINT* 


POKE 16423.4 to Disable 
POKE 16423.5 10 Enable 


POKE 16423.4 to Disable 
POKE 16423.3 to Enable 


CHR$<9D 


t 


( 


Arrows 


r -• t — 


None 



CSAVE"1" 0UT255,4:F0H 1 = 1 
20O0:NEXT:CSAVE"1" 



TO 



See the problem? OUT255.4 
must be changed to OUT236.2 
for Model III. With this as the 
last program line, you merely 
type run line number and Enter 
and the computer dumps two 
copies on tape. 
One of my programs uses a 



Speed 


1 774 MHz 


2 02752 MHz 


(Timing Loops) 






Internal 


Out 255.4 to Close 


Out 236.2 to Close 


Relay' 


Out 255.0 to Opefi 


Out 236,0 to Open 


Beginning of 


17129 (42E9He») 


17385 (43E9 Hex) 


Basic Program - 






"Not covered ior incorrect') in Model Ml manual 




Table 1. 


Some Level ll/Model III Bas 


c Differences 



5,000,000/20,000,000 BYTES 

From Micro Mainframe 
10 MEGABYTE HARD DISK DRIVES, with REMOVABLE Cartridges. For Models I / II / III ($5. 995/ $8990) 
SERIES III H. Model III with 5.000,000 byte hard disk drive(s) ($6,995/59,095) or add to your Model I /III ($3,795). 
SERIES III F. Model III with a controller board (available separately) and operating system which allows you to start 
with, or move up to, dual-headed or eight-inch floppys. 

From AT-80 
GLB8 — S149 — Radio Shack General Ledger 1.1 with over 30 added features; including a general ledger, classified bal- 
ance sheet, check register and options to use an "automatic" account number or re-do an entry or document. 
ARB8 — $199 — Radio Shack Accounts Receivable 1.2 with automatic posting of standard monthly amounts. 
GL/W1 — $49 — Convert your General Ledger 1.1 to GL80. Typical user comment: "Takes half as much time." 
AR/M1 — $49 — Convert your Accounts Receivable 1.2 to ARM Typical user comment "Saves hours " 
GL/M1 and AR/W1 require proof of purchase of the original programs, or. send a disk copy of the original programs for 
conversion at no additional charge. Documentation (apply to purchase) — $5.00 each. 

FTDEM080 - $12 - Displays and Executes the NEWDOS/BO Appendix A programs/ keyboard entries. Requires 32K. 
MEWJ0S/8Q - $135 LD0S-S135 EPSOM PHX-70/80/FT - $Clll FRICTION KIT - $49 

AT-80 3827 Dismount Dallas, Texas 75211 (214) 339-0498 : 



-S»« List ot Advertrse's on page 38C 
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TlC-TOC 80™ 

Micro Clock 

Put o wrist watch on your Computer. Gives Time, Date, 
and Day of week, without the need of operator input. 
Runs on Batteries, so it never needs to be reset. Gives 
you the ability to enter dota with the knowledge that 
the Date and time are correct. Includes complete 
documentation, and sample routines. 

Mod I Version $99.00 

Mod III Version $109.00 

NEW DOS PLUS SUPPORTED!! 



LIGHT PEN 



Model I & II Light Pen. Needs only o 9 Volt Darrery. 
Attoches through the cassette recorder for ease of 
operation. Easy to use and program. Comes complete 
with hardware and extensive documentation and 
sample routines. All this power for only $19.95 



LYNX MODEMS 



Expand your horizons, allow yourself to communicate 
with other computers, and for others to communicate 
with your computer!! Now this is eosy to do with the NEW 
Model I (? III LYNX Modem with Auto Answer/Diol 
features. Needs no RS232-C Board installed in the TRS- 
60 T ". Full 1 yeor worranty. All this for only $299.95 



MODEL III MEMORY KIT 

Upgrade your Model III to 32 or 46 K with the RIGHT 
Memory Chips. These ore Prime 150ns (Fost!!) chips. 
Beware of slower chips, os future Mod III upgrades may 
not work with them! 

16Kset J45.00 

32K set $80.00 



UNITERM 

UNIVERSAL TERMINAL PROGRAM 
by Pete Roberts 

The first and only fully intelligent terminal program for 
BOTH Mod I and Mod III users! Includes all features found 
in Terminal programs costing MUCH more, plus many not 
found anywhere else. Includes extensive 
Documentation and handsome binder. 
Price $79.95 



RUN YOUR OWN 
COMPUTER BULLETIN 
BOARD 

Become a CONNECTION-80 SYSOP (System Operator) 
with a LYNXModem. and CONNECTION-fiO BBS Proaram 
by Tom Vonde-Srouwe & Rich Toylor. All for only $399 
($ 1 00 off regular price). 

CONNECTION-dO BBS Alone $199.95 

LYNX AutoModem Alone $299.95 



DOS PLUS 



This is the BEST Operating System currently available for 
the TRS-fiO™. It offers you all the features you could ever 
use. speed, reliability ond much more. Available for the 
Model I and III. Single and double density systems 
ovoiloble. Only 99.95 either system. 



UTILITY PACK 



COPY 



by Dick Dolcom 



Load in rhe 500 Baud sysrem ropes in 1 /3 rhe rime with 
Copy III. This utility will read in your 500 baud system 
topes ond then write them out ot 1 500 boud. This gives 
you backup protection os well o speeding up your topes. 
A must for oil Model III Cassette users! 
SPECIAL S9.95 



CASOP 



The CASOP Utility will allow you to copy systems topes, 
find lood locations, check for hidden messages, modify 
program blocks, relocate program blocks ond merge 
two tape programs together. CASOP is a must if you write 
or load SYSTEM topes $24.95 



by Mike Friedman 

FOR THE SERIOUS TRS-dO*" USER 

CONTAINS: 

S pooler: Very fost. Allows page parameters 6 Perf Skip. 

This spooler allows you to switch Doss without 

Interupring printing!! 

Erase: Super program, purge utility with many modes of 

operation. You will never use KILL ogoin!! 

Mgpj Places a sector mop of your disk on the screen. 

Shows free, used ond locked out qrans. 

All for only $49.95 



MODEL III DISK DIRECTORY 

PROGRAM by Dill Moxey 

Catalogue your Diskettes with this easy to use Cotologue 

program for Model III Disk systems. Con run on os little os 

a 32K 1 Disk system. Helps you keep track of ALL of your 

programs. 

ONLY J 19<95 



S 




jj 171 Hawkins Rood ^22 

Centereach, New York 11720 



j '^** ! C S 



(516) 981-8568 (Voice) 
(516) 588-5836 (Data) 
MNET-70331, 105 



Dealer Inquiries Welcome 

Add $2.00 S & H 
NYS res. odd oppr. tax I 
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AMBE 



EYE FATIGUE- Much 
discussion has token 
ploce regarding 
screen Color ond 
contrast. Extensive 
research has 
produced a 
breakthrough in the 
prevention of 
Operator Eye Fatigue. 




Amber has been found 
to be much more effec- 
tive in preventing eye 



TM 



fatigue than any other 
color. Put on Amber 
Eoze Filter on yourTRS- 
80™ or any other 
computer monitor. 
Contact one of the 
dealers below. 

Model I S19.95 

Model II Gill.. S24.95 
Other Computers Coll 



The Copyright Kit 

How to Copyright your Computer Software 



A self-instruction 
booklet on 
copyrighting the 
computer programs 
you write. INCLUDES: 
Step by step 
instructions, sample 
forms, os well as 
discussions of 
copyrights, patients 
ond trade secrets, your 
rights secured by 




copyrights, legal 
remedies upon 
infringements, 
material not 
copyrightable and 



MUCH MORE! Written 
by Attorneys. 
Published by National 
Attorneys Publications 
Inc. and distributed 
exclusively through 
D.T. Enterprises ond 
available from the 
dealers below. IF YOU 
EVER WROTE A 
COMPUTER PROGRAM, 
YOU NEED THIS BOOK!! 



Available At 



Oreeze Computing 
P.O.Box 1013 
Berkley Ml 46072 
313-288-9422 

Programs Unlimited 
20 Jericho Tpke. 
Jericho. NY 11 753 
600-645-6036 

Contemporary Comm Corp. 
5562 Coral Way 
HosletT. Ml 46840 
517-339-1028 



Computer Mogic Inc. 
1 1 5 Weltshire Ave. 
Louisville. KY 40207 
502-893-9334 

Son John Enterprises 
P.O. Dox 1671 
Freemont, CA 94538 
415-651-4147 

Stevens Radio Shock 
562 Nutt Rood 
Phoenixville. PA 19460 
600-345-6279 



All Systems Go 

1 05 W. Plant St. 

Winter Garden. FL 32781 

305-877-2830 

Dob s TV. 
93-1 5 86th Drive 
Woodhoven. MY 11421 
212-441 2607 

Soft Sector Morkefing 
6250 Middle Belt Rd. 
Garden City. Ml 46135 
313-425-4020 



CPU Computer Corp. 
175 Main Street 
Charleston MA 02 129 



Computer Serv. of Danbury 
P.O. Dox 993 
Danbury, Cr. 068 10 
203-744-5516 

Omni Systems Associates 
P.O. Dox 632 
W.Caldwell. NJ 07006 
201 226-9185 




171 Howkins Road »*i2a 
Cenrereoch, New York 1 1720 
(516) 961-8566 (Voice) 
(516) 588-5836 (Data) 
MNET- 70331. 105 



Deoler Inquiries Welcome 

AddS2 00SGH 
MYS res odd appr iox 




■ See List ot Advertisers on page 386 
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TECHNIQUE 



Harmony and multiplicity. 



Multi-Statement 



Dan Keen and Dave Dischert 

Custom Tailored 

Computer Software 

RD # 1, Box 432, 

State Highway 83 

Cape May Court House, NJ 

08210 



One of the best features of 
Basic programming is that 
once you become good at it, 
there are more conquests to 
make as you discover new 
methods to use so your pro- 
grams look neater, execute 
faster, and use less memory 
space. We will examine some 



tricks that will help you round 
off those rough edges. 

It never occurs to most pro- 
grammers that data state- 
ments can exist in harmony on 
multiple statement lines. The 
Model I owner's manual gives 
the impression that data lines 
should be tucked away by 
themselves at the bottom of the 
program. But, both of these 
lines are valid: 



10 DATA 23,25,89,100: FORX-1 to 4: READ 

A(X):NEXT 

10 FORX « 1 to 4: READ A(X): NEXT: DATA 

23,25,89,100 



Don't hold back on the length 
of multiple statement lines, 
pack them full. Multiple 
statements save bytes and 
decrease program run time. 



ia cls 

20 PRINT3256 , ' <A>DD" : PRINT" <R>EPORT" : PRINT' <D>ELETE" : PRINT" <S>ET 
UP" 

3B A$-INKEY$:IFA$-"A"THEN100ELSEIFA$»"R"THENRUN"REPORT/BAS"ELSEI 
FA$«"D*THENRUN"DELETE/BAS*ELSEIFA$-"S"THENGOTO200 
40 PORX-lTO50:NEXTtGOSUB60:FORX-lTO100:NEXT:GOSUB70 
50 GOTO30 

60 PRINTe257,"A*;:PRINT?321,"R" ) :PRINT?385,"D";:PRINTe449,*S"|:R 
ETORN 

70 PRINT§257," ";:PRINTe321," "; : PRINT8385 . * " : :PRINTM49," "i:R 
ETURN 



Program Listing 1. 



10 ONERRORGOTO100:DEFUSR»123456 




20 REN 




OTHER INSTRUCTIONS GO HERE 




FOR DISK 




80 GOTO200 




100 POKE16526,L. S. B. : POKE16527 f N. S. B. 


OTHER INSTRUCTIONS GO HERE 




FOR TAPE 




200 ONERRORGOTO0:REM 




PROGRAM STARTS HERE 




210 X=USR(Q) 




Program Listing 2. 





Program Listing 1 shows a 
sample menu. An option is to 
be selected. Check out line 
30— it's packed, but very effi- 
cient. The book didn't tell you 
that it's possible to use more 
than one If . . . Then . . . Else 
statement on a line, but you 
can use as many as you want. 
Just keep track so each If has a 
Then, and an Else If needed. 

There are two other in- 
teresting points to be made 
about that short program in 
Listing 1. First, if some options 
are selected, program execu- 
tion may branch to another sec- 
tion within the program (by us- 
ing GOTOs), or it may run an 
entirely different program. All 
the command words listed in 
chapter two In your Level II 
owner's manual can be used. 
The only exception is CONT: 
It's not that the machine 
doesn't recognize that word, it 
just doesn't know what to con- 
tinue. 

Some commands don't 
return you to your Basic pro- 
gram after they execute, such 
as CLOAD, List and System. 

Experiment deleting lines or 
even causing New to execute if 
the operator indicates he's 
done with this program. 

The second point of interest 
is dynamic flashing of the 
characters to be selected. As 
you can see, the program 
prompts you to respond with A, 
R, D or S. Between checking the 
keyboard via INKEYS, these let- 
ters are blinked on and off. 
Since the Model I doesn't have 
a flashing cursor, this 
animated input lets the 
operator know that the com- 



puter Is ready and awaiting 
further instructions. 

Potpourri 

You can use a PEEK state- 
ment as the value part of a 
POKE statement. This line 
takes the character on the up- 
per-most left side of the screen 
and displays it near the center of 
the screen: 

10 POKE 15850, PEEK (15360) 

Variables with a declaration 
character after them may or 
may not be the same as the 
plain variable. For example, if 
you use the variable SR%, 
don't expect SR to have the 
same value. We've run into 
trouble assuming that the two 
would always be equal. 

Auto Date Routine 

If you have a program which 
uses the current day's date 
within it, put the auto date 
check routine at the top of Pro- 
gram Listing 4. The routine 
determines if the date has been 
set. If the date has not been set, 
it will ask you to Enter the date. 
Should the date already be set, 
then it will display the date and 
ask Is Date O.K.? Execute these 
lines before a clear statement 
in your program so none of the 
variables here will interfere 
with those used later on. 

The routine simply PEEKs 
the address where the day is 
stored. If the value there is zero, 
the date has not been set. 

The For ... Next Trick 

Check out Program Listing 3. 
See the NEXT A In lines 50, 60, 
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70, 80, and 100? You could 
rewrite the program by chang- 
ing all of those NEXT As to 
GOTO 20 and delete line 10. But 
the program as it stands takes 
up fewer bytes than would the 
GOTO version even with that 
extra line deleted! 

This method is a convenient 
way of returning to the same 
point in a program. Perhaps the 
returned point could set up 
something on the screen, or 
reset some variable. By step- 
ping zero, the loop never runs 
out of counts. 

The For . . . Next Step 
technique is not necessarily a 
great advantage over GOTOs 
and GOSUBs, but it does use 
less memory. 

A Disk Basic Trick 

Here's a trick for Disk Basic 
programmers. We had a pro- 
gram where we were cramped 
for disk space and each byte 
was important. The program 
must store many dates, both 
the month and the day. The 
trick is to take the dates and 
manipulate them so they take 
up less disk space. 

Since there is no need to 
store a slash (/), just create one 
number from the two. Then you 
can use MKI$ and store the 
number as an integer. Upon 
retrieving the number, do the 
reverse. Add a slash and split 
the number in two. This saves 
bytes over storing the date in 
its entered form: 

10 INPUT'ENTER MONTH AND DAY 
(MM/DD) ";DA$ 

20 DA = VAL(LEFT$.2) = RIGHT$<DA,2)) 
30 LSET(fleld variable) = MKIJVDA) 

To restore: 

10 B$ = STRVCVKfield variable)) 
20 
BS = MID$,(B$1.2) + "r + RIGHTS<B$,2) 
30 PRINT BS 



Game Tips 

When writing a game or a 
children's program which 
utilizes an INKEYS, use a dum- 
my INKEY just prior to the one 
you want. This picks up any 
stray keys that may have been 
pressed before you want a 
response from the operator. 
Here's how it could be set up: 



10 IKS = INKEYS 

20 PRINT-SELECT A LETTER" 



30 A$ = INKEYS: IF AS = '"'THEN 30 
40 PROGRAM TEXT 

The variable IKS will never be 
used anywhere in the program. 
It simply prevents previous key 
entries from getting through to 
line 30, where the real variable, 
A$, is quizzed. Let's go one step 
better than INKEYS for getting 
input from the operator. 

By PEEKing memory loca- 
tion 15350, you can find a value 
returned by the keyboard. This 
method has two advantages 
over INKEYS. AS = INKEYS 
won't hold the value if it is in a 
loop. The next time that state- 
ment is hit, AS would change to 
become whatever is there. 

Also, PEEK will detect if 
more than one key is being 
depressed. This is great for 
checking to see if the arrows 
are being held down. The up ar- 
row returns an eight, down ar- 
row 16, left arrow 32, and the 
right arrow 64. If you hit the left 
and up arrows together, the 
memory location holds a 40, 
which is the addition of 32 and 
eight. Furthermore, holding 
down a key will enable you to 
design continuous firing into 
your game. 

The negative aspect of this 
procedure is that we're only 
looking at one byte of the 
keyboard return, so other keys 
will return the same value. Both 
the left arrow and the letter T, 
for example, return a value of 32 



but it generally serves the pur- 
pose for most games. 

Disk and Level II USR Calls 

Our final tip deals with the 
use of the USR command. 
Writing a program with a USR 
call can get you into trouble if 
you want It compatible with 
both Level II and Disk Basic. 
Since Disk Basic supports 
more than one USR call, it must 
be set up a little differently. If 
the program has only one USR 
call, an error handling routine 
can trap it and branch program 
execution to an appropriate 
section. 

To tell the computer where to 
go when a USR call is en- 
countered, Disk Basic requires 
the address to be set up by 
DEFUSR-address. Level II 
Basic has the address value 
POKEd into memory locations 
16526 (least significant byte) 
and 16527 (most significant 
byte). 

A DEFUSR statement would 
give an L3 error if it were run 
under Level II. Take a look at 
Program Listing 2. If this was 
run in Level II, line 10 would 
generate an error but because 
of the On Error statement the 
program won't go out on error, 
but rather will branch to line 
100 where it can be set up for 
Level II operation. Similarly, if 
run in Disk Basic, execution 
would continue to line 20. ■ 




10 FORA=lT02 STEP0 

20 X=X+1 

30 B=B+1 

40 C=C+1 

50 IFX=100 PRINT"X=100":X=0:NEXTX 

60 IFB=250 PRINT"B=250":B=0:NEXTX 

70 IFC=3 PRINT"C=3":NEXTX 

80 PRINTA 

90 NEXTX 

Program Listing 3. 



18 CLS:PRINT«32B,; 

20 IPPEEK(16453)-BTHENINPUT"ENTER DATE (MM/DD/YY) " ; DTS : POKE1645 

4,VAL(LEFT$(DTS,2)) : POKE16 453 ,VAL(KID$ (DTS , 4 , 2) ) :POKE164 52 ,VAL(R 

IGHT$(DT$,2)) 

it PRINTLEPT$(TIME$,8) ;* IS DATE OK (Y/B)?" 

41 B$-INKEYS:IPBS-'N"rHENPOKE16453,B:GOT028:ELE:FBS-"Y'THEN5BELS 

E40 

5P ' PROGRAM STARTS, CLEAR, DIM, AND SO ON 

(■ • PROGRAM TEXT 

71 ' PROGRAM TEXT 

8r ' PROGRAM TEXT 



Program Listing 4. 



2 games per cassette 

tar tktTK-SO Model I tr 1 1 1 , UK 
Lewi 1 1 « Model 1 1 1 MSIC ■l U l tH — Hn . 
ill Mr programs km 

ACTION SOUNDS & GRAPHICS 




Yea tfesif a roar mi space fighter aad 

then blast off into battle Human or 
10 Computer Oaaoaeats Fight ta 2 or 3 
dimensions Three scenarios "Siaigfler , 
"Refuel Opt ion". »ad "Macau Dacatblaa". 

THE NEW STARSHIP VOYAGES 

R brilliaat "trek" type space war. 30 
galaiy with wrap aroaad. Uatiag eaemy 
enft, some are "Cloaked" 16 commands 
Rescue starbase Delta from tat Rogues 
catalog No 2001 S 19 95 




PARSECTORV 



St.H 

Tie 
Ultimate 
Space 

War 



Unique split screen fives each player i 
pn.ate display Law** fleet battle craft 
and watch them f if hi fire high powered 
energy beams or short range weapon spreads. 
Human or computer ippaaiat 

PARSECTOR 8 Tournament Versiea. 
Giaat galaiy to caaaaer latease Strategy ! 
catalog No 2002 S 19 95 




! ! ! ants ! ! 



Imaiiag 

Har 
let ween 

Alt 
Cataaies 



Fist. Mediae liagaage speed Three game 
rariatiaas: "Opaa Fiald", "Hest larritr". 
and "Digging Rats". 2 players or coaapator 
opponent Easy to play, Challenging ta 
■aster. Fun packed game for ill ages!!! 

THE NEW STARSHIP VOYAGES 

catalog No 2N3 J 14.95 



HIGH SPEED LIFE 

The FASTEST, most ADVRNCED wrsiaa at 

I h Conway s famous mathematical ga*e 
Spectacular kaleidoscopic animation 
500gea/«ia typical 32 preprogrammed 
patterns Multiple control faactMS 

I Rat«3 No 1 in 80 Software Critique, tuue 5 

NAME THAT STATE QUIZ 

R top notch educational game Draws 
SO states and asks lie* questions 

Three quiz types Ease ta use 

catalog Na 2004 i 14 95 



Disk Owners 

Oa special request the abaft games an 
available aa cassette ( rou traaster). same pneo. 
compatible w.thTISMS Disklasic 4M 



Add fi OO pottage » handling COO add 02 50 
fu> Re»edd4% te» MatiChac* or HO u a,« m 10 

Synergistic Solar, Inc. 

POBoi 560595. Miami Fl 331 Sw 

^231 

Pleaie write tor mote mlo Daelar moian, >nv<t»d 
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APPLICATION 



Know all the angles before you decide. 



Cadet— The Decision Maker 



Victor T. Albino 

18501 194 NE 

Wood in vi lie, WA 98072 



Cadet is designed to help 
you make logical decisions 
about almost any kind of prob- 
lem. It provides an orderly pro- 
cess so each factor that goes in- 
to your decision making is listed 
and considered. 

Cadet will provide all nec- 
essary prompts and protect 
against illegal entries so that 
you can easily state your prob- 
lem and enter any factors you 
think important. Cadet will then 
make a recommendation for or 
against the action you have in 
mind. 

The program is structured on 
the classic decision grid con- 
cept. This management tool 
facilitates decision making 
when a problem has many con- 
flicting elements. The real 
value of Cadet is that it allows 
you to concentrate on identify- 
ing the issues and your feelings 
about them. The program takes 
care of the mathematics and 
even calculates a level of con- 
fidence for the suggestion it 
makes so you have some idea 
of how sure you can be about 
its advice. 

The program also provides 
some cheerful graphics to keep 



your spirits high while your 
mind contemplates the issues. 
When you run the program, for 
example, you will see an 
animated spiral that simulates 
the "thinking" process of a 
RAM chip. 

The action comes from lines 
907 to 909. For some inter- 
esting variations on this theme, 
type in the following short pro- 
gram: 

OCLS 
10R = 3 

20 FOR X = to 375 step 7 
30B = R'7*SIN(X) + 71 
40C = R'3'COS(X) + 20 
50 SET(B.C) 
60R = R-05 
70 NEXT X 
80 GOTO 80 

This is the same spiral pat- 
tern that appears in the pro- 
gram. Now try changing the 375 
in line 20 to 850 and decrease 
the step size to 5: you get a 
pretty flower spiral. 

Lines 30 and 40 plot the sine 
and cosine values of X using 
polar coordinates. The factors 
of 7 and 3 in these same lines 
are needed to compensate 
because the pixel (picture ele- 
ment) on your screen is not 
square; it is a rectangle with an 
end to side ratio of 3:7. If you 
start experimenting with these 
numbers, you will get an elip- 
tical spiral instead of the cir- 
cular one. 



The numbers added at the 
ends of lines 30 and 40 are there 
to position the design on the 
CRT. It is best to keep the 
center of the design near the 
middle of your screen since an 
illegal function error results 
when the equation attempts to 
plot points off the video. 



There are many modifications 
you can make in this program. 
By changing the values, often 
only slightly, you can create 
some fascinating graphics. 
After all, now that Cadet has 
solved your problems, you 
should have plenty of time to 
create fantastic graphics. ■ 



Program Listing 



C A D E 1 
VER.3.0 



COMPUTER ASSISTED DECISION EVALUATION TECHNIQUE 
BY VICTOR T. ALBINO 

AUGUST 1986 

4 CLS:CLEAR 3000:GOSUB 575:GOSUB748 

5 CLS 

15 PRINT:PRINT:PRINT:PRINT:PRINT"iT WILL DO THIS BY HELPING YOU 
TO THINK THROUGH THE 

VARIOUS POSITVE AND NEGATIVE FACTORS WHICH MUST BE CONSIDERED 
BEFORE YOU CAN ARRIVE AT AN APPROPRIATE SOLUTION .": PRINT 

25 PRINTTAB( 40) "PRESS / KEY." 

26 IF INKEY$<>"/"THEN26ELSECLS 

30 PRINT:PRINT"IF YOU ARE READY, WE WILL BEGIN .": PRINT: PRINT"FIR 
ST, YOU MUST TELL ME YOUR CONTEMPLATED ACTION. IT SHOULD BE ENT 
ERED AS BRIEFLY AS POSSIBLE AND PUT IN THE FORM OF A QUESTIONTHA 
T CAN BE ANSWERED 'YES' OR 'NO'." 

35 PRINT:PRINT"FOR EXAMPLE, A TYPICAL QUESTION MIGHT BE: 
'SHOULD I BUY THE USED CAR? '".-PRINT 

39 DIM A$(20l 

40 PRINT'TYPE IN YOUR QUESTION NOW AND THEN PRESS <ENTER>." 
45 INPUT ZZ$:CLS 

50 PRINT:PRINTTAB(23) "THANK YOU." 

55 PRINT:PRINT"NEXT YOU WILL BE ASKED TO ENTER STATEMENTS ABOUT 

THE ACTION YOU ARE CONTEMPLATING. YOU MAY GIVE ME UP TO 20 

STATEMENTS TO CONSIDER." 

60 PRINT:PRINT"BE SURE TO INCLUDE ALL THE FACTORS YOU CAN THINK 

OF ON BOTH SIDES OF THE ISSUE, THOSE IN SUPPORT AND THOSE AG 

AINST." 

65 PRINT:PRINT"IF THE STATEMENT IS IN FAVOR OF THE ACTION, PRECE 

DE 

YOUR STATEMENT WITH AN 'F' FOR 'FAVOR'." 

70 PRINT"IF THE STATEMENT IS AGAINST THE ACTION, PRECEDE YOUR 

STATEMENT WITH AN 'A' FOR 'AGAINST '.";: PRINT: PRINTTABI 40) "PRESS 

/ KEY."; 

75 IFINKEY$<>"/"THEN75ELSECLS 

80 PRINT'SINCE I HAVE NO VALUE SYSTEM, I MUST RELY ON YOU." 

85 PRINT: PRINT" AFTER EACH STATEMENT YOU GIVE HE, PLEASE ENTER IN 

YOUR 
EVALUATION OF ITS IMPORTANCE ON A SCALE OF 1 TO 9." 
90 REM 

95 PRINT'FOR EXAMPLE, A '1' WOULD INDICATE THAT THE FACTOR IS N 
OT 

TOO SIGNIFICANT. ":PRINT"A '9' WOULD BE USED FOR THOSE ITEMS YOU 
CONSIDER REALLY 

Program continues 



298 • 80 Microcomputing, October 1981 



Program continued 

IMPORTANT." 

96 PRINT" (STATBIENTS NOT PRECEDED BY AN 'F* OR 'A' OR ENDINC WIT 

H A VALUEFROH 1 TO 9 WILL BE VOIDED. THEY SHOULD BE RE-ENTERED. 

)';: PRINT 

100 PRINT: PRINT-SOME EXAMPLES OT STATEMENTS WOULD BE: 

F THE USED CAR HAS VERY LOW MILEAGE 7 

A THE CAR IS OVER-PRICED BY S50O 8 

A THE TIRES NEED REPLACING 5 

F THE CAR'S COLOR IS MY FAVORITE 2"; 

105 I'RINTTAIK 'ill "PRESS / KEY."; 

106 IKINKEYS>.>"/-THEU106 ELSECLS 

113 PRTrlT:l»RINT"I WILL KEEP AN ACCOUNT OF ALI, THE FACTORS YOU TH 

INK 

SHOULD BE CONSIDERED. WHEN YOU ARE THROUGH, SIMPLY TYPE 

■N' IN RESPONSE TO THE QUESTION : 'ANY HORE FACTORS I 

SHOULD CONSIDER?' ■: PRINT 

115 PRINT'I WILL THEN REVIEW WITH YOU ALL THE FACTORS YOU HAVE I 

IDENTIFIED. * 

120 PRINT-AFTERWARDS, I WILL GIVE YOU HY SUGGESTED DECISION WHIC 

H 

WILL BE LOGICALLY DERIVED FROM YOUR OWN VALUES.' 

125 PRINT'FINALLY, I WILL GIVE YOU A CONFIDENCE LEVEL FOR THE 

DECISION I SUGGEST.": PRINT 

138 PRINTTABI 40) "PRESS / KEY." 

131 IFINKEYSO"/"THEN131EI.SECLS 

13b PRINT'THE QUESTION IS: ";ZZS 

140 PRINT:PRINT"PLEASE BEGIN NOW TO ENTER THE STATEMENTS FOR AND 
AUAI NST 

THE PROPOSED ACTION. (DON'T FORGET TO PUT AH 'F' OR 'A' BEFORE 

EVERY STATEMENT AND A NUMBER FROM 1 TO 9 AFTER EACH ONE.)" 

141 PRINT: PRINT" F -OR- A STATEMENT 
1 TO 9" 

142 PRINTSTRINGS(64,'-*) : NO-1 :Ml'>C : !JU = 
145 INPUTAS(l) :GOSUB246:GOSUB25H 

1SB INPUTAS(2) :GOSUB246:GOSUB250 

155 INPUTAS13) :GOSUB246:GOSUB250 

160 INPUTAS14) :GOSUB246:GOSUB25» 

165 INPUTAS(S) :GOSUB246:GOSUB250 

170 INPUTAS(6) :GOSUB246:GOSUB250 

175 IHPLTAS<7) :GOSUB246:GOSUB250 

180 INPUTASI8) :COSUB246:GCSUB250 

185 INPUTASI9) :GOSUB246:GOSUB250 

190 INPUTAS(10) :GOSUB246:GOSUB250 

195 INPUTAS(ll) :GOSUB246:GOSUB250 

200 INPUTA$(12) :GOSUB246:GOSUB250 

205 INPUTASI13) :GOSUB246:GOSUB250 

210 INPUTASU4) :GOSUB246:GOSUB250 

215 INPUTAS(15) :COSUB246:GOSUB250 

220 INPUTAS(16) :COSUB246:GOSOB250 

225 INPUTASI17) :GOSUB246 :GOSUB258 

230 INPUTAS(IB) :GOSUB246:GOSUB25» 

235 INPUTA$(19) :GOSUB246:GOSUB250 

240 ISPUTASI20) :GOSUB246:GOSUB250 

245 PRINT: PRINT"THAT MAKES 20 STATEMENTS WHICH IS ALL I CAN HAND 
LE 

AT ONE TINE. LET ME PROCESS THESE AND SEE WHAT KIND OF 
DECISION I REACH. ":FOR T* 1TO4008: NEXT:CLS:GCTO254 

246 MJ=MU+l:NU«NUtl:FORX=NU TO NU:IF LEFTS( AS ( X ) , 1 ) ="F" OR LEFTS 
(AS(X) , 1)«*A" THEN 247 ELSEPRI NT"RE-ENTER YOUR LAST STATEMENT AN 
D PRECEDE IT WITH 'F' OR ' A ' . " ; : PRINT : AS (X) •* A VOID STATEMENT 0" 
: RETURN 

247 NR«VAL(RIGHTS(A$(X) ,1)) :IF ABS(NR)>0 AND AI!S(NR)<10 THEN RET 
URN ELSE PRINT"RE-ENTER THE LAST STATEMENT AND END IT WITH A VAL 
UE FROM 1 - 9."j:PRINT:AS(X)«"A VOID STATEMENT 0":RETURN 

250 IMPUT"ANY HORE QUESTIONS TO CONSIDER (Y/N)";MS 

251 IFM$-"Y"ORMS«"N"THEN253 

252 PRINT'PLEASE ANSWER ONLY 'Y' FOR YES OR 'N' FOR NO. " :GOTO250 

253 IFMS-"N"THEN254ELSENO='N0^1:RETURN 

254 FOR X-1TO20 

255 IF LEFTSIAS(X) ,1>»"F"THEN SF-SF*VAL1 RIGHTSl AS(X) , 1 > ) ELSE SA = 
SA+VAL(RIGHT$(AS[X) ,1)) 

260 NEXT X 
355 GOSUB765 

360 PRINT(S460,"YOU CAVE HE ";NO;" FACTORS TO CONSIDER. ": PHI NT?5B 
8, "THEY WERE : " ; : FORT«1TO2000 : NEXT:CLS: NU-1 

361 FORX=1TONO:FORS=15552T01 56 15STEP2: POKES, 176: NEXT 

362 FORS«1606 4T01 61 27 STEP2: POKES, 176: NEXT 

365 PRINTe448,NII; ".) " ;MIDS ( A$ ( X) , 2 ,LEN ( AS ( X) ) -2) :NU=NU+1 
370 FORT=1TO2000:NEXT:CLS:NEXTX 

465 PRINT§465 , "PRESS / KEY TO CONTINUE." 

466 IFINKEYSO"/"THEN466ELSECLS 

470 PRINT: PR I NT "AFTER CAREFULLY ANALYZING ALL THE INFORMATION YO 

U HAVE 

PROVIDED ON THE QUESTION: ": PRINT 

475 PRINTZZS 

480 PRINT: IF SF>SA THENPRINT'I RECOMMEND IN FAVOR OF THE PROPOSE 

D ACT ION. ■-•GOTO 488 

485 PRINT: IF SA>SF THENPRINT"! RECOMMEND AGAINST THE PROPOSED AC 
TION.":GOTO 488 

486 IF SF-SA THENPRINT'I AM UNABLE TO SUGGEST AN ANSWER. 
THE POSITIVE AND NEGATIVE ELEMENTS IN THIS ISSUE BALANCE 
OUT EXACTLY." 

487 PRINT: PRINT" SORRY I CAN'T HELP YOU. I AM AFRAID YOU ARE GOI 
NG 

TO HAVE TO USE HUMAN INTUITION ON THIS ONE 1 " : PRI NT: PRINT'BETTER 
LUCK NEXT TIME.";:PRINTTAB(40)"PRESS / KEY . " ; : GOTO540 

488 PRINT:PRINT:PRINTTAB(40) "PRESS / KEY." 

489 IF INKEYSO"/"THEN4B9ELSECLS 

498 IF SF--SA THEN CF = INT( 100- ( SA/SF) *100) 
495 IF SA>SF THEN CA=INT( 100- (SF/SA) *100) 
500 PRINT9448,"MY RECOMMENDATION IS MADE WITH A CONFIDENCE LEVEL 

OF : " ; 
505 IF SF>SA THEN PRINT CF ; "»" : FA=CF 

510 IF SA>SF THEN PRINT CA;"%":FA«CA 

511 FORT= 1TO2000 : NEXT :CLS: PRI NT: PRINT: PRI NT -.PRINT: PRI NT 

515 IF FA<50 THEN PRI NT "UNFORTUNATELY, THIS IS NOT A VERY HIGH LE 

VEL 

OF CONFIDENCE. YOU MIGHT JUST AS WELL FLIP A COIN! " :GOT0526 

520 IF FA»80 THENPHINT'THIS IS A MODERATE LEVEL OF CONFIDENCE. 

YOU CAN FEEL REASONABLY COMFORTABLE WITH HY RECOMMENDATION ." :GOT 

0526 

525 IF FA>80 THENPRINT'THIS IS A HIGH LEVEL UK CONFIDENCE. 

Program continues 




BASIC/S 3.0 (MOD l/lll) $39.95 

A Basic compiler for the Mod l/lll 48K Disk System. BASIC/ 
S compiles a subset of TRS-80 C Basic into 280 machine 
code. The machine code can then be run as a /CMD file. 
most of the features and built in functions of Level II are 
implemented, along with sequential and random disk i/o. 
(including LRL/256). Allows variables, reals, and strings. 
This a programmer's compiler. Not intended to compile 
"off the shelf" software, but will compile code written or 
modified along it parameters. No royalty fee to pay! Many 
basic programs you are using today can be compiled. 
Supports all Mod I and Mod III operating systems. 

QSD UTILITY DISK #1 FOR 
LDOS® (MOD I) 69.95 

Increase the speed and power of LDOS! Contains: 

LZAP/CMD — Uses resident disk driver of LDOS and thus 
enjoys its flexibility & device independence. It will 
auto configure itself to drive capacity. LZAP will 
support any number of drives from 0-7, any cyliner 
count up to 255 and any sector number to 255. It 
supports both single and double denity automatical- 
ly) Various drive sizes and densities can be inter- 
mixed and LZAP will page between them without 
error. The ultimate ZAP routine for the ultimate 
system. Many more features including a "help" 
command for beginners to assembly code. 

RESIDELD/CMD — Allows you to SYSGEN system over- 
lays for increased speed and free space on disk, plus 
more! 
CLONE/CMD CHANGE/CMD DCAL/CMD 
VDISK/CMD STAT/CMD BINHEX/CMD 

And by Kim Watt . . . 

LCOPY/CMD — Mass file transfer package. Fast and 
versatile! 

LPURGE/CMD — Allows you to selectively purge by class. 
list, ext, etc. Contains over 20 features. A "mini 
super-utility!" 

RECOVER/CMD — A "smart" recover routine for 'killed" 
files. 

DVORAK/CMD — the famous DVORAK keyboard layout. 

EXTRA SPECIAL DELIVERY 
(l/lll) $179.00 

Machine Language program to maintain your mailing list, 
print labels, and merge data from your mail list into a letter 
created by Scripsif - or Electric Pencil"". 

— DEALER INQUIRIES INVITED — 

QUALITY SOFTWARE DISTRIBUTORS 

11500 STEMMONS EXPRESSWAY, SUITE 104 ^ mmm 
DALLAS, TEXAS 75229 v&j- 

PHONE (214) 484-2976 Wa^m 

TRSIOtStnpKtut MICRONET 70130,203 ^27 ffiuOmMUak 

ludrmirksofliodyCwp PmUjp 



^See List ol Advertisers on page 386 
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Ever wanted to 

do things to your TRS-80 that 

Radio Shack said couldn't be done 7 How 

about reverse video, high resolution graphics, 

a high-speed clock, and audible 

keystrokes. 

Not enough 7 How about turning an 8- track 
into a mass storage device, making music, 
controlling a synthesiser, individual reverse 
characters, and a real-time clock? 

If the thought of using a screwdriver gives 
you the shivers then you can turn to the 
software section. Learn how to make BASIC 
programs auto- execute, reset memory size, 
pack program lines with machine code, and 
generate sound effects. 

The Custom TRS-80 and Other Mysteries is 
packed with page after page of practical 
information, and tested software. Get a copy 
and turn your TRS-80 into a supercomputer. 
Available fOT $29.95 from your local UG 
dealer and B. Dalton bookstores. 




• 37 

1260 W. Foothill Blvd. 
Upland, California 91786 

(714) 946-5805 

TRS-80 is * trademark of Tandy 



Program continued 



BUT THIS 



NOTHING IS SURE IS LIFE EXCEPT DEATH AND TAXES 
EVIDENCE LOOKS PRETTY CONCLUSIVE." 

526 PRINT: PRIST:PRINTTAB. 40) "PRESS KEY."; 

527 IF INKEYSv>"/"THEN527 

538 CLS:PRINT:PRIKT:PBINT:PRINT:PRINT-NOK THAT YOU MAVF KY OPINI 

ON YOU ARE, OF COURSE, 

FREE TO DO AS YOU PLEASE .": PR I NT 

535 PR I NT" HOWEVER, IF YOU ACCEPT MY ADVICE, YOU WILL KNOW THAT 

YOUR DECISION WAS BASED UPON A COMPLETE EXAMINATION AND 

COMPARISON OF ALL THE ISSUES .";: GOTC556 

540 IFINKEYS^>"/"THEN54B£LSE552 

550 PRINT: PRINTTABI 48) "PRESS / KEY." 

551 IF INKEYS\>"/"THENS51 ELSECLS 

552 GOSUB7 36:P0KE16B25,lB8:F0RS'16C89TO16 345;iTEe6 4:POKES,191:NEX 

T: POKE16216. 1 38: S-16342: POKES, 176 : POKES. 1.1 84 : POKES. 2. 188:5 = 1663 
2:POKES,188:POKES+64,191:POKES.128,191:POKE16?2 3,138:POKE16224,1 

31:POKE16225,140 

553 POKE162 26,176:POKE16291,131:POKE!6292,18S:POKK16 29t,176:POKE 
16294, 144 :Y =45 :F0RX-71TO76: SET (X,Y) : NEXT: Y=46 : FORX-69TC73 : SET! X , 

Y) :NEXT 

554 LUS'CHRS ; 168! *CHRS( 168) »CKRSt 168' *CMRS( 1681 *CHRS! 160 :LLS-CH 

RS(138)*CHRS(190)*CHRS;19B)*CHR$tl90 *CHRSii98! 

555 RVS-CHRS(18B!-CHRS(19e)+CHRS(188'+CHRSilH8! :RLS-CHRS( 13 3) *CH 
RS(149) *CHRSU49!'CHRSll33! •CHRS1133' 

556 S-15751 : POKES, 168: POKES* 1,1 34 :FORX=S-2TCS'-: POKEX, 131 :SEXT: • 

ORX-S*41TOS*46: POKEX, 131: NEXT: POKES' 4", 129 

557 POKE15al4,152:POKE15 815,129:POKE157 34,lt>e:POKU , -J5,134:Pi-Kl 
15672, 1 52 :POKEl 5673,1 29 :PCKE1 5689, 14 9 :P;Kll' -.4' , 1 49 : POKE15877 , 1 7 
0:POKE15941,170 

556 PRINTS54,LaS;:PRINT?llB,LLS;:PRIf-i644,K,S;:fKINT-706,RL$; 
559 Y-15:FORX=29T011STE?-2:SET(X,Y) : NEXT: SET' 1 1 , 1 4 ) : Y- 1 3 : FORX = 1 1 
T022STEP2:SET(X,Y' :NEXT :X = 22 : FORY* 1 3T07STEP- 2 : SET! X , Y) :NEXT 
568 Y=7:FORX*21T01STEf-2:SET(X,Y) : NEXT: X= 1 : FORY- 7T01 3STFP2 : SET '. X 
,Y) :NEXT:Y-13:F0RX=1T011STEP2:SET(X,Y) :NEXT 

561 PRINT*>194, "GOOD-BYE": 

562 FORWA-1TOB:PRIST354,CHRS(30) ; : FORT = 0Tn4D0 : NEXT: i KI NT*54 ,LUS; 
: FORT" BTO508: NEXT: NEXT :CLS 

563 END 

575 N-15751 "OPENING GRAPHIC 

576 BO-15360:PRINTgl,STRINCS(62,137) :PRINT0961 , STRI NCC- (62 , 1 64) : 

577 FORX-0TO1 B23STEP64 : POKEHO+X , 166 : POKEBO*X < 1 , 1 b6 : I>OKEUO*X*62 , 1 
66 :POKEBO*X*63 ,166 :NEXT 

580 P0KEN,191:POKEN*l,191 : FORX=N+2TON*5 : POKEX , 1 4 3 : NEXT 

585 N-N*64 

590 POKES, 19 1 :POKEN*l, 191 

595 N-N*64 

688 POKES, 1 91 :POKEN*l, 191 : FOPX-S.2TON.5 : POKh.X , 1 8 8 : NEXT 

605 u.l5762:POKEC,191:POKEC*l,191:POKi:0-2,143:Pi>KI.0.3,143:POKEO. 

4,191:POKEO«5,191 

610 0*0*64 

615 POKEO,191:POKEO*1,191:POKEO*2,1S8:POKE0.3,188:POKE0.4,191:PO 

KEO+5,191 

620 0-0.64 

625 P0KEO,191:POKEO'l,191:POKEO*4,191:POKKO.5,191 

638 P-15773 

6 35 POKEP,191:POKEP + 1,191:POKEP.2,143:POKEI , .3,141:POKEP.4,191:PO 

KEP.5,188 

640 P-P.64 

645 POKEP,191:POKEP+l,191:POKEP.4,191:POKEP.5,191 

65B P-P+64 

655 POKEP,191:POKEP*l,191:POKEP.2,18B:POKEP»3,188:POKEP.4,191:PO 

KEP+5,143 

660 Q-15783 

665 POKEQ, 191 :P0KEQ+1, 191 :FORX-Q+2TOQ+5: POKEX , 143: NEXT 

670 0-0.64 

675 POKEQ, 191 : POKEQ* 1 , 191 : POKEQ* 2 , 143 : POKE0*3 , 1 4 3 

680 Q-Q.64 

685 POKEQ, 191:POKEQ+l, 191 : FORX = Q*2TOQ*5 : POM.X , 1 88 : NEXT 

690 R-15794 

695 POKEP,143:POKER*l,143:POKER*2,191:POKEP'3,191:POKER.4,143:Pr 

KER.5,143 

HI R-R.64 

785 POKER*2,191:POKER*3,19i 

710 R-R'C-4 

715 POKER. 2, 191: POKER. 3, 191 

720 FORT- IrO! CBB : NEXT 

725 WS-" CcriFUTER ASSISTED DECISION EVALUATION TECHNlj 

UE" 

7 30 CLS: PR I NT : PRIST: PRINT : PRINT: PRI KT: PRINT: PRINT 

735 FORX«lT059:?RINTr,IDS(WS,X,l! ; : F0RT = 1TC1 c : NEXTT ,X : Fl.RT= 1TC100 
: NEXT 

736 REM • COMPUTER GRAPHIC 

7 37 CLS:S-15375:POKES,191:FORX=S.lTOS+3:POKLX,131 : NEXT: FORX=S*4T 
OS. 2 3 : POXEX,17 9:SEXT:FORX*S«24TOS*31 : POKEX, 1 31 : NEXT: POKES. 3 2 ,191 

7 38 S- 15 43 9: POKES, 191 : POKES.2, 188: POKES .3 , 1 31 : POKES .24 ,131 : POKES 

♦25, 188: POKES .29, 131: POKES .3 2, 191 

7 39 S-l 5503: POKES, 191 : POKES. 2,191 : POKES. 8, 131: POKES. 9,1 35 : POKES* 

10, 129:POKES + 13,16B: POKES' 14, 144 : POKES + 1 8 , 131: POKES' 19,1 35 : POKES 

.28,129:POKES + 25,191:POKES'2e,191:POKF.S.29,191:POKES.38,191 :POKE 

S. 32, 191 

7 48 S-l 5567: POKES, 191: POKES' 2, 191: POKES. 8, 168: POKES* 13, 142: POKES 

♦14,141:?OK£S*19,144:POKES.25,19i : POKES' 28, 1 31 : POKES* 29 , 131 :POKE 

S*38,131:POKES*32,191 

741 S*156 31:POKES,191:POKES*2,191:POKES'9,137:FORX=S*18TCS'17:PO 

KEX, 1 76: NEXT: POK£S*18, 134: POKES '25, 191 : POKES* 32, 191 

7 42 S- 156 95: POKES, 191: POKES* 3, Ul : FORX'S- 4T" S-23 : POKEX , 140 : NEXT: 

POKES' 24,1 31 :POKES + 32, 191 

7 43 S«l 57 59: POKES, 191 :FORX=S*1TOS' 5: POKEX, 176: NEXT :FORX=S*6TOS*2 

1 : POKEX , 1 B6 -.NEXT: FCRX = S*22TOS*31 : POKEX ,176: NEXT: POKES* 32 ,191 

744 S-l 582 1 : FCRX-STOS*36 : POKEX ,176: NEXT 

745 S« 158B5: POKES, 1 91 : FORX=S*4TOS*24STEP2 : PvKLX , 140: NEXT :FORX=S* 
29TOS*33STEP2: POKEX, 140: NEXT: POKES.36, 191 

746 S- 15949: POKES, 191 : FORX-S*4TOS*24ST£P2 : POKEX , 179: NEXT :FORX=S+ 
29TOS* 3 3 STEP 2: POKEX, 17 9: NEXT: POKES* 36, 191 

747 S-16013 : POKES, 143 :FORX-S*1TOS.35: POKEX, 148: NEXT: POKES* 36, 143 
: FORT- 1T04BB : NEXT : RETURN 

748 Y»16:FORX«29TO10STEP-2:SET(X,Y) :NEXT:X=10:FORY-17TO3 4STEP2 :S 
ET(X,Y) : NEXT : Y-35 : FORX-0TO127STEP2 : SET (X,Y) : NEXT : X- 127 : FORY-35TO 
47STEP2sSET(X,Y) :NEXT: Y-47 : FORX-127TO0STEP-2: SET(X , Y) :NEXT:X-0:F 
ORY=47T035STEP-2:SET(X, Y) :NEXT 

749 PRINT#770, "HELLO! I'M YOUR COMPUTER. THE PROGRAM YOU HAVE 
PUT INTO MY*; 

750 PRINT3834, "MEMORY WILL ASSIST YOU TO REACH A LOGICAL DECISIO 
N ABOUT ANY"; 

Program continues 
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751 PRINTg898, "PROPOSED ACTION YOU MAY BE CONTEMPLATING. (PRES 
S '/ • KEY . ) ■ j 

752 IF INKEYSO"/"THEN752 

753 CLS:RETURN 
765 REM • HEAD 
77B CLS:S-1551J 

775 POKES, 160:POKES+1, 176 :POKES+2, 176 :POKES*3, 152 

78i FORX.S+4TOS+14:POKEX,14B:NEXT 

785 FORX«S+15TOS*17 : POKEX , 176 : NEXT 

79fl S-15574 

795 POKES, 166 :POKES+l, 152 :POKES+2,l 34 :POKES*3, 129 

BOB POKES+2B,130:POKES«21,137:POKES+22,164:POKES+23,144 

BBS S-15637 

BIB POKES, 152: POKES+1, 129 :POKES*24, 138 :POKES+25, 164 

815 S=157BB 

82B POKES, 152: POKES+1,1 29 :POKES*27, 137 :POKES+28, 144 
825 S-15764 

830 POKES, 149: POKES+3, 143 :POKES»4, 132 : POKES+28 ,17fl 
835 S-15826 

84B POKES,152:POKES-tl,134:POKES+3B,17B 

845 S=15889 

B5B POKES, 182 :POKES+l, 176 :POKES*2, 176 :POKES+3B, 160 :POKES+31, 133 

855 S-15956 

860 POKES, 169: POKES+5, 144 :POKES+25,l 52 :POKES*26, 134 :POKES*27, 129 

865 11.16621 

670 POKES, 167: POKES* 1,147: POKES* 2, 131 rPOKESO. 131 :POKES + 4, 129: PO 

KES.20,176:POKES+21,14B:POKES+22,134:POKES*23,131 

875 S=16686 

880 POKES, 136: POKES+1,1 31 :POKES*2, 140: POKES+3, 176 :POKES*4, 176 :PO 

KES*lb,152:POKES»17,134:POKES+18,131 

885 S=16155 

890 POKES, 149:POKES+10, 170 

895 S-16219 

900 POKES, 181 :FORX»S*lTOS*9: POKEX, 176: NEXT: POKES+10,1 86 :PRINTf»26 

."WORKING RAH CHIP" ; : FORT.1TO506:NEXT 

965 F0RH-1T06:PRINTP347,"T H I N K I N G"; : FORT-1T025B :NEXT: PRIN 

TP347 , " • ; : FORT= 1T01 86 : NEXT: NEXT : FORT- 1T0566 : NEXT 

906 REM • WHEELS TURNING 

907 PRINT#245, "WHEELS* ;:PRINTP312, "TURNING! ";: PRINTM71 ,"<";: PRI 
I.TP37 2 , STRING$ ( 9 , "-" ) ; : R-3 : FORT.1TO8B0 : NEXT: F0RX-BTO375STEP7 

908 B-R*7«SIN(X)*73:C-R*3*COS(X)+26 

909 SET(B,C) :R-R-.B5:NEXTX 

910 FORT-6TO760:NEXT:S-15936 

915 POKES, 188: FORX-S+1TOS+14: POKEX, 146 :NEXT:POKES+15, 188 
920 5^16660 

925 POKES, 191 :POKES»15, 191 :POKES»16, 176. -POKES+17,14B:POKES+18, 13 

930 S 16064 

935 POKES, 143 :FORX-S+lTOSU4 : POKEX, 146: NEXT: POKES+15, 143 

940 1>KINT(1642,"0K I'M READY" ;: F0RT-1T01666:NEXT:CLS: RETURN 



JOE COMPUTER Presents Handicapping Software 

A IT'S FOOTBALL SEASON! - 193 

' ' ^1* P«> •** C alaaa Faotaa* from SOI: Now with new manual - ok) pf.ce' That's 

,'•*-' fN 3 ri Ken •**"> ol SOL reluses to raise the price Joe leers that this program shouk) sen 

«VJ tor J500 00' Why' Because it works - better than 65% against the Las Vegas Nne lor 

JP5 the last 3 years on picking upsets - a whopping 73V. last year' A proven winner' It 

••* takes about 10 rmnuies a week to record the weekend s results Then sit back and let 

your computer predict next weekend s points tor 28 pro teams or 78 college teams Each program 

comes with a prior season data tile If* TBS-80 Pre Footbal version new avaUa&ie 

PreFeefoeH Cassette (TBS-Mer Apple) $21.95 

Disk ck 95 

College Foetball Cassette (32KTRS-80 or Apple ) S21 ' g5 

"■' SfS.M 

Brand New! Pro football History 

This unique program with data tiles displays the scores and Las Vegas lines tor the last live years tor an 
NFL regular and post season games including the Super Bowi Ai 28 teams included This data is hard 
to lino - now it can be in your computer Data is displayed via a variety of search keys A must lor 
serious football fans 






TRS-M or Apple 4SK Disk onry $39 95 

»•-»• Meet Me w ilc eppl m ' Our biggest seller - Probability Handicapping Device 1 
This is a comprehensive horse racing system tor spotting overlays in thoroughbred 
sprint races Easy entry ot data from the racing torm A complete users manual takes 
you step by step through a sample race and explains overlay betting and money 
management The user s manual contains a detailed tab run ot a 100 consecutive race 
system workout showing an amazing $1 50 returned lor each $1 00 wagered (Note this is not the 
same program as Winning at the Races' ' ) You may purchase the manual seperately tor $7 95 and 
C .'£'L 2S 1 .' 1 **"•"•*•■ ** »/ H. (Basic-*), M-iasic) PH0-1 Users Manual and cassette lor 

Apple or TRS-80 Disk .... ru 05 

CP/M 5" org" Single Density Data Disk $3995 

M. OHNHN'S FAMOUS (HSCOVEMES! 

Winning at the Races This is the program using the algorithms from Dr Quinn s book Highly praised 
and endorsed by Or Qunn this program is the best available today Again. Ken retuses to raise the 
price' Our loss is your gam Screen edit type data entry makes entering data a bree« Order now 
before Joe convinces Ken to raise the price' 

Winning at the Races Cassette (32K TRS-80 or Apple) $3495 

"rt $31.95 

Winning at the Races - the book by William Quinn Ph D This is the best computerized study ot 
thoroughbred racing ever published Tms 300 page hardbound book shows detailed studies ot high «n 
pact value tactors aid includes Or Ourm's famous Par Times 
A Tom Ainsle Winners Circle Book $21.96 

Beating the Rices with a Computer by Steve Brecher A good How To book on multiple regression 
techmgues applied to Pan Mutual handicapping Some heavy math 114 95 

Mafca clwii payable to jot COMPUTE* - Phone oroe-s end Mvimiw ill Ji 992 Oil 

Sent lo JOE COMPUTE". JJ7IJ Venice ai-o Sy.le f Wooo ."0 H.Rt. CA 9I3S4 

C#i lo'nu 'eatoenis add EN mips ia« 




A VITAL WAT TO HOTBOT 
IWVM8TMMWT TOM TKX rrjTTJMII 

The KM CMMl language runs on more different Oper- 
ating Systems and more different-sized computers than 
any other similar language. For starters. It runs on NCR 
and n minicomputers and. in the micro field, on the 
CP. M*. MP M s . TRSD08\ OASIS 4 . MOASISTand UNIX» 
(ONYX version) Operaung Systems ..to mention only 
a few 

Until now. serious business software of the scope and 
flexibility seen in the rru niccmp uter world has not been 
available on micros. IJACMM. now allows transfer of 
such software with a minimum of fuss 

We have participated in such a rrunl-to-rrucro transfer 
of a m ajor set of general business software using CM 
"" "L as the transfer mechanism, of course Running on 
literally thousands of minicomputers, these refined, 
enhanced, and proven software packages cover A, R A. P. 
O/L. P/R. Order Entry (with Invoicing and Inventory 
Control ) as well as Sales Analysis The packages define a 
new level of achievement for features and flexibility in 
micro applications software and offer top quality at a 
reasonable price 

Por Immediate information, call 714-648-1922 foryour 
complete product descriptions 

...PLUBALLTHl! OLD, TAMTT.I A» rAVOAITM that 

we cc nlinue to offer, such as: 

Oeateiml atalaaaa-Cllent Accounting (CPA Write-up ) 
FMS" ( Financial Modeling System ) 
NAD" ( Name and Address System ) 



e— REAP i Real Estate Acquisition Programs > 

PUS ( Property Management System 

M LS- ( Multiple listing System > 

Haatth Care— APH 8 (Automated Patient History ) 

Word Fron eee t ag and Syitem Software- Magic Wand* 

QSORT 
CBASIC2 C 




and Cybernetics' unique TRf3-8C-\ Model II CP/M offering 
high performance, hard disk support, and CP/M com- 
patibility 

Tradaaaarkaof: 

1-Hjran HcParland Corp. 3- Digital Research. Inc , 3-Taraiy 
Corp.. 4-Phaae On* System*. Inc ; 6-BeJI Telephone Uboralor 
MS. Inc. 6— American business Systems Inc. 7-Str\ctured 
SysttmsOroiip Inc 8— Cybernetics Inc . 9- ftachtree Software 
Inc 10- Compiler Syatams. inc 



C S 




(714)848-1922 



8041 NEWMAN AVE.. SUITE 208 
HUNTINGTON BEACH, CA 92647 



^See List of Advert/sirs on page 386 
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GAME 



Let the good times roll 



Micro Yahtzee 



Mark E. Johnson 

2925 W. Lincoln Ave. #7 7 

Anaheim, CA 92801 

Here's a computer dice 
game to help you while 
away your time. I call it Micro 
Yahtzee. 

The game first displays the 
instructions. Play begins when 
your roll is sorted into order and 
displayed. Use the INKEY$ 
function for all the entries so 
they are quick and easy. During 
the game the scores for each 
category appear continuously 
and the display indicates 



whether each category has 
been used or voided yet. After 
you roll, select your category. 
The program checks your dice 
against your selection and then 
tells you to make another selec- 
tion (if you have used that cate- 
gory already), or gives you zero 
for that category if the dice 
don't apply, or gives you the ap- 
propriate points. At the end of 
the game your point totals and 
bonuses are displayed. Then 
the averages for each category 
and for each player for the 
games played are figured and 
displayed. 



You will enjoy this computer 
version of Yahtzee because of 



the easy to read display and the 
safeguards against errors. ■ 



Lines 0-105 


a. Initialize variables 




b. Display categories and scores 


Lines 106-3707 


a. Roil dice and change selected dice 




b. Category selection 


Lines 3800-3960 


subroutine puts new scores Into active players' variables 


Lines 4000-4030 


subroutine counts dice (or bonus selection 


Unas 5000-51 oo 


subroutine checks for 3 or 4 ot a kind 


Lines 6000-6190 


subroutine checks for full house 


Lines 7000-7200 


subroutine checks for small or large straight 


Lines 8000-801 


subroutine checks for Yahtzee 


Lines 8500-8520 


subroutine totals dice for chance 


Lines 10000-10200 


subroutine sets up temporary set of category numbers 


Lines 11000-11075 


a. Check for bonus eligibility 




b. Totals scores for game 




c. Check for new high or low score 


Lines 12000-12100 


subroutine sets player one's scores to strings 


Lines 12200-12225 


subroutine sets player two's scores to strings 


Line 15000 


subroutine clears portion of screen 


Line 15005 


subroutine clears portion of screen 


Lines 16000-16060 


subroutine sorts dice into order 


Lines 17000-18000 


totals all scores & displays summary 


Lines 19000-19090 


Instructions for game 




Table 1. Line Description 



Program Listing 



CLEAR1S0:D1H M(72) :H(49)»1:M(50) -2iM(Sl) -3iM(52) '4:11(53) «5:M(5 
4)-6sH(65>-7iM(66)-8:M(67)-9tM{68)«10:N(69)-llsM(70)-12!M{71)-13 
>M(72)-14:LT-5M 

1 CLS: PRINT* MICR0-YAHTZE E* :PRINT:PRINT"INSTRUCTIONS 
7 <Y) OR (N)*| 

2 N$«INKEY$:IFN$«**THEN2 

3 IFN$>'Y*THEN19000 

5 RANDOM :C1-1:DIMP1( 14) ,8(13) ,B$(13) , P2 ( 14 ) , A( 14) ,P1 $ ( 13) ,P2S(13 
),P3(14),P4(14) 

6 CLS: INPUT-ENTER 1ST PLAYER'S NAME* jPl$! INPUT'ENTER 2ND PLAYER" 
S NAME"»P2$ 

10 Gl»0:CLSiFORA»lTO13:A(A)-.5:Pl(A)«.5:Pl$(A)»" *":P2$(A)«* •": 

P2(A)'.5:NEXTAiA(14)>.5:CLS 

62 PRINT £6 96," 

':GOSUB10000 

65 F0RA-1T013:READB(A) !NEXTAiFORA-lTO13:READBS:PRINT0B(A) ,BS»P1S 
( A) ; " "; ! PKINTgB ( A) +23 ,P2$(A) :NEXTA: IFG1-26THEN11000 

66 PRINT0768,P3$; a, S TURN"; 

67 ONA1GOSUB15000, 15005 

80 DATA35, 99, 163, 227, 291, 355, 419, 483, 547, 611, 675, 739, 803 

90 DATA1 -ONES , 2-TW0S ,3-THREES , 

4-FOURS ,5-FIVES ,6-SIXES .A— 3 OF 

A KIND ,B~4 OF A KIND ,C— FULL BOUSE , D--SM. STRAIG 

HT , E— LG. STRAIGHT , F--YAHTZEE , G— CHANCE 

105 RESTORE 

106 PRINTi0,*Y A H T Z B E"» 
3000 Q-911:S-6 

3200 FORX»1TO5:H(X)«INT(RND(0)*6)+1:NEXTX 

3225 GOSUB16000 

3300 PRINT0896,*YOUR ROLL IS. .*|H(1) »H(2) »H<3) ;H(4) )H(5> ; 

3400 PRINT092S,* HOW MANY CHANGES PAL *; :N$-INKKY$: IPN$"*"TH 

EN3400ELSEN-VAL(N$) 

3405 IFN$<*0"ORN$>*5'THEN3400 

3500 PRINT0925," WHICH "» *{ *;N; *) * »" "j 

3505 IFN-5THENP(l)-l:P(2)-2iP(3)-3iP(4)-4iP(5)-5«GOTO3580 

3525 IFN-0S-2:GOTO3590 

3530 FORO-1TON 

3535 P$(0)>INKEY$:IFP$(0)>""THEN3S3S 

3540 PRINT«953-N," *j : IPPS(O)<'0"ORPS(O) >*S"THEN3535ELSBP(0)-VA 

L(P$(0)) :PRINT01005, 'CHANGED l",P(0) ■ 

3570 NEXTO 

3575 FORN2-1TOS0:NEXTN2:PRINT01005,* *; 

3580 FORO«1TON:H(P(Q))>INT(RND<0)*6)+1:NEXTQ 

3590 C«0 

3600 FORQ-1T04 

3610 IFH(Q)<>H(Q+1)THEN36S0 

3620 T-H(0) :H(Q)-H(Q+1):H(Q+1)«T:C«C+1 

3650 NEXTO 

3660 1FO0THEN3590 

3670 PRINT0896,'YOUR ROLL IS. . " »H<1) ;H<2) >H(3) »H(4) »H(5) ; :S-S+1 

3690 IFS<2THEN3400 

3700 PRINT0896, "FINAL ROLL >";H(1) ;H(2> |H(3) »H(4) |H(5> » " 

ENTER OPTION " i : NS-INKEYS: IFNS-""THEN37i« 

3701 Tl-ASC(NS) 

3702 IPT1<49ORT1>54ANDTK65ORT1>72THEN3700 

3703 T-M(Tl) 

Program continues 
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Program continued 



3714 IFT<10RT>14THEN37B8 

3715 IFA(T) O.5THENPRINT01000,"YOC USED THAT ALREADY" J iCOT037ii 
3706 PRINT81000," > «-;NSj 

3717 Gl-Cl + 1 

3 810 ONTGOSUB4000, 4000, 4000, 4000, 4000, 4000, 5088, 5088,6888, 7888, 7 

• II, BBII, 8511, 11000 

3Sil rrCl/2<>INT(Cl/2!THEN395i 

3911 FORA-lT013:Pl(A)-A(A) iNEXTA 

391b. GOSUB1208B 

3921 GOT062 

3951 F0RA-1T013:P2(A) -A(A) :NEXTA 

3951 GOSUB122IS 

3961 COT062 

4111 V-0 

4185 FORD -1 TO S 

4111 IFH(L) -TTHENV-V+1 

4I2D NEXTU 

4838 A (T)-V«T: RETURN 

5181 IFT-7THENB5-3 

5810 IFT-BTHEN85-4 

5121 FORB2-1T05 

">030 FORB3-1T05 

5040 IFH(B2) -H(B3)TH£NB6-B6*1 

5151 NEXTB3 

5060 IFB6<B5THENB6-8 

5878 IFB«>-B5THEN5188 

5080 NEXTB2 

5885 B6-8:A(T)-B:RETURN 

5188 A(T)-H(1)»H(2)*H(3)+H(4)*II(5) :B6-B:RETURN 

6BBB H3-1 

6828 FORP2-2T05 

6B3B IFH(1)-H(F2)THEN61BB 

6848 M2-H2*liD(H2)-H(F2) :COTO6110 

61BB M3-M3+1 

6118 NEXTP2 

6128 FORE1-1TOH2 

6138 IFD(1)-D(E1)THEN6150 

6148 A(9)-B:H2-B:RETURN 

6158 NEXTE1 

6168 IFH2>3THEN614S 

6178 IFR3>3THEN6148 

6188 IF(H2+H3X>5THEN614B 

6198 A(9)-35:N2-S:RETURN 

7B8S G3-0iLl-0 

7818 IFT-10THEN7I00 

78 28 IFH(l)-H(2) i lANt)H(2).H(3)-lANDH(3)-B(4)-lANDH(4)-H(5)-lTBEH 

7288 

7838 A (11) -8: RETURN 

7188 Wl-0 

7182 F0RA«lTO5:W(A)-B:NEXTA 

7183 FORA-1T05 

7184 IFH(A)-H(A+1)THEN71B7 

7185 Wl-Wl+1 

7186 W(W1) -I! (A 1 

7187 NEXTA 

7188 IFW(1)*1-K(2)ANDW(2)*1-W(3)ANDH(3) *1-K(4) THEN7158 

7189 IFW(2)*1-W(3)ANDW(3)<1-W(4)ANDW(4)*1-W(5)THE7J7158 
7122 A'. IB, -0 : RETURN 

7158 A (IB) -35: RETURN 

72BS A(11)-4S:RETURN 

8888 1FH(1)-H(2) ANDH( 2) -H( 3) ANDH(3) -H(4) AHDH(4) -H ( 5) THENA ( 1 2) -50 

i RETURN 

BB1B A( 12) -8: RETURN 

8588 A(13)-8 

8518 F0RA-1T05:A(13)-A(13)+B(A) :NEXTA 

85 28 RETURN 

18000 C1-C1 + 1:IFC1/2OINT(C1/2)THEN10100 

10005 P3S-P1S 

10886 Al-1 

1BB1B F0RA-1T013:A(A)-P1(A) ! NEXTA 

1SB28 RETURN 

18188 P3$-P2$ 

18181 Al-2 

18280 F0RA-1T013:A(A)-P2(A) i NEXTA i RETURN 

11888 F7-0 

11885 F0RA-lTO6:F7-P7+Pl(A) tNEXTA 

11808 IFF7<63THENF7-8 

11818 IFF7>62THEMP7«35 

11812 IFF7-35THENPO-PO*ltPO(l)-35 

11821 FORA-lT013iB7-B7+Pl(A) iNEXTA 

11030 B7-B7*F7:T1-INT(B7) 1B7-0 

11040 F7-8:FORA-lT06:F7-F7+P2(A) iNEXTA 

11043 IFF7<63THENP7«0 

11045 IFF7>62THENF7-35 

11046 IFF7-35THENPT»PT+1:PT( l)-35 
11055 F0RA-1T013:B7-B7+P2(A) iNEXTA 

11060 B7-B7+F7|T2-INT(B7) i PRINT 82 56 ,P1S| ■-* (Tl , "BONUS-" J PO(l ) j: P 
O(l)-0iPRINT*320,P2$| , - , »T2, ■BONUS-" »PT(1) | i PT(1) -0!B7-0iPl(14) - 
TliP2(14)-T2 

11065 IFT1>T2THENW4-W4+1 

11066 IFTKT2THEJW2-W2+1 

11067 IFT1-T2THEKH3-W3+1 

11070 T3-T3+TlsT4-T4+T2iT5-T5+liPRINT8384,*PUSB ANY KEY TO CONTI 
NUE'j 

11071 L5$-INREY$:IPL58-**THEN11071 
11074 GOSUB17000 

11875 GOT018 

12000 F0RA-1TO13 

12005 P1$(A)-STR$(P1(A) ) 

12010 IFP1(A)-0THENP1S(A)-" X" 

12015 IFP1<A)-.STHENP1$IA)-" •" 

12020 NEXTA 

12100 RETURN 

12200 F0RA-1TO13 

12205 P2$(A) -STR$(P2(A) ) 

12210 IFP2(A)-0THENP2S(A)-" X" 

12215 irP2(A)-.5THENP2$(A)-" •" 

12220 NEXTA 

12225 RETURN 

15000 PRINT88B6,'l'iiRETURN 

15005 PRINT8891,*i") iRETURN 

16BB0 C>( 

16010 FORQ-1T04 

16020 IFH(Q) <-H(Q+l)THEN16040 

16030 T-H(Q) :BIQ)-H(Q+1) iHIQ*1) -TiC-OH 

Program continues 



BOOKKEEPING 
MADE SIMPLE 




The Menu 



THE 

BOOKKEEPER 

SYSTEM 



TM 



A Combined General Ledger, Accounts Payable, 
Accounts Receivable, and Payroll 

'Expandable to Include Inventory, Order Entry, 
Certified Payroll, or Mail List 

'Complete Easy-To-Follow Manual and 
Instructions 

• For Microcomputers using CP/M, OASIS or 
TRSDOS Operating System 

-64 K Minimum, Hard Disk Compatible 

-Demonstration Disk Available 







179 Watt Smith St r«M>1 
Gallatin, Tannasso* 37066 



CP M OASJS and TRSDOS oru 7M i o< 
D.gito 1 ffes#orch Pha>« On* Sfil»m% 
prtd Tondy Corp , re tptfivly 



/#i«?\ iM «***-. DEALER INQUIRIES 

(615) 452-1027 welcome 

We're Writing Programs for People 



^ See L'sr ol Advertisers on page 386 
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Word Processing? You need a 

SPELLING CHECKER 



This is <*r. eanpie of o te. t Peir.q chetfed W 
(CXSffU . the te ' scrolls MP If* screer. as it is cr»K+e<i. *efi 
r , ptro, ,-. .irtecte^, fn have three choices. 

II (-Vied the ircorrect yofl. The replacement word 
• : DCIMTU RE-OCOB) for correctr*ss. the* inserted in the 
t* t. 

: ' 'he uo"l is correct, leave it K tt '.'•■ 

3i Leave the worl as it is. AND tell HtXSffLL to 
LEftf'M this wor<1 for future reference, with jvsl one ke^strrte. 

'•" doo.neot Ji read-t to print as toot' as ►CXSTCL 



WORD I" ESMR! 
CONTTJfJATION : 



issta*e 

is showr. mi cor.te t. ircludiriq contirwatia 



press: <• w«~f how s> ieavi &s is i • learn wort' 



HexspeLL 

DlatJTY 

zaps those .saaefcy typos 

HEXSPELL shows you the errors right where it finds them, 
then instantly checks your corrections to make sure they ARE 
correct! When HEXSPELL is finished the corrected docu- 
ment is ready for printing. HEXSPELL comes with a 20,000 
word list, with room for 8000 more! Just one keystroke 
teaches HEXSPELL a new word. You can even clear the 
memory and teach HEXSPELL a complete new language. 

Programs, woidlist & manual S69US. Manual only $12. 



Requires 48K TRS-80 MoO I with 2 Drive 
Tested againsl Scnpsit & Electric Penc 


S TRSDOS 
I. should wc 


TRS-eO Scnpait ara l'aOa*na'«s ot Tandy Co'P 





ord processors 



»mi Stv«y»- So 



A^HeXAGON 



^125 

PO. Box 397, Station A 
Vancouver. B.C. Canada V6C 2N2 
Telephone (604) 682 7646 



Program continued 

16040 NEXTQ 

16050 IFO0THEN16000 

16060 RETURN 

17000 CLS:FORA-lT014iP3(A)-P3(A)+Pl(A) : P4 (A) -P4 ( A) +P2 ( A) iNEXTA 

17005 READAS: IFA$-*START"THEN17100ELSE17005 

17100 PRINT* *|P1$,P2$ 

17200 A8-82:FORA»lT014:READAStPRINTASl* " I : PRINTIKT(P3 (A) /T5+. 

49) j:PRIItT«A8,INT(P4(A)/T5+.49) :A8-A8+64:NEXTA 

17300 IFHT<-P1(14)THENHT-P1(14) :HT$-P1S 

17400 IFLT>-Pl(14)THENLT-Pl(14) :LTS-P1S 

17500 IFHT<-P2(14)THENHT-P2(14) -.HTS-P2S 

17600 IFLT>-P2(14)THENLT-P2(14) sLT$-P2$ 

17700 PRINT?92, 'LOWEST SCORE WAS BY *;LT$i "-* ;LT; iPRINT«156 , *HIG 

HEST SCORE WAS BY " »HT$» *•* 1HT1 : PRINTJ220 ,P1$> * ' S' ; ' BONUS -";PO 

;' OF *jT5;:PRINT0284,P2$|*'S*|' BONUS -')PT;' OF *)T5( : PRINTM1 

2,Pl$»!PRINT8422,P2S;iPRINT«432,*TIES"; 

17705 PRINT0476 ,W4i I PRINTg486 ,W2; : PRINTM96 ,W3 ; : PRINTJ960 , " (AVE. 

PTS. PER GAME FOR EACH CATAGORY)*; 
17800 NS-INKEYS:IPN$-"*THEN17B08 
17900 RESTORE : RETURN 

18000 DATA START,l»,2",3",4-,5-,6-,A-,B-,C-,D-,E»,F-,G-,AV 
19000 CLS:PRINT021,*THE GAME INVOLVES THE 'ROLLING' OP FIVE D 

ICE AND GETTING COMBINATIONS THAT MATCH EACH OF THE 13 CATA- G 
ORIES. (E.G. 3 OF A KIND, LARGE STRAIGHT ETC.) 

19002 PRINTe274,"ON EACH TURN YOU GET TO ROLL THE DICE 3 TINES A 
ND CAN DECIDE ON ROLLS TWO AND THREE TO RE-ROLL JUST THE ONES Y 
OU WANT. WHEN THE COMPUTER ASKS 'WHICH ONES' YOU RESPOND WITH T 
HE DIE NUMBER (1 TO 5 LEFT TO RIGHT)." 

19004 PRINTe'594, "AFTER THE LAST ROLL YOU MUST CHOOSE A CATAGORYE 
VEN IF YOUR ROLL DOES NOT HATCH ONE, YOU MUST CHOOSE ONE AND I FY 
OUR ROLL DOESN'T MATCH THEN THAT CATAGORY WILL JUST BE 'X' OUT.T 
HE 'BONUS' CATAGORIES ARE NUMBERS 1 TO 6.* 

19005 PRINT* 81 3, "YOU GET A BONUS OF 35 POINTS IF YOUR TOTAL FOR 
CATAGORIES 1 TO 6 IS 63 OR MORE.* iPRINT: INPUT'PUSH ENTER TO CONT 
INUE'lX 

19010 CLS:PRINT"FOLLOWING ARE THE POINTS FOR EACH CATAGORY* 
19015 PRINT:PRINT"1 TO 6 BONUS POINTS. DIES MATCHING CATAGORY N 
UMBER ARE ADDED" 
19020 PRINT" (A) THREE OF A KIND. ONLY WITH THREE OF A KIND, ALL 

DICE ADDED' 
19030 PRINT" (B) FOUR OF A KIND. ONLY WITH FOUR OF A KIND, ALL D 
ICE ADDED* 

19040 PRINT* (C) FULL HOUSE. 3 AND 2 OF ANY KIND. 35 POINTS' 
19050 PRINT' (D) SMALL STRAIGHT. 4 IN SEQUENCE. 35 POINTS" 
19060 PRINT" (E) LARGE STRAIGHT. 5 IN SEQUENCE. 40 POINTS" 
19070 PRINT" (F) YAHTZEE. ALL FIVE SAME. 50 POINTS" 
19080 PRINT* (G) CHANCE.- ANY COMBINATION. ALL DICE ADDED" 
19082 PRINT" (H) WILL END GAME IMMEDIATELY* 

19084 PRINT'NOTE: PUSHING 5 AT 'HOW MANY CHANGES' RE-ROLLS ALL T 
HE DICE*: PRINT'NOTE! PUSHING AT 'HOW MANY CHANGES' PROMPTS 'WH 
ICH OPTION" 
19090 PRINT i INPUT* ENTER TO START GAME* jX :GOT01 




Volume I: The most comprehensive 
book yet on the math routines in 
Level II ROM, Models I & III. In- 
cludes a fully commented listing 
from 0708H to 1607H and an in- 
credibly complete map of the ROM 
and reserved areas of RAM. 



[THE B00K 




If you ever do Assembly language program- 
ming, or you just want to know more about 
your TRS-80 ROM, "THE BOOK"s are for you. 

•TRS-80 is a trademark ol Tandy Corp. 

Each volume is priced at: $14.95 + $1.50 
S&H = $16.45 ($17.05 in VA) Overseas add 
$2.50 for air shipment 



►"305 



! Insiders Software Consultants, Inc. 
P.O. Box 2441, Dept. SUM2 
Springfield, VA 221 52 

:_ Please send me Volume I of THE BOOK 

D Please send me Volume II of THE BOOK 

NAME 

ADDRESS 

CITY, ST ATE 



ZIP CODE 



Check payable to Insiders Software Consultants. Inc 

MASTER CHARGE MC Bank Code 

VISA Exp Date Card Number 

Signature 



Dealer Inquiries Invited 




Volume II: Everything you want to 
know about the video, keyboard, 
cassette, and printer driver 
routines. Learn how to write your 
own! Remarkably detailed listings 
illustrate well-commented source 
code. Complement Volume I, now. 
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MDX-2 System Expansion 
for TRS 80's 

The new MDX-2 system experts ion beard from 
|COMPUTEX provide* more capabilities than any other 
ystem expansion currently avalleble. 

FEATURES INCLUDE 

• Capability to build only what you need. 

• Silk screened and solder mashed P.C.B. 

• Dip switches are used instead of hardware lumpers. 

• Mo messy vertically mounted termination resistors. 

• On board direct connect modem kit 

• 2K/4K Eprom kit 

• RS232/20m. A. serial interface 

• Real time dock kit 

• Floppy disk controller kit 

• 32K RAM expansion kit (less Ram) 

• Cassette port 

• Analog power supply 

• MDX-2 printed circuit board 

• Hardware and socket kit 

• Centronics line printer port 

Buy just the system expansion board and those kits you 
want, or save even more and buy the complete kit. 
MDX-2 KIT COMPLETE 
$299.00 



DISK DRIVE SALE 



$39.95 
$17.95 
S17.95 
$17.95 
$31.95 
$11.95 

$3.95 
$29.95 
$74.95 
$19.95 

$8.95 



TANDON TM100-1 

Bare Drive $235.00 With eaee/euppty S2SS.00 

Single sided 40 track • 102KB Single Density, 180KB Double Density 

TANDON TM100-2 

Hire Drive $335.00 With case/ supply $3*5 00 

Double sided 40 track • 204KB Single Density , 380KB Double Density 

TANDON TM10O-3 

Bsre Drive $335.00 With caee/suppiy $365 

Single sided 80 track • 204KB Single Density, 360KB Double Density 

TANDON TM100-4 

BareDrive$455 With caee/ supply $505.00 

Double sided 80 track •406KB Single Density, 735KB Double Density 

AH TANDON drives from COMPUTEX coma with comprehensive 
users manua', TANDON maintenance manual and schematics. In 
addition, all drives an electrically tatted before, during and miter their 
48 hour burn In. 

DISK DRIVE ACCESSORIES 

Two Drive Cable $24.95 

Four Drive Cable $34.95 

Drive E x tender Cable $14.95 

Model III Second Drive Cable $4.95 



Model III Disk Drive 
Kits & Drives 

Now available from COMPUTEX, a Radio Shack Disk Drive 
Kit for your Model III for only $429.95. 

Compare these standard features on our list to the others 

1 Drive Controller Board 

2 All necessary interconnecting cables 

3 Switching Power Supply 

4 Disk Drive Mounting Brackets 

5 Internal Disk Drive Cable 

6 Comprehensive installation and theory manual 

7 16K RAM 

COMPLETE MODEL III DRIVE PACKAGES 

These packages all include, the Model III Disk Drive Kit 
and the Micro Systems Software Model III DOS 
M3DK-1 (2-TM100-1 Drives) provides over 

350K Bytes storage 919.95 

M3DK-2 (2-TM 100-2 double headed drives) provides 

over 700K Bytes storage 1 . 1 49.95 

M3DK-3 (2-TM10O-3 80 track drives) provides over 

TOOK Bytes storage 1,199.95 

M3DK-4 (2-TM 100-4 double headed 80 track drives) 

provides over 1 4 M Bytes storage 1 .399.95 



COMPUTEX Comprehensive Test Program 

As one of the leading suppliers of disk drives and TRS80 systems, we 
had to have a systems test program that we knew worked. Since no 
complete systems test program already existed, we wrote our own. The 
COMPUTEX COMPREHENSIVE TEST (CCT) program was written 
exclusively for COMPUTEX and is now available to everyone. 

Features 

DISK DRIVE SPEED TEST • DISK DRIVE ALIGNMENT PROGRAM* 

EXPANSION INTERFACE RAM TEST • KEYBOARD RAM TEST • VIDEO RAM TEST 

KEYBOARD BOUNCE TEST • ROM CHECKSUM PROGRAM 

FULL SCREEN RAM DISPLAY PROGRAM 

'The Drive Alignment Program requires an Alignment Disk. 

The CCT program is a must for disk drive users and should be a part 

of everyones library. 

CCT Program $21.95 
Dysan Alignment Disk $39.95 
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LNW COLOR COMPUTER KIT 
S499.98 

(less P.C.B ) 
Includes all components to assemble the LNW color computer: high 
resolution video FIAM and 16K user RAM. keyboard, and Level II compatible 
ROMS Printed c rcuit board not included 

LNW EXPANSION INTERFACE KIT 
S219.95 

(less P.C.B) 
Includes ail components to assemble the LNW Expansion Interlace plus 32K 
ot RAM It does not include the printed circuit board, dual cassette relay or 
cabinet 



A beautiful custam 
Expansion Interface 



all wood 
$99.95 



cabinet is available for housing the LNW 



ONE YEAR GUARANTEE 

on our 200 N.S. 16K Memory Kits 

16K- $23.95 32K- $45.95 48K - $74 95 

These are top quality, new memory chips at unbelievably low prices. 



n. 



(713) 488-8022 



OAAfiUTEX 



••392 



ELECTRONICS COMPUTERS 

321 Ei Dorido Blvd. • Webster, Tx. 77596 

Vtsa and Mastercard accepted 
P#r«ofultVxJco!Tipanyc7>ecfcsrequlr« two weeks to clear 

Please visit our new showroom just off the Quit Fraaway. 
We have expanded, changed our name back to COMPUTEX, 
added mora personnel in order to of tar you complete service 
jnoj^jigbilit^^^^^^^^^^^^^^^^^^^^^^ 



• See List ot Advertisers on page 386 
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UTILITY 



You sometimes must use them 

to get the most out of your disparate program library. 



Building Bridges 



Wayne L. Mueller 
130 Sunset Court 
Roswell, GA 30075 



At one time or another, 
almost all of us have 
bought software that did every- 
thing that it claimed, but still 
didn't do exactly what we had 
in mind. When this happens, we 
usually either change our mind 
about what needs to be done, 
or change the software to do 
what we originally had in mind. 
In this case, I did neither. 
Rather, I found two pieces of 
software and built a bridge be- 
tween them. Taken together, 
they do exactly what I want. 

Special Delivery 

On one side of the bridge we 
have Special Delivery by Soft- 
ware Concepts. This is a very 
nice mail-list processor that 
merges a letter text file with a 
name and address file to pro- 
duce highly personalized form 
letters. 

If your letter starts with 
"Dear Mr. <L", the Mailrite pro- 
gram will substitute a last 



name for the <L, so that it 
prints as Dear Mr. Adams, Dear 
Mr. Baker, or whatever last 
names may appear in your 
name and address file. In all, 
there are eight fields in the 
name and address file that may 
be substituted anywhere in the 
body of your letter. Other "<" 
flags allow you to toggle under- 
scores and boldface on and off, 
change margins dynamically, 
and provide other slick features 
too numerous to mention here. 
(See the July, 1980, 80 Micro- 
computing for a review.) The 
problem is that six of the eight 
fields have to do with the name 
and address, leaving only two 
fields to store data about that 
person or company. For my pur- 
poses, two is not enough. 

AIDS3 

Enter AIDS3, by Meta Tech- 
nologies. AIDS has no text in- 
sertion capability, but is a 
superior data manager. The 
user may define up to 20 fields 
of either character or numeric 
type. In addition, there is a 
more comprehensive search 
and select capability. There are 
no exaggerations in MTC's ads. 
If anything, the claims are 



understated. If all you need is a 
data manager and report gen- 
erator, AIDS3 and its com- 
panion programs are top notch. 

The Bridge 

As you might expect, the file 
structures differ between AIDS 
and Special Delivery, so that a 
file written by one cannot be 
read directly by the other. 
That's where the bridge comes 
in. The conversion Program 
Listing moves any of AIDS' 20 
fields to or from any of Special 
Delivery's eight fields, and does 
it in a format that is readable by 
the destination program. 

What this means to me is that 
even after using six of the 20 
AIDS fields for name and ad- 
dress information, I still have 
up to 14 fields to store data for in- 
sertion into form letters. Normal- 
ly I do my data entry, editing 
and selection with AIDS, and 
then move the selected data to 
the Special Delivery format for 
form letter generation. 

The conversion program op- 
erates very simply. The pro- 
gram asks for and accepts the 
names of the files involved, and 
which way to convert. The re- 
spective file formats are then 



displayed, (Fig. 1) and you 
select which field is to be 
moved where. As each selec- 
tion is made, the arrows to the 
left of the screen (Fig. 2) depict 
the source and destination 
fields. In the example shown, 
an AIDS file is being converted 
to Special Delivery. AIDS fields 
A through F are being moved to 
the corresponding Special De- 
livery fields one through six, 
while AIDS fields M and L are be- 
ing moved to Special Delivery 
fields six and eight re- 
spectively. Entering the slash (/) 
character ends the selection, 
and causes the conversion to 
take place. 

All Special Delivery fields are 
stored as left-justified char- 
acters, and padded on the right 
with underline characters to fill 
out the field. AIDS' character 
fields are padded on the right 
with blanks, while numeric 
fields are right justified and 
padded on the left with blanks. 
The conversion process ac- 
comodates these conventions, 
so that the converted file ap- 
pears identical to what would 
have been produced by the 
destination program. If the 
destination field is smaller than 



Member/lst:1 


Member/dat:1 




1 Name 25 


A Name = 25 


K Pledge J#6 


2 Company 25 


B Company = 25 


LSto 0afe#6 


3 Address 25 


C Address = 25 


M Committee*18 


4 City 18 


D City* 18 


N OtticerTHH 


5 Slate 2 


EState* 2 




6 Zip 5 


FZip = S 




7 Data 1 14 


G Wife Name - 12 




8 Data 2 14 


H = Chlldren-3 
1 Member Yrs-4 
J Blrthday-18 
To or From Member/daM? 

Fig. 1 





Member/lst:1 


Member/dat:l 




A = => 1 Name 25 


A Name-25 


K Pledge $-6 


B = => 2 Company 25 


B Company-25 


L $to Date-6 


C = = > 3 Address 25 


C Address-25 


M Committee-18 


D = =>4Cily 18 


D City-18 


N Officer?- 1 


E = = > 5 State 2 


E State-2 




F = =>6Zlp5 


F Zip-5 




M = =>7 Data 1 14 


G Wife Name- 12 




L = =>8Data2 14 


H # Children-3 

I Member yrs-4 

J Birthday-18 

<= = 

Next?. 

Fig. 2 
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TEXAS COMPUTER SYSTEMS 



Offers Lowest Prices on 



FOR PERSONAL BUSINESS 
OR ENTERTAINMENT 

Color Computer 

4K Level I $319 
16K Level I $439 
16K Extended Basic $489 

With TCS Memory: 

16K Level I $369 

16K Extended Basic $449 




Expansion Interfaces 

Zero K Interlace $254 With TCS Memory: 

16K Interlace $359 16K Interlace $318 

32K Interlace $469 32K Interface $388 



Epson Printers SCall 

Leller Quality matrix O'iPter has lull software control 0140 80 66 or 132 columns 80 cps Didireclional 
tractor 'eefl disposab'e printhajd $300 less liar, nearest compel tive printer Lists $645 Can lot Our 
low price 

MX-80 Tractor Feed MX-100 Graphtrax, Friction 

MX-80 FT Friction and and Tractor up to 15 " 

Tractor wide. 

Graphtrax for MX-80. MX-80 FT, graphics option. 



SOFTWARE 

EPSON MX-80 
PRINTER DISKETTE 

A copip'ele diskette wiin b comoiele tiles icm use 
wilh you' !pson MX 80 Pwttei 
ready 10 use 

M/CMO Send a" ollhe Epson Printer commands 
lo trie priniei QuecUy liom DOS or as pan ol an auto 
hooiinq syslem Sel up lie printer I'om DOS lo me 
Ivueslyle you want men 'un the program 

BIGIETT/BAS P-oduce large graphic letters on 

y0u< punier and screen Dump the letters 10 printer or 

to disk Ahows 3 different si/e leiiers lo me punier 
Program ivmenudnven you may aisoconsl'ucl large 
*lle' niies lor MIRGS mq mlo your oasic program 

EPSON/SUB Merge Ihrt small module into any 
Basic p' oq'amdnd then issue any oMne printer >om 
mands *ma 2 leller command with wile's retnesen 
tinq the pu> pose ol me command you newt not 'etei 
Pack ana to<th to documentation {xtiemeiy easy to 
use and makes using the printer much easier m.i r 
ever before 



JKI PATCH irus patches NtWDOS 2 I and 
NfyVOOS 80 so thai the JKI tunchon will print the 
1 RS80 graphic s while the punier remains m the stan 
dard niode 'ather than the I HS80 mode this allows 
allot the lealu'e^otihe punier to be used out you can 
dump the scieen lo me pnntei at any time with an 
qraphics 

DEMO/BAS a super lulonal program wilh nun 
oreosoi REWsand hundreds ol scieen prompts thai 
leach you how easy ii is to creale miracles with you' 
tOsonMXSOunnlei 

LABEL /BAS Custom laDei making program in 
eluding graphics Makes custom mailing labels an 
easy ioo 

OEFSTATE/SUB A series ol one wont priniei 
commands thai can oe merged mlo any Basic P-o 
qrams that allow various automatic functions lo oc 
cur Punt lilies wilh graphic borders around mei" 
with one wo'd Center any text with one command 
etc 

Special Price All seven of the above 
modules on one diskette Of on tape (less 
JKI | tor yout Model I or III tor only 
$29.95 



Or takeaSlOdiscounlitvoubuythis item with purchase ol the fcpson MX 80 




Model III 16K $835 

Model III 32K $979 
Model III 48K $1089 



TRS-80 



We hue ill R»d.o Slack computers tnO accessor 
ies jnd i numoer ot other Bund compute' items 
Call us tor your spec'* needs and get t coot ot our 
catalot 



With TCS Memory: 
Model III 32K$909 
Model III 48K$969 



Model III48K2 Disk RS232 $2100 
Model III 32K 1 Disk $1729 

Model III 48K 1 Disk $1849 



TEXAS COMPUTER SYSTEMS 



Offers Lowest Prices on 



COMPUTERS 




Model II 64K $3288 

An excellent computer for your business 
needs Easy expandability & compatibility 
No formal operator training needed All ac- 
cessories available — disk expansions. 
printers, software, at our low discount 
prices Our fast, fully insured air freight 
service can assure most deliveries within 
seven days after payment is received 



Corvus Hard Disks SCall 

S 10 or ?0 megabyes ot storage 'or the Mode i r ot i! We can configure a system tor you with eithe' 
TRSD0S NFWD0S81 orCP'Mtorone or several computers sharing a sing* ha'dCnve simultaneous > fo< 
example Iran ' to 8 Viodei II s may share a Single large data base with the Corvus Constellation Multiplexer 
'his aiso allows you lo use different manjlaclurers computers on the same hard disk system at the same lime 
Also tits Apple Supeibram Altos and most other computers As your business grows, additional storage and 
termma s may be adced easily ^expensively Why wail months for other s promises 7 We can deliver these 
reliable oroven hard disk systems NOW 1 Corvus has sold and shipped ten times more hard drives for 
microcomputers thar all their competitors combined Call us lor the lowest price! 



MICROSOFT 

BASIC-M I > tended dish Basic long variable 
names chaminq variable length records ANSI com 
palaole interpretative version S294 w/ manual 
S30 manual only. 

BASIC COMPILER Same Basic language as 
HAS r un pi((>pi ,0' - ipiles Basn program mlo a 



directly executable relocatable machine languaae 
tile Operates 3 lo 10 times laster than regular Basic 
includes Macro 80 Assembler Specify CPM or 
1P.SDOS S32S w/manual $30 manual only 

FORTRAN 10 supports ANSI 66 plus many e« 
tensions including MACPO 80 Has library with 
manager relocatable obiecl compiler and linking 
loade' $400 w/manual S30 manual only 



Word Processor Package $2679 

includes 2 Oisr Model III with 48K, Epson MX-80 Tractor Feed with cable, and 
word processing software ready to operate. Lists at $3300 Our low price 
special this menth S2879. For MX-80 FT Tractor and Friction, add $99 



Special -With TCS Memory 
* Model III 48K 2 Disks 

Jses proven MPi drives modified tor flippy operation and 
Percom controller limited 90 day warranty Can tor 
delans 



$1895 



Printers 



Daisy Wheel II 
$1695 



Ca'bon ribbon typewriter quality lor word processing 43 
cps Standard Centronics pa-aW interlace Full t6" 
width individual sheets or friction teed Trade 'eec 
$?S0 extra Fastest Daisy Wheei available at this price 



Line Printer IV $825 
Line Printer V $1599 
Line Printer VI $995 
Line Printer VII $350 



Pocket Computer 
& Ace. SCall 

Pocket Computer Printer 

ntertace m stock 



• Payment M:-e, Oroei Cashier s Check Ce'Miefl 
Check Persona checks take 3 wks VISA MC 
aoo 3*- 



• Piich SoOaXl to change any time 

• No tax out ot siaie lexans add V' 

• Delivery subrect to availability 

• Snipp.ng extra Quoted by pnone ^ 25 



TEXAS COMPUTER SYSTEMS 

Box 951, Brady Texas 76825 

For fast efficient service we can air freight from Dallas 
to maior a/p near vou Call tor information 

Toll Free Number 800-433-5184 

Texas Residents 817-274-5625 



.'See List Ol Advertisers on page 336 
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the source field, the source is 

truncated on the right or left as 

appropriate to the destination. 

No changes to Special 



Delivery and only minor 
changes to AIDS are required. 
Special Delivery handles lower- 
case characters while AIDS 



does not. Simply go through 
AIDS and locate the occur- 
rences of CH = 90. Change 
them to CH = 122 and you have 



lowercase AIDS. This naturally 
assumes that your TRS-80 has 
a lowercase conversion in- 
stalled.! 



100 DEFINT A-Z:CLEAR 1088 

118 'DEFINE MACHINE CODE IN MLS 

128 MLS-STRINCS(26,32) :X-VARPTR(MLS) :X1-PEEK (X + l ) .-X2-PEEK (X + 2) 

138 IF X2>127 THEN X2— X2:X1-X1-1 ELSE X2-256»X2 

148 X-X1+X2:DEFUSR0-X:FOR Xl-8 TO 25:READ X2:POKE X+X1,X2:NEXT 

159 CL$-CHR$(31) 'CLEAR SCREEN 

168 GOSUB 3588 'GET FILE NAMES 

178 GOSUB 2088 'OPEN i READ DESC FILE 

188 GOSUB 2100 ' DISPLAY AIDS FIELDS 

198 GOSUB 2200 'DISP SPEC DEL FIELDS 

200 GOSUB 2300 'FIELD SD FILE 

218 GOSUB 4700 'DUMMY AIDS FIELDING 

220 GOSUB 2400 'CONVERT WHICH WAY? 

230 GOSUB 2700 'OPEN AIDS FILE FOR I/O 

240 LT$-"ABCDEFGHIJKLMNOPQRST" 'VALID LETTERS 

258 LTS-LEFT$(LT$,NF) 'VALID LETTERS. . .THIS AIDS SYSTEM 

260 NRS--12345678" 'VALID NUMBERS FOR S-D 

270 GOSUB 3800 'GET t VALIDATE XFER INFO 

280 IF TF«1 THEN GOSUB 4000 ELSE GOSUB 4300 

290 CLOSE: END 

2080 'SUBR TO OPEN t READ AIDS DESC FILE 

2010 OPEN"I",3,F3S 

2820 INPUT#3,AS,AS,TL,NF 'DMY,DMY,TOT REC LEN , I FLDS 

2030 DIM ANS(NF) , AL(NF) , AS (NF) ,AZ(NF) ,AA$(NF) 'NAME, LEN, STRT,BKTS 

2848 FOR 1-1 TO NF: INPUT»3 ,ANS(I) ,AL(I) 'FLD NAME (. LENGTH 

2850 IF AL(I)<0 THEN INPUT 43 , AS ( I ) , AS ( I) ELSE INPUTI3 ,AS ( I ) 

2060 NEXT:CLOSEI3:RETURN 

2100 'SUBR TO DISPLAY AIDS FIELDS 

2110 CLS:PRINTM0,F2Sl 'DISP AIDS NAME 

2120 NS-686 'START PRINT POS 

2130 FOR 1-28 TO 1 STEP -ltIF I >NF THEN 2150 

2140 PRINTgNS,CHR$(64+I)," " ; ANSU) ; "-- "; ABS(AL( I) ) ; 

2150 NS-NS-64: IF NS<64 THEN NS-666 

2160 NEXT:RETURN 

2200 'SUBR TO DISP SPEC DEL FIELDS 

2210 NS-5:PRINT«NS,F1$; 'DISP S-D FILENAME 

2220 FOR 1-1 TO 8:NS»NS+64:R£AD SN$(I),SL(I) 

2230 PRINT3NS , I ; SN$ ( I ) , SL ( I ) ; : NEXT:RETURN 

2300 'SUB TO FIELD RND FILE TO S-D SPECS 

2310 0PEN"R",1,F1S:SR-2:SF=8 '2 SUBRECS, 8 FLDS 

2320 DIM RFS(SR.SF) ,SZ(NF) :DUMMY-0 

2330 FOR 1-1 TO SR:rOR J-l TO SF 

2340 FIELD 1, (DUMMY) AS DUMMY$,SL(J) AS RF$(I,J) 

2350 DUMMY-DUMMY+SL(J) :NEXT J, I: RETURN 

2400 'CONVERT WHICH WAY? 

2410 AR$(1)-" <--"iAR$(2)-" -->" 

2420 NS-720:PRINT«NS,CLS>"TO OR FROM ";F2S;"?* 

2438 A$-INKEY$:IF A$-*" THEN 2430 

2440 PRINTSNS,CLS;:TF-INSTR(-TF",AS) : IF TF>8 THEN 2460 

2450 GOSUB 2600:GOTO 2420 'BUZZ k CLEAR 

2460 SYS-ARS(TF) : PRINT JNS+6 ,ARS (3-TF) :RETURN 

2688 'BEEP ROUTINE 

2618 FOR 1-1 TO 25:OUT 255,4:OUT 255 ,B:NEXT:RETURN 

2780 'OPEN AIDS FILE FOR I/O 

2710 OPEN MIDS("OI",TP,l) , 2 ,F2$:RETURN 

3500 ' SUB TO GET FILENAMES 

3510 PRINTP0,CLS:PRINT#10,"MAILFORM/AIDS FILE CONVERSIONS" 

3528 PRINT?26 8,-MAII.FORM FILE? " ; : LINEINPUT FS 

3530 NS-283:F=l:GOSUB 3700:F1S>FS 

3540 PRINTS336,"AIDS FILE? ";:LINEINPUT F$ 

3550 NS-347:F*2:GOSUB 3700:F2$-F$ 

3560 PRINTg389,"AIDS DESCRIPTOR FILE? " | : LINEINPUT FS 

3570 NS-411:F-3:IF FS-"" THEN FS»F0S:GOSUB 3750 ELSE GOSUB 3780 

3580 F3$-F$:PRINTM71,"OK? "; 

3590 LINEINPUTFS:IFLEFTS(FS,1)«"Y" THEN RETURN ELSE GOTO 3510 

3700 'ASSIGN DEFAULT EXT i DRIVE 

3710 A1-INSTR(F$,V) : A2-INSTR (FS, " : ") :FRS-":1* 

3720 IF A1>0 AND A2>0 THEN RETURN 

3730 IF A2>0 THEN FRS-RIGHTS ( FS, 2) : FS-LEFTS (FS, A2-1) 

3740 F0S-FS 

3750 FS-FS+MIDSC/LST/DAT/DSC",4*F-3, 4) +FRS : PRINT9NS ,FS: RETURN 



3888 'SUB TO VALIDATE FLD XFER INFO 

3818 NS-918:PRINTeNS,CLS;"NEXT? "; :NS=NS+6: FL=2 :GOSUB 4500 

3820 TXS-AIS:IF AI-42 THEN 3960 ' STD XFER 

3830 IF AI-47 THEN RETURN 'END INPUT 

3840 L$-LEFTS(TXS,1) :RS-RIGHTS (TXS,1) 

3850 L=INSTR(NRS,LS) :IF LX) THEN LI «1: GOTO 3870 

3860 L-INSTR(LTS,LS) : IF L>0 THEN L1-2:G0T0 3880 ELSE GOTO 3900 

3870 R-INSTR(LTS,RS) :IF R>0 THEN R1-2:GOTO 3918 ELSE GOTO 3900 

3880 R*INSTR(NRS,RS) :IF R>0 THEN Rl-l:GOTO 3910 

3890 'INVALID INPUT 

3900 NS-852:PRINTGNS,TXS; P INVALID"; : GOSUB 2610:GOTO 3810 

3910 IF Ll-Rl THEN 3900 

3920 IFL1-1THEN X-R:Y-L ELSE IF Ll-2 THEN X-L:Y=R ELSEGOTO3900 

3930 AZ(X)-Y:SZ(Y)-X:NS-64»Y:PRINT?NS,CHRS(6 4+X)*SYS; 

3940 PRINT#852,CLS;:GOTO 3810 'CLEAR ERR & RESUME 

3950 'STD XFER 

3960 FOR 1-1 TO SF:SZ ( I) -I :PRINTP64»I ,CHRS (64+1 ) +SYS: : NEXT 

3970 FOR 1-1 TO NF:AZ(I)-I:NEXT 

3980 GOTO 3940 

4000 ' SUB TO CONV S-D TO AIDS 

4010 BS-STRINGS1TL,32) :ECS-CHR$ ( 236) :ULS-CHRS( 95) :RN-0 

4020 FOR K-l TO LOF(l) :NR-NR+1:GET l.NR 

4030 FOR 1-1 TO SR 

4040 IF INSTR(RF$(I,1) ,EC$)>0 THEN 4130 

4850 FOR J»l TO SF 'FOR ALL FIELDS 

4060 LSET AA$(J)-B$ 

4070 UL-INSTR(RFS(I,AZ(J)) ,ULS) :IF UL-1 THEN 4110 ELSE IF UL=0 T 

HEN 4090 

4080 AS-LEFTS(RFS(I,AZ(J)) ,UL-1) :GOTO 4100 

4090 A$=RFS(I,AZ(J)) 

4100 IF AL(J)>0 THEN LSET AAS(J)-AS ELSE RSET AAS(J)-AS 

4110 PRINT»2,AAS(J) ; :NEXTJ : PRINT! 2 , " " 

4120 RN-RN+1:PRINT§714,RN; "RECORDS WRITTEN TO ";F2S:NEXT I,K 

4130 CLOSE: END 

4300 ' SUB TO CONV AIDS TO S-D 

4310 NR-0:RC-0 

4320 FOR 1-1 TO SR 'FOR ALL SUB RECS 

4330 IF EOF(2) THEN 4440 

4340 LINEINPUT#2,AS:FOR J-l TO SF 'FOR ALL FLDS 

4350 T$-STRINGS(LEN(RFS(I,J)) ,32) 

4360 X$-MIDS(AS,AS(SZ(J)) ,ABS(AL(SZ( J) ) ) ) 

4370 IF AL(SZ(J))>0 THEN 4410 

4380 FOR K-l TO LEN(XS):IF MIDS (XS ,K , 1) <>" " THEN 4400 

4398 NEXT K:GOTO 4410 

4 400 K-K-1:XS=RICHT$(XS,LEN(XS)-K) 

4410 MIDS(T$,1)«XS 

4420 X=USR0(VARPTR(TS1) : LSET RFS ( I , J) "TS:NEXT J 

4430 RC-RC+l:PRINTe714,RC; "RECORDS WRITTEN TO ";F1S:NEXT 1 

4440 NR-NR+1:PUT 1,NR:IF EOF(2) THEN 4450 ELSE GOTO 4320 

4450 CLOSE: END 

4 500 'KEYBOARD INPUT ROUTINE 

4510 FS-0:ANS=":CRS«CHRS(13) :CFS-CHRS(14) :CNS-CHRS (15) 

4520 PRINT#NS+FS, STRINGS (FL-FS, 136) 

4530 PRINT#NS»FS,CFS; : IS-INKEYS: PRINTPNS+FS.CNS; : IFIS-ANSTHEN453 



4540 AI-ASC(IS) 

4550 IF AI-42 OR AI-47 THEN PRINT«NS+FS, IS; : FS-FS+1 :GOTO 4600 

4560 IF AI-8 THEN IF FS>0 THEN FS-FS-l:GOTO 4530 ELSE 4530 

4570 IF IS-CRS THEN 4600 

4580 PRINT$NS+FS,ISi:IF AI<>8 THEN FS-FS+1 ELSE FS-FS-1 

4590 IF FS<FL THEN 4520 

4600 AIS-ANS:BP-15360+NS:FOR I-BP TO BP+FS-1 : AI S-AIS+CHRSl 

) ) : NEXT: RETURN 

4700 'DUMMY FIELDING FOR AIDS FILE 

4710 OPEN*R",3,F3S:DUMMY-0:FOR 1-1 TO NF 

4720 FIELD 3, (DUMMY) AS DUMMYS,ABS( AL( I ) ) AS AAS(I) 

4730 DUMMY-DUMMY+ABS(AL(I)) :NEXT:RETURN 

5000 DATA 205,127,10,06,01,05,78,35,94,35,86,235,9,43,65 

5010 DATA 62,32,190,192,62,95,119,43,16,246,201 

5020 DATA "NAME" , 25 , "COMPANY" , 25 , "ADDRESS" , 25 , "CITY" ,18 

5030 DATA "STATE", 2, "ZIP", 5, "DATA 1", 14, "DATA 2", 14 



PEEKd 



Program Listing 



Features of the FATIGUE FIGHTER : 

REDUCES OPERATOR FATIGUE THEREBY ALLOWING MORE EFFI- 
CIENT USE OF THE COMPUTER. 
INSTALLS EASILY WITH PRESSURE SENSITIVE ADHESIVE. NO 

SCREWS, CUM, OR DRILLING TO DAMAGE MONITOR. 
DESIGNED TO MATCH TRS-SO" STYLING FROM THE BLACK AND 

SILVER BORDER TO THE LETTERING TYPE FACE. 
MADE OF TOUGH 1/fl INCH THICK ACRYUC SHEET FOR DURABIL- 
ITY, EASE OP CLEANING, AND A QUALITY APPEARANCE. 
FITS BOTH THE MODEL I AND THE MODEL II. 
B DOES NOT VOID THE COMPUTER WARRANTY. 

Sand Name 4 Addmt Typed or ClMrty Printed with 
Choc* or Money Order lor 112.05 Each, Including Ship- 
ping. COO* am S2.S0 Additional Par Order a are Ac- 
cepled by Mall or by Calling 904-378-24*4 »-5 M-F 
Florida Realdenti Add 4% Salea Tax. 



TO ORDER 



TRS-SO IS A TRADf MARK OF TANDY 

LSD 



SOUTHERN INNOVATIVE DESIGN 
1520 NORTHEAST 12TH STREET 
GAINESVILLE, FLORIDA 32601 ^373 
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. . . Andmy dad says GRAFTRAX80 
does better graphics than anybody. 

Epson. 



You might say it's the head of its class. GRAFTRAX 80 
gives you the highest resolution dot matrix in the world 
— up to 120 dots per inch horizontally and 216 dots per 
inch vertically. Which makes our MX-80 and MX-80 
F/T work more like a plotter than a printer. 

And that's just for starters. 

GRAFTRAX 80 more than doubles the features avail- 
able in an Epson MX-80 or MX-80 F/T. For instance, 
we've added nice little touches like an italic character 
set — which doubles the number of font types to 24. 
And with GRAFTRAX 80, you can change style, size 
and density anywhere in the line. And backspace the 
head. And use block graphics with any computer. And 
redefine all escape codes under software control. 

Up to now , you couldn't get some of these features at 
any price. With GRAFTRAX 80, you get 'em all. And 
more. Lots more. 



Best of all, we haven't forgotten all those people who 
already own an MX-80 or MX-80 F/T. You own the 
printer that set the standards all the others are follow- 
ing. And you can install GRAFTRAX 80 PROMs your- 
self, for less than $100. And make the best even better. 

You can see why we 

say GRAFTRAX 80 is 

the head of its class. 

There's nothing else in 

its class. 



^404 




EPSON 

EPSON AMERICA, INC. 



3415 Kashiwa Street • Torrance, California 90505 • (213) 539-9140 



CONSTRUCTION 



Increase your computer's capacity for stability. 



That Annoying Twitch 



Marshall E. Smith 

801 West Long Lake Road, 

Apt. F-1 

Bloom field Hills, Ml 48013 



Can you remedy the twitch 
in my video display?" 
asked my grandson. He had 
obtained an estimate for a pro- 
fessional repair job which in- 
cluded replacement of any 
doubtful ICs and a check of all 
solder connections. The size of 
the estimate meant a big hole 
in his cash reserves which he 
had planned to use for the pur- 
chase of peripherals. He re- 
membered that I had done 
some do-it-yourself TV repairs 
and wondered if I could help 
him. With scant knowledge of 
computers, I reluctantly con- 
sented to tackle the problem. 

Following the instructions in 
the TRS-80 Microcomputer 
Technical Reference Handbook 
we disassembled the case, try- 
ing not to strain the flexible con- 
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nections and taking pains not to 
bend the logic board. We posi- 
tioned the logic board with the 
devices up and the keyboard 
in an operable location, then 
plugged in the power supplies to 
the logic board and to the video 
display. 

We turned on the power and 
checked the 12 volt, 5 volt and 
-5 volt supplies and found 
them satisfactory. I had 
learned that the computer had 
worked well except for the an- 
noying horizontal twitch which 
appeared periodically at the 
left side of the screen when an 
image was being displayed. 
The problem seemed to be in- 
dependent of duration of opera- 
tion or temperature and would 




come and go without apparent 
cause. I connected my 3-inch 
oscilloscope and went to work. 

With a display on the video, I 
connected the scope ground to 
the logic board ground, then 
did some careful probing 
among the IC pins, working 
back from the output jack. This 
was done carefully because I 
did not want to short-circuit or 
ground any live pins. All probing 
was done on the side of the logic 
board on which the devices are 
mounted. 

With no twitch on the video I 
found a nice, steady pattern on 
pin 3 of Z49. Waiting for the in- 
evitable twitch, which soon oc- 
curred, I probed the same pin 
and found the scope image was 



27 pF 



vibrating. I then probed other 
pins in the area and found to my 
pleasant surprise that the 
twitching stopped when the 
probe was on pin 2 or 3 of Z50. It 
was evident that there was a 
slight tendency towards insta- 
bility in that circuit and that a 
small amount of capacitance to 
ground might cure it. 

Sure enough, a 27pF ceramic 
type capacitor from pin 3 of Z50 
to pin 15 (ground) of Z49 solved 
the problem (see Fig. 1). Care 
was exercised not to overheat 
the pins of the ICs during solder- 
ing. After several operational 
tests indicated success, we re- 
assembled the computer. It has 
been working faithfully for 
several weeks now.l 




V 6 ROUND 



Fig. 1 






COMPETENCY EXAM PREPARATION SERIES 

This comprehensive set of programs consists of simulated exam modules, a thorough diagnostic package, and a 
complete set of instructional programs. It is designed to teach concepts and operations, provide drill and practice and 
assess achievement levels through pre and post testing. TheCompetency Exam Preparation Series provides a structured, 
sequential, curriculum encompassing mathematical, reading and writing instruction. 

The C.E.P.S. program is designed for individual student use or use in a classroom setting. Programs provide optional 
printer capability, worksheet generation and performance monitoring. C.E.P.S. are available in two software formats. 

National Proficiency Series $1,299.00 

N.Y.S. Regents Competency Test, Preparation Series $1,299.00 

If desired separate Mathematics and Verbal packages are available for $799.00 ea. A Spanish language version of the 
Mathematics Instruction Package is available at no extra charge. 

is 

COLLEGE BOARD PREPARATION SERIES 81/82 %!2& mm 3?* 

Each program confronts the user with a virtually limitless series of questions and answers. Each is based on past exams 
and presents material of the same level of difficulty and in the same form used in the S.A.T. Scoring is provided in 
accordance with the formula used by College Boards. 

S.A.T., P.S.A.T., N.M.S.Q.T., set includes 25 programs covering Vocabulary, Word Relationships, Reading 
Comprehension, Sentence Completion, and Mathematics. Price $149.95 

EDUCATOR EDITION - includes all of the above programs plus detailed solutions and explanations. Price $229.95 
Independent Tests of S.A.T. series performance show a mean total increase of 70 points in students' scores. 
Update Pack to 81/82 specs. Available to previous owners. P r,ce $69.95 



ODYSSEY IN TIME 



3 



0««» 







- ^mti 



This spectacular adventure game adds a new dimension of 
excitement and complexity to Time Traveler. Players must now 
compete with the powerful and treacherous adversary in their 
exacting quest for victory. 

To succeed they must vanquish this adversary in combat that 
rages across 24 time periods. 

Odyssey In Time includes all the challenges of Time Traveler 

plus 10 additional eras, including those of Alexander the Great, 

Emperor Asoka of India, Attila the Hun, Genghis Khan. Each 

game is unique, and may be interupted and saved for later play. 

available for APPLE & TR-80 PET, 32K - $39.95 




ISAAC NEWTON 

Perhaps the most fascinating and valuable ed- 
ucational game ever devised — ISAAC NEWTON 
challenges the players to assemble evidence and 
discern the underlying "Laws of Nature" that have 
produced this evidence. ISAAC NEWTON is an 
inductive game that allows players to intervene 
actively by proposing experiments to determine if 
new data conform to the "Laws of Nature" in 
question. Players may set the level of difficulty 
from simple to fiendishly complex. 

In a classroom setting the instructor may elect to 
choose "Laws of Nature" in accordance with the 
complete instruction manual provided. 
For insight into some of the basic principles underlying 
ISAAC NEWTON see CODEL. ESCHER. BACH by Douglas 
R. Hofstadler. Chapter XIX and Martin Gardner's MATHE- 
MATICAL GAMEScolumn in Scientific American, October. 
1977 and lune. 19S9 $24 95 




TIME TRAVELER 

Confronts players with complex decision situations and 
the demand for real time action. Using the Time Machine, 
players must face a challenging series of environments that 
include; The Athens of Pericles, Imperial Rome, 
Nebuchadnezzar's Babylon, Ikhnaton's Egypt, Jerusalem at 
the time of the crucifixion, The Crusades, Machiavelli's 
Italy, The French Revolution. The American Revolution, 
and The English Civil War. Deal with Hitler's Third Reich. 
Vikings, etc. At the start of each game players may choose a 
level of difficulty . . . the more difficult, the greater the time 
pressure. To succeed you must build alliances and struggle 
with the ruling powers. Each game is unique. 

$24.95 



Krell Software Corp. 



Send $2.00 for complete Catalogue. 

$5.00 Discount Coupon included in Catalogue. 
PROGRAMS AVAILABLE FOR ^^ 

TRS-80 APPLE II & PET **-•», ^375 Send check or money order to 

lunless otherwise indicated) ^* 21 Milbrook Drive, Stony Brook, NY 11790 

O disk or D cassette (please specify) ( 51fe ) 751-5139 

AH programs require l$K TRS-80 programs require LEVEL II BASIC APPLE programs require APPLESOFT BASIC NY Stare Regents Add Sales Tat 



*-See List ol Advertisers on page 386 



J 
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UTILITY 



An initial program loader for TRSDOS. 



Through-Boot 



Alan D. Smith 
P.O. Box 119 

Mortdaie, N.S.W. 2223 
Australia 



One shortcoming of the 
TRS-80 disk system 
(TRSDOS) is the failure to pro- 
vide an Initial Program Load 
(IPL) facility to take the user 
from power-up through to the 
desired Basic program without 
the need for numerous key- 
board entries. The Auto Func- 
tion with its one command 
limitation fails to solve the 
problem. Unless you happen to 
own, for example, Apparat's 
NEWDOS, you're stuck with a 
somewhat lengthy initialization 
sequence, particularly if load- 
ing I/O drivers. Out of such 
frustrations was born IPUBAS. 

I PUB AS 

IPUBAS is a Basic program 
suitable for TRSDOS systems 
of 16K RAM and upwards. It 
allows the user to create a com- 
mand file tailored to suit a par- 
ticular IPL requirement. Each 
such file consists of a small 
machine language program 
plus the specified set of com- 
mands. For example, we might 
build a file called TAXIPUCMD. 
Entering TAXIPL after power-up 



(or setting Auto TAXIPL) might: 
might: 

• set Verify (ON); 

• load an I/O driver PRINT/ 
DVR; 

• load and execute Basic; 

• reply <ENTER> to How 
Many Files?; 

• reply 49000 to Memory 
Size? 

• and run program TAX/BAS. 
TAX PASS: 1. 

All this without any further 
entries from the keyboard! 

Program Operation 

To use IPUBAS, key in the 
program and save to disk as 
IPUBAS; be especially careful 
copying the data statements, 
lines 50 through 80. Whenever 
you want to set up an IPL com- 
mand file, there are several 
steps to follow. 

Execute Basic and reply 
32511 to the Memory Size? 
query. (The command file is 
built in RAM starting at 32512 
(7F00 hex), so that area needs 
to be protected. In fact, IPU 
BAS will refuse to run if you 
haven't set the memory size 
correctly.) 

Run IPUBAS and when re- 
quested, key in the command 
set you require. Note that Enter 
should be typed as " + " ; for ex- 
ample, to build the TAXIPL file 
outlined in the previous section, 
you would type: 



VERIFY + LOAD PRINT/DVR + BASIC + + 
49000+ RUNTAX/BAS. TAXPASS:1" + 

and then press Enter. 

The program will return to 
TRSDOS, and you then write 
the command file to disk using 
the DOS Dump command. In 



the case in question we would 
enter: 

DUMP TAXIPUCMD (START = X7FO0', 
END = X7FBF.TRA = X7FO0) 

The command file is now 
ready for use. 









Program Listing 1. 


7F00 


E5 




PUSH 


HI. 


Save KL 


7F01 


2A 1b 


it 


LD 


HL,(4016) 


Get original KB ariver *ddr 


7F04 


22 2B 


7? 


LD 


(7F2B),H1 


S*»« it 


7F07 


21 11 


7? 


LD 


HL.7P11 


Get Intercept address 


7F0A 


22 16 


40 


LD 


(401b ),HL 


Store in keyboard DCr 


7?0D 


E1 




POP 


HI 


Restore KL 


7F0E 


C3 2D 


40 


J? 


40^0 


Return to TRSDOS 


7F11 


DD E5 




POSH 


II 


Cave IX 


(F13 


E5 




1-USH 


HI 


Cave HL 


7F14 


2A 4b 


73 


LD 


KL, 17F46) 


Get delay count 


mi 


YC 




LD 


A.H 




7*18 


Bi 




CR 


L 


Count zero? 


/F19 


28 04 




JR 


Z.7P1F 


Branch if yes 


/F1B 


2U 




DEC 


HI 


Decrement delay count 


7Flt 


AF 




X0R 


A 


Return X'00' to requestor 


7F1D 


18 20 




JR 


/P3F 




If 1F 


DD 21 


48 yF 


LD 


IX, l?iS 


roint IX to corraar.d set 


7F23 


DD (7. 


00 


LD 


A, V 11+00) 


Get next character 


7F26 


CB 7F 




BIT 


7, A 


Is it the last? 


7P28 


28 0A 




JR 


Z.7F34 


Branch if no 


7?2A 


21 00 


n 


LD 


KL.0000 


Restore KE driver address 


7F2D 


22 16 


40 


LD 


(4016),HL 




7F30 


CB BF 




RES 


7, A 


Reset hi-orier tit of last 


7?32 


18 0E 




JR 


7F42 




TF34 


?1 25 


7P 


LD 


HL.7F25 


Update character pointer 


7*37 


34 




ISC 


(HL) 




7F33 


Ft 0u 




Ci 


0D 


<£••::-. >? 


7F3A 


20 06 




JR 


!Li,7P42 


branch if no 


7?3C 


21 00 05 


LI 


HL.0500 


Reset delay count to ^axlauE 


773F 


22 46 


7P 


LD 


(7F46),KL 


jtore upcated count 


7F42 


il 




PCP 


HL 


Restc.-e HL 


7F43 


DC E1 




POP 


IX 


Restore IX 


7F45 


C° 




RET 




Return to requestor 


7F46 


n w 








(Delay count; 


7F48 










(-"o-.aand set starts hi. re; 
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Expensive 




EXPENSIVE- The LNW 
System Expansion II comes with a 
full 32K of 200ns RAM, and built in 
RS232c 20 MA current loop serial interface. 
That's for starters, Next, consider our heavy gauge 
steel case, power indicator lamp, gold-plated 
connectors, FR-4 glass epoxy circuit board with 
solder mask and silk screen legends. Then there is 
the parallel printer port, screen printer port, real 
time clock, and extra heavy duty onboard power 
supply with over current protection, over voltage 
protection and thermal shutdown. If that's not 
enough then there is the floppy disk controller, 
guaranteed operation at a 4MHz CPU speed and 
our 6 month warranty. Every one of these features 
is STANDARD. This is true system expansion. 
You get every 'expensive' feature without 
spending more. 

CHEAP Our price is $399.95. Any way you 
compare, features or price, LNW's System 
Expansion II is the clear winner. The LNW 
System has been field tested for over two years 
with thousands of users. It works with any DOS. is 
100' i TRS-80 Model I compatible and it works 
'right out of the box*. If there is any doubt in your 
mind as to whether you should buy ours or the 
'other guys', just ask an LNW owner! 

WE ARE #/ - Number one in price, features, 
reliability, performance and delivery. LNW is 
committed to 'expensive" features and quality at 
reasonable prices. LNW is committed to support, 
thorough documentation, and reliability. 

LNW Research Corp. 

2620 WALNUT Tustin, CA. 92680 
(714) 641-8850 (714)544-5744 



made us the number one 
manufacturer of system expansion units 

and accessories for the Model 1 computer. 

EXPANSION OPTION - 8-inch drive capability 
is as easy as plugging in the LN Doubter 5/8 
option*. Now you can have any combination of 
single or double density, single- or double-sided, 
8"* and/or 5" disks on-line! 8 inch disk storage 
increased to 591,360 bytes - 77-track single-sided, 
double-density or 1,182,720 bytes - 77-track 
double-density, double-sided. 

The LN Doubter's unique 5/8 switch allows you 
to boot from 5- or 8-inch system disks and it's 
accessible from outside the interface. The $219.95 
LNDoubler .5/8 comes with a double-density disk 
operating system (DOS+ 3.3.9), complete with 
BASIC and utility programs... ready to run your 
software. 

Each of your present 40- track, single-sided 5-inch 
drives will store up to 184.320 bytes {formatted 
storage) - that's an 80% increase in storage 
capacity for only half the cost of just one disk 
drive. With three 8-inch double density, 
double-sided drives your Model I will have 3.75 
Megabytes of online storage that's more storage 
than a Model II or Model III! 
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RAM $18.99 



ONE YEAR GUARANTEE. INCLUDES RAM TEST AND INSTRUCTIONS 

Premium 16K high speed ram for TRS-80 MODEL lll/l. and COLOR COMPUTER 
MODEL 1 owners add 2 00 (or 2 dip shunts 

COLOR COMPUTER SOFTWARE 

SUPER "COLOR" WRITER 

At last!! Fast, full featured, character oriented word processing for the TRS-80TM 
COLOR COMPUTER and any printer FEATURES • 32K compatible • choice of 
display color • Key beep • help command • words typed & words left • tab key • 
repeat key • word wrap around • block move • duplicate & delete • global search « 
replace • quick paging ♦ paragraph scrolling • line scrolling. 

SPECIAL FEATURES automatic linking of cassette text files for hands-off 
continuous printing • unique movable window for viewing any part of the text. 

PRINT FEATURES send printer control codes, along with text, to printer • full use 
of printer's special features during normal printing • set margins, line length, line 
spacing, page length, and page spacing within the text for continuous printing • 
automatic centering • right justification • page numbers & titles 
TAPE" $29.95 ROMPAK* $39.95 DISK $49.95 

*T«p« I/O only, not disk compatible. 

SUPER "COLOR" TERMINAL all the features of VIDEOTEXTM a nd more 1 Allows 
COLOR COMPUTER to communicate with computers like TRS-80 MODEL lll/l & 
APPLE II etc. services like COMPUSERVE via MODEM or RS232 DIRECT 1 Features 

• upload & download basic programs • print or save data to tape • half & full duplex 
DOCUMENTATION ft TAPE $24.95 ROM PAK $34.95 

SUPER "COLOR" BUG examine & change memory contents m the color computer 

• step video display to any location including ROM • look at contents of 
ROMPACKS! • access high res. graphics & create & debug machine language 
programs. TAPE AND DOCUMENTATION $16.95 
SUPER "COLOR" SKETCHER turns the color computer into a drawing board. 
Supports 32K ram • save and load graphics to tape • create basic graphics 
programs • print graphics to R.S LPVII. EPSON MX 80 

TAPE AND DOCUMENTATION $19.95 

GAMES 

MODEL III 1 1 16K AND COLOR COMPUTER EXT/BAS 

FEATURE QUALITY GRAPHICS AND SOUND! 

ADVENTURE 3-PAK TAPE $24.95 

This TRILOGY OF 3D FANTASY GAMES takes you to the WORLD UNDER THE 
CIMEEON MOON. Engage in ritual combat with tooamoath. narthokc monsters 
and skilled warriors Advance in rank with play experience Then adventuie through 
DAZMAR'S UNDERWORLD OF DOOM to Ihe forbidden ruins of castle argaan 
Search for the eye of dazmar while avoiding the sorcerors intricate traps Survivors 
must then negotiate treacherous trails among the perilous peaks of Ihe ugrek 
moulains to the FORSAKEN GULTCH where the wicked idol awaits restoration. 

VEGAS 5 PAK TAPE $19.95 

The THRILLS OF A VEGAS CASINO at home Five action packed Vegas games lor 
up to four players. CASINO CRAPS «21 • ONE ARMED BANOIT • UP ft DOWN THE 
RIVER • KENO. Bank tracks players' winnings from game to game • realistic cards 

• regulation tables • boards • authentic sounds • lively graphics • official rules in 
each game 

COMBAT 3-PAK TAPE $24.95 

Three action packed two player games featuring iifehke graphics and sound of 
LASER FIRE. CANNONS and PHOTON TORPEDOES 

2-1-0 TANK COMBAT five terrains • the eipenenced arcade player can design 
combat scenario STELLAR BATTLE pilot a flex wing tighter at incredible speeds in 
enemy space taking out oonan tye fighters defending the imperial star fortress 
GALACTIC BLOCKADE maneuver your craft in a course that boxes your opponent 
but avoid cosmic debris and hostile space probes' 

MODEL III II SOFTWARE 

REQUIRES 16K MODEL III OR LEVEL II BASIC 
READ THIS! Add graphics to your programs in minutes or draw schematics, 
graphs, logos, pictures, etc. with graphics and lettering & save them as 
subroutines or programs 7 SUPER SKETCHER does more and works just like a text 
editor with graphics • image frames can be edited and animated on screen • 
generate, load & save graphics basic subroutines & programs • includes EPSON 
MX-80 & R S. LPVII graphics screen p'mt driver and more 

TAPE (TAPE I/O) $14.95 DISK (DISK AND TAPE I/O) $19.95 

SUPER WRITER word processing that combines the best features of other good 
word processors and those of the SUPER COLOR WRITER including automatic 
tape of disk file linking and tne mo.aDie window feature except BVY display See 
SUPER "COLOR ' WRITER for details' MODEL I LM needs lower case mod 
MODEL lll/l TAPE ft DOCUMENTATION $49.95 DISK $59.95 

AUTOMATIC MENU SYSTEM power up and automenu takes over Execute 
programs and command files, or LIST. LOAD, enter DEBUG. BASIC, or TRSDOS 
with single keystroke! Features options menu with library of commands 
MODEL III DISK ft DOCUMENTATION $12.95 

CODES for THE ELECTRIC PENCIL enter printer control codes within text file to 

send to smart printers Includes drivers for EPSON MX 80. CENTRONICS 737. MPI 

SERIES, and file to customize for other printers TAPE $14.95 

DISK INVENTORY for the MODEL III manage your disk programs A menu driven 
utility featuring sort & print by name disk, program type, extension etc 
MODEL III DISK $19.95 

TRS-80 is a Registered Trademark of Tandy Corp 
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KL50I 

SOFTURRE , 

sktchis /mm*n\ 



Master Charge VISA and COD 

accepted 

Allow additional 2 weeks foi 

personal checks 

When ordering specify computer type 

Add $3 00 shipping & handling 

MN Res add 5% sales tax 




P.O. Box 19096 612/927-0511 
Minneapolis, Minn. 55419 



li CLS :CLEAR308 :DEFINT C.X.Y 

22 QUS=CHRS(34) :MXS*"KAXIHUM 120" :DES«"BASIO**RUN**QUS 

38 IF PEEKUH48BH » PEEK ( iH48B2 ) "256 •. UH7EFE) THEN 98 : REM CH 

ECK MEMSIZE 

48 PRISTS 458, " • • MEMORY SIZE NOT SET - 32511 OR LOWER - RUN 

ABORTED **• :END 

58 DATA 229,42,22,64,34,43,127,33,17,127,34,22,64,225,195,45,64, 

221 

68 DATA 229,229,4 2,78,127,124,161,48,4,43,17 5,24,32,221,33,7 2,12 

7,221 

78 DATA 126,8,283,127,48,18,33,0,8,34,22,64,283,191,24,14,33,37 

80 DATA 127,52,254,13,32,6,33,8,5,34,70,127,225,221,225,281,8,8 

90 FOR X-(&H7K80) TO (&H7F47) :READ Y : POKE X,Y : NEXTX : REM POKE 

MACH LANC PROG 
108 Y=l :G0SUB 388 

110 PRINT "THIS PROGRAM CREATES AN AUTOMATIC DOS I PL ROUTINE , B 
Y BUILDING" 

120 PRINT "IT IN RAM BETWEEN 7F00 k 7FBF THE DOS 'DUM 

P' COMMAND" 

130 PRINT "IS THEN USED TO OUTPUT IT TO DISK AS A COMMAND ( '/CM 

D' ) FILE." 

148 Y=13 :GOSUB 388 

158 PRINT "USER MUST SUPPLY THE COMMAND SET TO BE USED AFTER BOO 

TING DOS ;" 

168 PRINT "ANY EMBEDDED <ENTER>'S SHOULD BE CODED AS •♦■ - FOR 

EXAMPLE ," 
178 PRINT "THE DEFAULT OPTION ( SUPPLIED IF YOU SIMPLY HIT <ENTE 
R> ) IS :-' 
160 PRINT TAB(22) DES 
198 Y=2E :GOSUB 380 

200 PRINT "NOW TYPE COMMAND SET ( "; MXS; " CHARACTERS - AS MAR 
KED ) :-" 

218 PRINT? 768, CHRS(31) ; STRINGS ( 1 28 ,".");" <--LlMIT" ; :PRINT? 76 
8,; 

228 LINEINPUT CSS :IF CSS-"" THEN CSS-DES 

230 CS = LEN(CSS) :IF CS<121 THEN CLS :PRINT? 384,; : GOTO 290 
240 FOR X'l TO 8 : REM REMIND USER OF MAX 128 
258 PRINT? 664, STRINGSdl," "); :GOSUB 280 

266 PRINT? 664, MXS; :COSUB 280 

270 NEXTX :GOTO 210 

280 FOR Y=l TO 158 : NEXTY : RETURN : REM DELAY LOOP 
290 FOR X-l TO CS 

306 CH-ASC(MIDS(CSS,X,D) :IF CH-43 THEN CH'13 : REM •♦"-<EN> 

310 IF X*CS THEN CH=CH OR (iH80) :REM SET H I -ORD BIT ON LAST 

320 POKE iH7F47*X,CH : REM POKE SUPPLIED COMMAND SET 

330 NEXTX 

340 PRINT "**• NOW TYPE THE FOLLOWING DOS COMMAND , EXACTLY AS S 
HOWK :- *•«"; 

35 PRINT "••• ( THE FII.ESPEC "IPL/CMD' MAY BE VARIED AND/OR EXP 
ANDED ) **»" 
368 PRINT "DUMP IPL/CMD t START-X ' 7FB0 ' , END-X ' 7FBF ' ,TRA-X ' 7FB0 ' ) " 

370 CMD'S" iREM RETURN TO TRSDOS 

380 PRINT :FOR X-B TO 127 :SET (X,Y) : NEXTX : RETURN 



Program Listing 2 



Points to Note 

There are several points to 
remember about this program. 

The maximum length of a 
command set is 120 char- 
acters—usually more than 
enough, but you can, if neces- 
sary, chain command files 
under DOS, i.e., have one invoke 
another. 

You cannot use a command 
file to reply to Input, Line input, 
or INKEYS statements con- 
tained within a Basic program. 

When running IPL/BAS, 
simply pressing Enter without 
typing a command set provides 
a default of Basic+ + +run" 
(i.e. load and execute Basic, 
reply Enter to the How Many 
Files? and Memory Size? 
queries, and then type Run. 
This allows the user to manual- 
ly key in the name of the pro- 
gram to be run). 

For Assembler/Machine 
Language Buffs 

Command files each contain 
a 72-byte program in Listing 1, 
which is POKEd into RAM be- 



tween X7F00' and X7F47'. The 
specified command set is 
POKEd into the next 120 bytes 
(X 7F48' to X7FBP). The area 
above X7FBF' is not used, be- 
cause it is overwritten on entry 
to Basic on a 16K machine. 

On initial entry, the keyboard 
driver address at X'40167 
X'4017' in the device control 
block is replaced by an inter- 
cept which effectively reroutes 
all subsequent keyboard re- 
quests to X7F1 1 '. The intercept 
routine at that address then 
passes the command set. one 
byte at a time, to the requestor 
(DOS or Basic). Before passing 
the last byte (identified by hav- 
ing bit seven set), the keyboard 
driver address is restored to its 
original value, thereby dis- 
abling the intercept and restor- 
ing the keyboard to normal 
operation. The delay loop 
prevents potential problems 
with functions that scan for 
Break during execution, as well 
as providing a little more time 
for you to observe what is 
happening! ■ 
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A MAJOR 

BREAKTHRU FOR 

Electronic Engineers 

Electronic Hobbyists 

Electronic Students 

Ham Operators 

A General DC-AC (steady state) Analysis 

of Any Circuit 

Will Analyze and Compute: 

• Node. Branch. Element. Voltages 

• Node. Branch. Element. Currents 

• Branch Power Dissipation 

• Magnitude and phase values and complete 
frequency response with graphic display 

• Modify any element in circuit for desired 
results 



A complete operational 

manual supplied 
comparable to IBM's 

EC A. P.' Program 
•A C Analysis Program 

51 49. 95 

•DC Analysis Program 

5*9.95 



To Order Write 

GAL Software Enterp. 
2304 N. 1st. Street 
Upland. CA 91786 




Do Not Send Cash in the Mail 



TRS80 is j trademark. il the Tatnlvr.-rp F. C A P is au... Irni.irk.il International J 
. Business M*< nines In. ^ V) 
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WHATS THE BEST WORO??? 

How many times have you racked your brain tor just the right word 
when writing an important letter, report, or article? How many limes have 
your ideas been misunderstood because the words you used didn't express 
your thoughts clearly and accurately? How many times have your turned in 
a report or mailed an important letter and then hours later kicked yourself 
for not having thought of the best and most accurate words to use at the 
time you wrote it 

Now. by using the remarkable new REFWARE THESAURUS programs. 
your computer can speedily find those words thai are on the tip of your 
tongue but that you can't quite remember at the moment. And it tells you 
how to spell them! 

Just slip a REFWARE THESAURUS disk into your dish drive. Then type 
in your sentences or paragraphs The computer will quickly oiler a variety 
of alternatives, retyping your sentences or paragraphs with substitute 
possibilities chosen from its multi-thousand word vocabulary It displays 
the revised sentences on your monitor or types them on your printer as you 
choose, so that you can mull them over and choose the one that most ac- 
curately expresses what you REALLY mean to say. 

Having helped thousands of writers learn to express themselves with 
clarity as editor of such publications as the World Book Encyclopedia, the 
Encyclopedia Americana, and the Reader's Digest Almanac and Yearbook, 
David C Whitney has drawn on decades of editorial experience to prepare 
the revolutionary REFWARE THESAURUS programs, bringing the speed 
and power of the computer to the aid of anyone who wishes to improve his 
writing or speaking 

In addition to the specific programs capable of substituting suggested 
alternate words for nouns and adiectives, REFWARE THESAURUS Builder 
enables engineers, physicians, lawyers, educators, business, physicists, 
chemists, and other professionals and specialists to develop their own in- 
dividually tailored computer vocabularies of hard-to-remember technical 
words 

REFWARE THESAURUS Builder 1.0 Order No 5001RT $149 95 

Series of eight utility programs enables the user to develop specialized 
computer thesaurus disk programs of hard to-remember technical words 
and their alternates for personal use Functions independently of Adjec- 
tives and Nouns programs 

REFWARE THESAURUS Nouns 1.0 Order No 2001 RT $39.95 

Draws on a vocabulary of 6.200 nouns to suggest alternates for the names 
of persons, places, things, and ideas thai you use in your writing and 
speaking 

REFWARE THESAURUS Adiectives 1.0 Order No. 1001 RT S39.95 

Utilizes 6,200 adjectives to assist you in choosing the most accurate 
modifiers to describe nouns and pronouns in your letters, reports, and 
speeches 

REFWARE THESAURUS User's Manual Order No. 6001RT $9.95 

Complete description of use of each of the above programs. Included at no 
additional charge with each of program disks listed above. If ordered 
separately, price of documentation is refundable upon receipt of order and 
payment for program disk. 

MINIMUM System Required TRS 80' Mod I or Mod III 48K with two disk drives. 
* A Trademark of Tandy Corporation 



REFWARE* Reference software division David C Whitney Associates. Inc 
PO Box 541. Chappaqua. NY 10514 ^374 

* A trademark of David C Whitney Associates. Inc 
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APPLICATION 



Will you have enough water when you need it most? 



Firestream 



George L. Gille 
220 Clayton 
MaryviHe. MO 64468 



To operate effectively, fire 
hose must be supplied with 
the right amount of water under 
the correct pressure. The 
TRS-80 Level II Basic program 
described here was created to 
calculate the fire engine pump- 
ing pressure needed to effec- 
tively supply water to a wide 
variety of firestreams. (The fire- 
stream is the entire water sup- 
ply system, including the water 
source, the fire engine pump, 
the fire hose and the nozzle.) I 
constructed the program as a 
training tool for volunteer 
firemen. 

The Firestream 

Firestreams are defined in 
terms of their volume of water 
flow in gallons per minute 
(GPM), and the operational 
pressure of the nozzle in 
pounds per square inch (PSI). 
Operational pressure is the 
velocity of the water flowing 
through the fire hose. The 



volume of water used is a func- 
tion of the size of the fire hose 
and the pressure at which it is 
operating. 

The type of fire hose nozzle 
used dictates the volume of 
water flow and the pressure 
which the firestream must sup- 
ply. Pump operators must be 
able to adjust the outoing pres- 
sure of their pump to meet the 
requirements of the nozzles 
they are supplying with water. 
They are able to determine the 
correct pressure by knowing 
the characteristics of the fire- 
stream they are operating. 

Nozzle Characteristics 

Fog nozzles and solid stream 
nozzles are used in fire fighting. 
Fog nozzles produce fast mov- 
ing jets of water that divide into 
drops with a definite cloud 
shape. They must be supplied 
with water pressure between 80 
and 100 PSI. The volume of 
water put out by fog nozzles is 
determined by the design of the 
nozzle and the size of the fire 
hose to which it is attached. 

The volume put out by solid 
stream nozzles may be cal- 
culated by the equation: 

Nozzle Output (GPM) = 29.7. D 2 ' v^P 

D is the nozzle tip diameter in 
inches and P is the water 
pressure (PSI) at the nozzle. 



Solid stream nozzles usually 
operate at pressures between 
40 and 60 PSI. 

Pressure Losses 

Pressure at the nozzle end of 
the firestream is always less 
than that measured at the 
pump, due primarily to these 
three factors: 

•The difference in height be- 
tween the pump and the nozzle; 
•The water flow resistance pro- 
duced by valves and stream 
splitters (wyes); 

•The friction between the water 
flowing through the hose and 
the walls of the fire hose. The 
fire engine pump operator must 
be able to calculate these pres- 
sure losses to correctly set the 
output pressure of the pump. 

Pressure loss due to a dif- 
ference in height between the 
pump and the nozzle usually 
happens when a fire occurs in 
the upper floors of a building. 
The pressure loss is one PSI for 
each 2.3 feet the water is moved 
above the pump. When pump- 
ing the firestream downhill, 
there will be a one PSI increase 
in pressure for each 2.3 feet dif- 
ference in height. 

If the firestream is split into 
two or more smaller streams 
with the use of a wye connec- 
tion a pressure loss of 5 PSI is 
assigned for each wye in the 
firestream. 



To determine pressure losses 
due to friction the fire service 
uses 2 V» inch diameter fire hose 
which is 100 feet long as the 
standard for calculation. To cal- 
culate the friction pressure 
losses in hoses with other di- 
ameters, determine the volume 
of water flow (Q) in hundreds of 
gallons per minute: 



o = 



Nozzle Output In GPM 
100 



The friction pressure loss per 
100 feet of hose is then 
calculated by the equation: 

FL = (20/ .Q| . HF 

HF is the fire hose diameter 
adjustment factor and FL is the 
friction pressure loss in PSI. 
The HF would have a value of 
1.0 when the friction loss for 
2Vi inch diameter fire hose is 
being calculated. The above 
equation is used when flow 
rates are greater than or equal 
to 100 GPM. If the flow rate in 
the firestream is less than 100 
GPM, the equation for the 
calculation of the friction loss 
becomes: 

FL = (2d 2 + V»Q) • HF 

This change in the equation is 
another adjustment for hose 
sizes less than 2% inches in 
diameter. 

Once the friction pressure 
loss for 100 feet of fire hose has 
been calculated, the total fric- 
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tion pressure loss may be 
determined by multiplying the 
calculated friction loss by the 
total length of fire hose in the 
firestream and dividing by 100. 
Note that the friction loss of 
each different diameter fire 
hose must be calculated 
separately. 

The total pressure loss in the 
firestream is the sum of the 
pressure losses for friction, 
height differences, and wye 
connections. After making the 
above calculations, the pump 
operator sets the pump output 
pressure for a value equal to 
the nozzle operational pressure 
plus the total pressure loss in 
the firestream. 

Sample Problem 

A fire is located about 20 feet 



above the street on the third 
floor of a building. The fire 
engine is located at a fire 
hydrant 500 feet down the 
street. The firemen have used 
600 feet of hose to reach the 
third floor. At the third floor the 
hose is split into two 150 foot 
long, V/a-inch diameter hoses, 
with a 1 '/? inch fog nozzle at the 
end of each of the hoses. The in- 
put into the computer program 
and the solution can be seen in 
Fig. 2. 

This firestream would re- 
quire a pumping pressure of 
190 PSI to supply the two 1Vi 
inch fog nozzles with a pres- 
sure of 100 PSI. You can see 
how this program simplifies the 
calculation of a proper pump- 
ing pressure in various situa- 
tions. ■ 



Firestream Program Listing. 



10 CLEAR 1000:CLS:PRINT STRINGS (64 , 191 ) 

28 DIM HS(7) ,HF(7) ,NS(5) ,NV(5,2) ,HT(3,2) ,CT(3,2) 

30 PRINT TAB( 21) : "VOLUNTEER FIRE FIGHTER' : PRINT: PRINT TAB(18)»"* 

* FIRE STREAM HYDRAULICS ••" 

48 FOR 1=1 TO 7:READ HS ( I ) ,HP ( I ) : NEXT I 

58 FOR 1 = 1 TO ?:READ NS ( I ) , NV( I , 1) ,NV( 1 , 2) : NEXT I 

68 PRINT:PRINT STRINGS (6 4 , 191 ): PRINT TAB(3 1) | "BY" : PRINT TAB(24); 

■GEORGE L. GII.I.E':PRINT TAB ( 23) ( "VOLUNTEER FIREMAN* : PRINT TAB(22 

) ;"MARYVILLE, MISSOURI " iPRINT: PRINT STRINGS (64 ,191) 

78 FOR 1=1 TO 78B:AS=INKEYS:NEXT I 

88 CLS:PRINT"THE METHODS OF FIRE STREAM HYDRAULICS CALCULATIONS 

AND DATA IN" : PRINT'THIS PROGRAM WAS TAKEN FR0M:"iPRINT 

98 PRINT" INTERNATIONAL FIRE SERVICE TRAINING ASSOCIATION" : PRINT" 

MANUAL NUMBER 281" 

188 PRINT"FIRE SERVICE PRACTICES FOR VOLUNTEER FIRE DEPARTMENTS" 

118 PRINTFIFTH EDITION: 1971 " : PRINT:GOSUB 738 

128 CLS:PRINT"PROGRAM DISCRIPTION: ": PRINT'THIS PROGRAM CALCULATE 

S THE ENGIN PRESSURE NECESSARY TO ALLOW" 

138 PRINT'A FIRE STREAM TO OPERATE PROPERTLY. THE PROGRAM ASSUME 

S THAT":PRINT"THE FIRE STREAM IS SET UP AS A REVERSE LAY, WITH T 

HE ENGIN AT" 

14B PRINT'THE ENGIN AT THE HYDRANT PUMPING WATER TO THE FIRE SCE 

EN OR":PRINT"PUMPING FROM A RESERVE TANK .": PRINT 

158 PRINT" YOU ENTER THE TYPE OF FIRE STREAM, STARTING AT THE PUM 

PING":PRINT"ENGIN AND ENDING AT THE NOZZLE. THE FIRE STREAM MAY 

BE SPLIT" 

16B PRINT'WITH THE USE OF A WYE.":PRINT 

178 PRINT"AI.I. WYED FIRE STREAMS ARE ASSUMED TO END IN THE SAME T 

YPE OF " :PRINT"NOZZLE" :GOSUB 738 

188 CLS: PRINT" ENTER THE DIFFERENCE IN ELEVATION BETWEEN THE ENGI 
N AND THE":PRINT"NOZZLE OR NOZZLES IN FEET." 

198 PRINT: PRINT "NOTE: YOU CAN ASSUME EACH STORY OP A BUILDING IS 
18 FEET.":PRINT 

208 INPUT'DIPFERENCE IN ELEVATION <FEET> =' j EL: EL»EL/2 . 3 

218 K=l:CLS:PRINT"NOW WE BEGIN TO ENTER THE NATURE OF THE FIRE S 
TREAM. ": PRINT 

22B PRINT'NOTE: THE FIRE STREAM IS RESTRICTED TO TWO WYE CONECTI 
ONS WITH":PRINT"A MAXIMUM OF THREE PROGRESSIVE HOSE SIZES." 

23B PRINT: PRINT" LET'S BEGIN I I I " : PRINTiGOSUB 738 

24B CLS:PRINT"ENTER THE TYPE OF HOSE :": PRINT: PRINT'NUMBER TYPE 

P HOSE" : PRINT STRI NGS (6 4 , 1 48 ) 

258 IF K>1 THEN 288 

26B FOR 1-1 TO (K-1):PRINT ( HT( I , 2) *1B8) j " FEET OF " (HS ( HT( I ,1) ) 

;" HOSE ALREADY ENTERED" : NEXT I 

278 PRINT STRINGS(63,148) 

28B FOP 1-1 TO 7:IF K=l THEN 32B 

298 FOR J=l TO 3 

300 IF HT(J,1)-I THEN 338 

318 NEXT J 

320 PRINT" "ill" - "|HS(I)>" HOSE" 

330 NEXT I 

340 PRINT STRINGS(63,140) :INPUT"ENTER THE NUMBER HOSE TYPE: " > HT 

(K,l) :PRINT:IF HT(K,1)>7 OR HT(K,1)<1 THEN PRINT"*""" ERROR **«* 

■iGOSUB 730IGOTO 240 

350 IF K=l THEN 39B 

368 FOR L-l TO K-1:IF HT ( L, 1 ) >HT(K , 1 ) THEN 380 

370 PRINT'YOU ARE INCREASING HOSE SIZE I I I I I " : PRINT: PRINT'PLEASE 

ENTER AGAIN." :GOSUB 738:GOTO 240 

3 88 NEXT L 

398 PRINT"ENTER THE FEET OF " , HS (HT (K , 1 ) ) ; " HOSE" : PRINT" IN THE F 

IRE STREAM.": PRINT 

400 INPUT'FEET OF HOSE = " ; HT(K , 2) : HT (K , 2) =HT(K , 2) /100 

418 CLS:PRINT"ENTER TYPE OF CONNECTOR AT END OF THE "|HS(HT(K,D 

) ; * HOSE: ": PRINT 

428 PRINT'NUMBER TYPE OF HOSE CONNECTOR" : PRINT STRINGS (64 , 140) 

430 FOR 1=1 TO 5:PRINT" "ill" = "jNS(I):NEXT I 

440 PRINT STRINGS(64,140) :INPUT"ENTER THE NUMBER OF THE CONNECTO 

R TYPE ";CT(K,1):IP CT(K,1)>5 OR CT(K,1)<1 THEN PRINT***** ERROR 

Program continues 




BASIC is w not nearly as slow 
as most programmers think. 

BASIC Faster and Better shows you how to 
supercharge your BASIC with 300 pages of 
fast, functions and 
subroutines. 

You wont find any trivial poorly designed 
check- book balancing' programs in this 
book- it's packed with useful programs. 

Tutorial for the beginner, instructive for 
the advanced. and invaluable for the pro- 
fessional, this book doesn't just talk. . . it 
shows how! All routines are also available on 
disk, so that you can save hours of 
keyboarding and debugging. 

The # 1 disk BFBDEM contains all the 
demonstration programs, and # 2 BFBLIB has 
all the library functions. 

BASIC FasterS Better is $29.95. and the two 
program disks are 319.95 each. 
Get the book and/or disks from your local 
IJG dealer and B. Dalton bookstores. 



m 
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Make 
waves 
in the 
German 

computer 

market! 







Advertise in 

CHIP 



The German-language computer market has an excep- 
tional sales potential. CHIP, the leading German 
magazine for desktop computers will help you to make 
this market your own. Over 65% of the CHIP readership 
deals with computers in their business or profession. In 
addition, the CHIP audience has made computing a hob- 
by for which it is willing to spend money. The German 
market for personal computing has grown by leaps and 
bounds since CHIP first appeared in 1978— proven by its 
paid circulation of 62,913*. Get yourself into the Euro- 
pean market today by advertising in CHIP. 

•IVW Auditing (ABC equivalent), 2nd quarter 1981. 



ft^yx 



TAKE ADVANTAGE OF THE BEST 
EXCHANGE RATES IN YEARS! 



For further information on advertis- 
ing, mechanical requirements and closing 
dates call: 

Piergiorgio Saluti 

International Advertising Representative 

603-924-7138 








WAYNE GREEN INC. 
Peterborough, N.H. 03458 



Program continued 

****":GOSUB 7 J 9: GOTO 410 
458 IF K=3 AND CT(K,1)=5 PRINT'MUST END IN A NOZZLE" : PRINT'PLEAS 
E ENTER AGAIN" sGOSUB 73B:GOTO 410 
460 IF K-3 THEN 480 

470 IF CT(K,1)=5 THEN K-K+l :CLS : PRINT'ENTER NEXT HOSE":GOSUB 730 
:GOTO 240 

480 IF CT(K,1)<>4 THEN S50 

490 CLS:PRINT"PLEASE ENTER THE REQUESTED CHARACTERISTICS OF THE 
SOLID STREAM" : PRINT'NOZZLE ON THE " ; HS (HT( K , 1) ) ; " HOSE.":PRINT 
500 INPUT'ENTER THE OPERATION PRESSURE OF NOZZLE IN P.S.I.'jP 
510 IF P>90 OR P<50 THEN PRINT"*** ERROR *** PRESSURE OUT OF USU 
AL OPERATION RANGE ***" : PRINT'PLEASE RECONSIDER" :GOSUB 730:GOTO 
490 

520 INPUT'ENTER TIP DIAMETER IN INCHES AS A DECIMAL" ;D 
530 Pl-SQR(P) :GP=29.7*D*D*P1:PRINT"N0ZZLE FLOW RATE = ")GPj" G.P 
•M.":GOSUB 730 
540 GOTO 560 

550 P-NV(CT(K,1) ,1) :GP»NV(CT(K,1) ,2) 
560 WP-5MK-1) iQ-GP/100 

570 G1-GP:GP=GP*( (K-l)*2) :IF GP<=0 THEN GP=G1 
580 FF-1:IF GP<100 THEN FF=0.5 
590 FOR 1-1 TO K 

600 CT(I,2)»HF(HT(I,1))*( ( 2«Q*Q) +FF*Q) *HT( 1 , 2) 
610 TL-TL+CT(I,2) 
620 NEXT I 
630 EP-P+TL+WP+EL 

640 CLS:PRINT"FOR OPERATION OF A " ; NS (CT(K , 1) ) j ' NOZZLE "tPRINT" 
AT ";P|" P.S.I.":PRINT"NOZZLE FLOW = ';G1;' GPM" : PRINT'FIRE STRE 
AM FLOW = "jGP;* GPM" 

650 PRINT'ENGIN PRESSURE REQUIRED = ")EP;" P. S. I . " : PRINT: PRINT'F 
RICTION LOSSES: " : PRI NT STRINGS (63 ,140 ) 
660 PRINT" ELEVATION LOSS - "(EL;" P.S.I." 
670 PRINT" WYE LOSS = ";WP;" P.S.I." 
680 FOR 1=1 TO K 

690 PRINT* ";(HT(I, 2)*100) ;" FT. OF " ;HS (HT( 1 , 1) ) ; " = ";CT(I,2) 
;" P.S.I." 
700 NEXT I 
710 GOSUB 730 
720 GOTO 830 

730 INPUT"<PRESS ENTER>" ;QS : RETURN 

740 DATA "1 INCH RUBBER" , 91 , "1-1/2 INCH RUBBER LINED", 13 
750 DATA "2-1/2 INCH RUBBER LINED", 1, "J INCH RUBBER LINED" , . 385 

760 DATA "4 INCH RUBBER LINED" , .09 , "4-1/2 INCH RUBBER LINED", 0. 

051 

770 DATA "5 INCH RUBBER LINED", 0.031 

780 DATA "1 IN. HOSE FOG NOZZLE" , 50 , 30 

790 DATA "1-1/2 IN. HOSE FOG NOZZLE" , 1 00 , 100 

800 DATA '2-1/2 IN. HOSE FOG NOZZLE" , 100 , 250 

810 DATA "SOLID STREAM NOZZLE", 0,0 

820 DATA "WYE',5,0 

830 CLS: PRINT'MEMORY - ";MEM:END 



HOW ACCEL2 WORKS 

TRS-80 Model I /III BASIC Compiler 

ACCEL2 uses a novel translation technique that keeps code growth clown and insures 
highest compatibility with BASIC source programs while giving huge speedups Only a 
carefully chosen subset of BASIC instructions is translated The non-compilable state- 
ments are left in the compiled program in their original source form and at run-time are ac 
tually given to the BASIC interpreter to execute Program How may flip into direct execution 
of the compiled machine instructions and then flop back to interpretation many times dur- 
ing execution 

Why Compilation improves performance 

•Name Resolution term given lo the process o! identitymg the value ot a variable qiven its 
name As a program runs the interpreter Duiids a dictionary consisting ol a Cham o! items, 
each containing a variable name data type and current value Fvery lime a variable is lo be 
resolved the interpreter must sequentially search this dictionary By contrast ACCF 1 2 bmlds 
the variable dictionary once at compile time and therealter can reler to the viable names by 
direct address with no run-time search 

'Line Resolution the interpreter has to take the line number loiiowmga GO 10 or GOSUB 
convert it to binary and then search the program sequentially lo !md the target '.me At 
compile time ACCtL? generates single machine instructions lor GOTO or GOSUB usmg the 
actual address ot the target line For the interpreter, both name resoiulion and line resolution 
get slower as the program gels more complex whereas 'or compiled code these two operations 
are independent ot program size or number ol variables 

"Computational Operations The interpreter must parse each statement every time linn the 
one byte codes that correspond to the operations, look ahead to the next operator to esiabiish 
the precedence rules and check tor data type mismatch and conversion Constants must be 
converted trom character strings to internal binary But under ACCt I 2 constants are converted 
and embedded right in the Z80 instruction stream and operations are translated once and lor 
all at compile lime into sequences ot calls lo ROM or the run time component INTFGER opera- 
tions are actually turned into directly executing straight-line £80 code" 

The result is a mixture of BASIC statements and machine language instructions usually 
not more than Vh-Vk times the size of the original but running much laster (can be 
50- 100 times as fast with some programs) 

ACCEL2 32K TRS-80 Model I / III Compiles selected subset in all variable types, local and 
global compilation options, oulput save to ES/F wafer, disk under TRSD0S NEWD0S 
NEWDOS/80 

$88.95 + $2.00 shipping 



Developed in Britain 
by Southern Soltware 



TBS 80 TRSQOSim Radio Shack 



Mastercharge/Visa 
CA add 6Vo 



AllfcNGELOERSOFTWARfc 
Box 117?) Mam Post Office 
San Francisco CA 94101 
1415)387-3131 
i Stringy/ Floppy lme«auon'nc NEWOOStmApparat Inc 
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MOD-II HARD DISKS 

AVAILABLE NOW 

WHY WAIT FOR RADIO SHACK 

Micro Mainframe now supports the Model-IP Computer system with our high quality add on 
Winchester disk systems. Each of the disk systems available offers the same high quality Error 
Correcting controllers used in our Model-I* and Model-Ill* systems. 

Features 

• 5 Megabyte to 120 Megabyte systems supported (formatted capacity), with total system 
capacities from 10 Megabytes to 480 Megabytes. 

• Oasis* operating system available (Model-II* only) 

• TRSDOS* compatible operating systems available (all models) 

• Model-I* and Model-Ill* unit prices include operating system. 

• Error Correction on all controllers for years of trouble free operation (up to four bit burst). 

• Simple interface to the host computer through one of our host adapters. 

• Models available soon for Apple* and other computer systems. 

• Support for more Winchester systems than any other manufacturer. 

System Pricing 
Removable Cartridge Winchesters 

MMF-100R1 Model-I or Model-Ill version $5350.00 

MMF-100R2 Model-II version $5395.00 

MMF-100A Apple Version $5350.00 

5 Megabyte Desktop System 
Prices Reduced 

MMF-3H, 48K system w/Floppy backup $5995.00 

Other Systems 

10 Megabyte Fixed Hard-disk systems begin at $5295.00 

120 Megabyte Fixed Hard-disk systems begin at $7995.00 

Model-IIP Floppy Controller w/installation kit $279.95 

Why become locked into a proprietary system from one manufacturer, when Micro Mainframe 
supports a total of 15 drive manufacturers. When a new drive becomes available, you need only to 
purchase that drive and controller to upgrade your system. The software and Host Adapter works 
with the new drive package, thus allowing minimum upgrade cost. 

Call for the location of your nearest Micro Mainframe Dealer. 
Dealer inquiries invited. 

MICRO MAINFRAME .« 

714 Alhambra Blvd. • Sacramento, Ca 95816 
(916)447-7048 

• Oasis is a Copyright til Phase One Systems. 

• Models I. II. & III arc Tandy trademarks. 
' Apple is a trademark of Apple Corp 
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GAME 



With sound yet! 



Hang Person 



HnnG-BQ 



HDl SO tftSY 



I Of gicsses mt 



I Or IKQNG aCSSCS LEFT -) 



J LFUl^. ALKftTY GUESSED I 



treSh 



Nathan Hilton 
669 West Kitchen 
Port Neches, TX 77651 

Tired of squeaky chalk boards and dusty 
fingers when playing hangman? 
Replace those noisy chalk boards with a 
CRT and far-out computer sounds. Now you 
and your computer can enjoy each other's 
company playing Hang-80 on the privacy of 
your own cathode ray tube. 

Hang-80 gets its sound from a utility 
called Super Sound by David G. Morr (May 
1980, 80 Microcomputing). This utility is easy 
to use and, with a little imagination, makes 
great sounds. 



wgrii to acss ---> 



for m cm hit <9( 



e_e_h_.t_e_ 
d 



Photo 1. 



Program Listing 



HANG-80 

BY: NATHAN HILTON 
30 * USES * SUPER SOUND' BY DAVID MORR 
40 ' SET MEM SIZE TO 32737 -16K RAM 
50 ' SUPER SOUND IS LINES 60-80, THEN "HANG-80" 

60 CLS:AD=32738:HI=INT(AD/256) : POKE16527 ,HI : POKE16526 ,AD-HI*256 
70 FORI=AD TO AD+28: READ DT: POKE I,DT: NEXT 

80 DATA 205,127,10,62,1,14,0,237,91,61,64,69,47,230,3,179,211,25 
5,13,40,4,16,246,24,242,37,32,241,201 
90 CLEAR300 

100 DEFINTA-Z:DEFSTRZ:DIMSK(15) :Q=256:RANDOM 

110 Q$=CHRS(191) :S$=" " : A$=Q$+STRING$(2,176) +Q$+S$+Q$+STRING$(2 , 
179)+Q$+S$+Q5+STRING$(2,131)+Q$+S$+Q$+CHR$(131)+STRING$(2,179)+S 
$+STRING$(4,176)+S$+CHR$(186)+CHR$(179)+CHR$(187)+CHR$(144)+CHR$ 
(170)+STRING$(2,131)+CHR$(171)+STRING$(31,32) 

120 A$=A$+Q$+" "+Q$+S$+Q$+" "+Q$+S$+Q$+" "+Q$+S$+Q$+STRING$ ( 2 
,176)+Q$+STRING$(6,32)+CHR$(181)+CHR$(176)+CHR$(184)+CHR$(149)+C 
HR$(170)+STRING$(2,176)+Q$ 
130 B$="Welcome to :" 

140 PRINTG460,""; :F0RI=1T012: L=L+5:PRINTMID$ (B$,I , 1) ; :U«USR(Q+L) 
: FORJ=1TO20 : NEXTJ ,1 

150 FORI=1TO2:U=USR(Q*70+RND(30)+10) : PRINT0460 ,STRING$ (12, 32) :FO 
RJ=lTO200STEP5:T=USR((U/70)+J) :NEXTJ:PRINT§460 ,B$:NEXTI 

Program continues 



Sound 

You need a small audio amplifier to hear 
the sound which comes out of the cassette 
output plug of your TRS-80 microcomputer. 

Before you do any programming, answer 
your computer's memory size question with 
32737 (16K machines). This allows Super 
Sound to be loaded into the top of RAM un- 
disturbed. 

Super Sound is found in lines 60-80. Line 
60 sets the USR address. Line 70 reads and 
POKEs the data in line 80 into the top of 
RAM. Line 80 is the data for the Super Sound 
utility. Every time you see a USR(), a sound 
will be produced. 

The Program 

With the exception of a gap here and 
there, you can Auto all the way through the 
program, making program typing a little eas- 
ier. Furthermore, after you type Run and hit 
Enter, you can forget the Enter key because 
you won't need it during the game. 

Here is how Hang-80 works: In line 100, 
variables A through Z are defined as in- 
tegers. Lines 1 10 and 120 create the opening 
block letters that are assigned to A$. Lines 
130-200 create letters and sounds. 

Lines 3110-3140 are data lines containing 
the instructions. The loop in line 240 reads 
the data so lines 260 and 270 can convenient- 
ly read and print the instructions with flying 
sounds. 

From 610 we GOSUB 2000. This is where 
the computer picks the word for you to 
guess at. Then we return and GOSUB 5000. 
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"You can count the words you enter 
yourself or let the computer count them for you." 



Lines 5000-5070 simply set up the playing 
screen. 

Lines 630 and 640 put the spaces on the 
screen. Lines 660 through 780 process the en- 
tries and put the letters in the mystery word. 

The first 29 data elements are the machine 
code numbers for Super Sound. The next 514 
data elements are the words the computer 
picks from for the player to guess. Finally, 
there are the 14 lines of instruction. There is 
a total of 557 elements of data. 

There is an alternative to typing 557 
chunks of data. Leave the first 29 data ele- 
ments alone. However, you can do what you 
want with the next 514. 

You can use a different number of words 
as long as you make some number changes 
in lines 240 and 2050. 

The number 543 in line 240 must be 
changed to account for the number of words 
you enter into the data lines. Simply add 
your number of words to 29 and enter that 
number in place of 543. 

in line 2050 change the RND (514) to read 
RND (your number of words) after the 
change. 

Counting 

You can count the words you enter your- 
self or let the computer count them for you. I 
found it easier to let the computer do the 
counting. 

After entering the program, execute the 
following line: RESTORE:FOR A=1 TO 
29.READ D$: NEXT A (enter). This gets you 
past the Super Sound so the next Read 
statement will read the first vocabulary 
word. Now execute the following line and re- 
member to use Shift @ to freeze the display 
when necessary: FOR A = 1 TO 1000-.READ 
D$:PRINT A;D$:NEXTA. 

Whenever you see "Welcome to Hang-80" 
pop up, hit the Break key to get out of the 
loop. Now look at the last word printed; it 
has a number to its left. That number is the 
number of words you now have in the com- 
puter's vocabulary. 

How to Play 

When Hang-80 is run, you must answer a 
few questions the computer will ask you. The 
playing screen will appear and you will have 
all the information you need to play the 
game. Printed at 797 you will see a row of 
spaces with a flashing arrow to the left of 
them. The spaces are actually a row of cur- 
sors. The number of the CHR$(95)s in the row 
is the number of letters in the word you are 
to guess at. All you do is hit a letter and the 
computer will put it in the row of spaces if 
the letter you hit is contained in the word. 
Otherwise it is counted as a wrong guess. 
You lose when you don't have any wrong 
guesses left.B 



Program continued 

160 FORI=lTO70STEP5:U=USR(Q*I+RND(30)+5) : FORK=1TO50/I : NEXTK , I 

171 PRINT§394,A$ 

180 FORI=255TO0STEP-5:F=F+5:U=USR(Q+I) : U=USR (Q+F) :NEXTI 

190 F=0:FORL=1TO3:FORI«100TO1STEP-2:F=F+L:U=USR(Q+I) :U=USR(Q+F) : 

NEXTI:F=0:NEXTL 

200 FORG=25TO100STEP25:FORI=1TO30:U=USR(Q+G) :NEXTI,G 

210 RESTORE: PRINT@768, "Do you want instructions?" 

220 W$ = INKEY$:U=USR(Q+RND(5)+30) : IFW$0"Y"ANDW$0"N"ANDW$0"y" AN 

DW$O"n"THEN220ELSEIFW$="Y"ORW$="y"THEN23 0ELSE400 

230 CLS:U=USR(Q*100+255) 

240 RESTORE : FORA=lT0543 : READD$ : NEXT 

250 FORA-20 TO 33 

260 READD$:FORB=lTOLEN(D$) : PRINTMIDS (D$ ,B, 1 ) ; : U«USR(Q+35+RND( 3) ) 

:FORG«lT03:NEXTG,B:U-USR(Q+5) 

270 PRINT:NEXTA 

280 PRINT@960, "HIT <9> TO CONTINUE"; 

290 PRINTS965," "; : FORA-1T05 : Z = INKEY$ :U=USR(Q+30) : IFZO"9"THEN N 

EXT ELSE 340 

300 PRINTe965,"9";:FORA=lTO10:IFZ<>"9"THEN NEXT ELSE340 

310 V=V+1:IF V>1000THENV=0:GOTO310: ELSE IF INT(V/4)«V/4 THEN 32 

0ELSE 290 

320 IF PEEK(16320)<>32 THENPRINT@960 , " " ; :GOTO290 -.ELSE PRINT89 

60, "HIT"; :GOTO290 

340 CLS 

400 K*640:PRINT:PRINT:PRINT:PRINT"Well you pick a (1)- easy ( re 

litive) ":PRINTTAB(17) "(2)- a little more dif f icult" ;CHR$(31) 

410 FORI = 1T02:E$=INKEY$:IFE$<>"1"ANDESO"2"THENNEXTELSEIFES-"2"T 

HENDF=0 :GOTO500 : ELSEDF=3 : GOTO500 

420 U=USR(Q+40) : PRINTER, CHR$( 191) ; : K=K + 1 : IFK-1022CLS : PRINTCHR$ ( 2 

3) "Hurry upl " :GOTO400ELSE410 

500 IFDF=3 THEN G$="EASY" ELSE G$="NOT SO EASY" 

610 CLS:GOSUB2000 

620 CLS:GOSUB5000:G$="" 

630 PRINT3797, ""; :LG=LEN(W$) : FORA=lTOLG: U-USR(Q+A*2) 

640 PRINTCHR$(95) j:NEXT 

650 N=RND(3)+2+INT(LEN(W$)/2)+DF:M=0 

660 IF LG=0 THEN7000:FORA=1 TO RND ( 10) +20 : Z«INKEY$: IPZ«""THEN NE 

XTELSE700 

670 PRINT0785," " ; : U=USR(Q+RND ( 5) +30) 

6 80 FORA=1TO3 0:Z=INKEY$:IFZ=""THENNEXTELSE700 

690 PRINTe785,CHR$(94) ; : U=USR(Q+RND( 5) +30) :GOTO660 

700 IF (Z<"a" OR Z>"z") AND Z<>"9" THEN FOR A=100 TO 1 STEP-10:U 

=USR(Q+A) : NEXT: GOTO660 : ELSEIFZ="9"THENCLS :U»USR (Q*7 5+44) : CLS: RES 

TORE:GOTO210 

730 FOR A=l TO LEN(G$) STEP 2: IF MID$ (G$ , A, 1) <>Z THEN NEXT:N«=N- 

1: GOTO740:ELSE PRINT8528 ,STRING$ ( 27 , 32) ; : U«USR(Q*127+255) :PRINT 

e528,CHR$(92) ;" LETTERS ALREADY GUESSED " ; CHR$ ( 92) ; : GOTO660 

740 M=M+1 

750 GOSUB1000:FOR A=l TO LEN (W$) : PRINTg860+A r Z ; :FORK=lT03 :NEXTK : 

PRINTS860+A," ";:IF NOT MID$ (W$ ,A, 1 ) =Z THEN NEXTA ELSE FORBB=lTO 

5:PRINT§796+A," "; : PRINT£796+A,Z ; : FORG-1T05 :U=USR(Q+ASC ( Z) ) :NEXT 

G:PRINT?796+A," " ; : NEXTBB: PRINTP7 96+A, Z ; : LG=LG-1 :N=N+1 : NEXTA 

760 G$=G$+Z+" ":PRINTe428,N:IF N=0THENGOSUB4000 : FORA=lT03 : PRINT 

e385,STRING$(23,32) > : U=USR(Q*100+50) : PRINTS385 , "# OF WRONG GUESS 

ES LEFT";:U=USR(Q*100+50) :NEXTA: FORY=47TO0STEP-2 : FORX«0TO127STEP 

9:SET(X,Y) :NEXTX:U=USR (Q+Y) :NEXTY : GOTO90 00 

770 PRINTe576,G$; 

780 PRINTg300,M;:GOTO660 

1000 FOR A=16157T016157+LEN(W$) :IF PEEK ( A) =ASC ( Z) THENGOTO660ELSE 

NEXT : RETURN 
2000 CLS:FORA=1TO60STEP10:FORL=20TO1STEP-5:FORR=1TO8STEP2:U=USR( 

Q+R+L+A) :NEXTR,L,A:PRINT"Would you like the words" : PRINTTAB ( 5) " ( 

1)- five letters and under" :PRINTTAB(5) " ( 2) - six letters and ove 

r":PRINTTAB(5) " (3)- both" 

2010 U=USR(Q*10 + 100) :FORA=1TO40:Z = INKEY$:IF ZO"l"ANDZO"2"AND Z 

<>"3" THENNEXTELSE2030 

2020 U»USR(Q+50): FORA=1TO30 : Z-INKEY$: IF ZO"l"ANDZO"2"AND Z<>" 

3" THENNEXT:GOTO2010:ELSE2030 

2030 IFZ="1"THEN U=USR(Q*100+44 ) : L=5 ELSE IFZ="2"THEN U=USR(Q*10 

0+44) :FORA=lTO20:NEXT:U=USR(Q*100+44) :L=6 ELSE L=0 : F0RA=1T03 : U=U 

SR(Q*100+44) :FORB=1TO20:NEXTB,A 

2040 CLS : RESTORE : F0RA=1T029 : READD$ : NEXT 

2050 W=RND(514) : PRINT0455 , "ONE MOMENT PLEASE" 

2060 FORA=lTOW:READ W$:U=USR(Q+A) :NEXT 

Program continues 
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Program continued 

2070 IF L=5 THEN IF NOT LEN(W$)<=5 THEN FORA=10TO1 STEP-1 :U=USR( 

Q+A) :NEXT:GOTO2040 

2080 IF L=6 THEN IF NOT LEN(W$)>=6 THEN FORA=10TO1 STEP-1 :U=USR( 

Q+A) :NEXT:GOTO2040 

2090 RETURN 

2900 DATA actinium, aluminum, americi urn, antimony , argon, arsenic ,ast 

at ine, bar ium,berkelium, beryllium, bismuth ,boron,bromine,cadmium,c 

ale ium, calif or nium, carbon, cerium, cesium,chl or ine,shromi urn, cobalt 

, copper , cur ium,dyspr os ium,einstei nium, erbium, europium 

2910 DATA fermium, fluorine, franc ium, gadolinium, gall ium, germanium 

gold, hafnium, helium, holm ium, hydrogen, indium, iodine, iridium, iron, 

k rypton, lanthanum, lawrenc ium, lead, lithi urn, luteti urn, magnesium, man 

ganese, mendelve ium, mercury, molybdenum, neodymi urn, neon 

2920 DATA neptunium,nickle,niobium,nitrogen ,nobelium,osmium,oxyg 

en, pa 1 lad ium, phosphor us, pi at inum, pi u ton i urn, po Ion ium, pot as si urn, pr 

aseodymium,promethium,protact in ium, radium, radon, rhenium, rhodium, 

rubibium, ruthenium, samari urn, scandium,selenium,sil icon 

2930 DATA silver ,sodium,stronti um,sul fur , tantalum, technetium, tel 

lur ium, ter bium, thall i um, thor ium,thuli urn, tin, titan ium, tungst en, ur 

an ium, vanadium, xenon, ytturbium, yttrium, zinc, zircon ium 

2940 DATA inconspicuous, inconstant , individually, indifference, inf 

orm, inject, insufficient , insulate, invasion, jam, jail , jeep, jelly ,ju 

nk, knock, knot, knapsack, knowledge, know, known, koala 

3000 DATA amazmen t , amandment , amoeba , ampl i f y , amulet , amuse , ad just , 

action, address, acknowledgement, accident, ace, apologize,bronco,bro 

nze, bristle, brook, brood, bump, bee, bunt , cactus, caboose, caddie, cand 

y, cap, capac i ty , cape, cen te r , cellophane, col eh rat i on 

3010 DATA centenial,clank,civilization,circus,clamber,clammy,cla 

m,circulatory,citizenship,city,claim,clot,cloth,close,clock,clin 

k, click ,climb,clever ,clothes,compound,complete,complaint , compile 

, compass ionate , compete ,comprehens ion , cat , condor , coon 

3020 DATA convent, coo, cook, cooler, cool ,cookie,convert,crunch,cru 

8h,crust,cuckoo,cue,cultivate,daunt,dead,deadly,dear,death,deal, 

dean, dealt, delve, demand, delete, dice,dif ferent , difficult, dig,digg 

er ,discord, disco lor ,dirty,down,draf t,d rain, drag ,eel 

3030 DATA electr ic, electromagnet , electricity, ell, elk, elves, el f ,e 

lement, entry, enter , equal, exalt, ex tend, explode, extra, express, fan, 

farewell, farm, fat, fate, fasten, father, fash ion, fit, fist, flake, flag 

,f iss ion, fork, fuss ion, geophysical, genie, germ, get, good 

3040 DATA habit, hailstone, hairpin, hall , halfway, hamster , hammock ,h 

ammer , handbag, handful, handle, happiness, hardware, harmony, harvest , 

haunted, helicopter, hold, hypocritical, identification, idle, igloo, i 

gnite, ill, imp, impact, imperial , impossibility, inch, indeed, indent 

3050 DATA lump, lug, low, lurk, lull ,1'ick ,match,mop, mater ial,melt,me 
sh, minnow, mirror , mint, mystery, nag , new, news, never , nickel , open, ope 
rate, ounce, other, our, oven, over, page, pale, palm, patch, patrol, peril 
,perfect,perk,perplex,pig,picture,piano,pierce,pigoen,piece,pie 
3060 DATA pliers, plow, plum, plug, plod, plot, ply, post, potent, potato 
Tprobe, pro, proceed, prof essor ,product,public, puff, pulp, puis, pulle 
y, quick, quilt, quite, quicken, quiz, rabbit, race, ray, reach, realm, rea 
1, read, refract, regular, request, run, rule, ruler , rug 
3070 DATA r ung, scan, scheme, sea t, sea r e, scar, set, sea, set ter , sew, sh 
ock, shook, shoe, shot, short, shore, si Ik, signature, significance, simp 
ly, simplify, skid, sketch, size, skate, sky, sole, soft, soda, softball,s 
pook, splash, spoke, splat ter, splinter, spontaneous, spoon 
3080 DATA spoil, sport, stalk, stand, star, stamp, standard, st one, stor 
m, stock, stocking, stockholder , stomach, stop, stork, stun, sub, subject 
, subscribe, submit, submarine, sweat, sweep, sweet, swell, swim, swimmer 
, swift, terror, terrific, terrible, than, thanks, timber 
3090 DATA tomb, ton, told, tone, tooth, tonic, top, trailer,tr a in, traff 
ic, tramp, translate, translation, transformer, transistor, trip, trim, 
t rot, troop, triumphant, trouble, unbend, unbound, uncommon, uncomf or t a 
ble, uncle, under, under stand, uphold, upkeep, us 

3100 DATA urban, verb, vein, watt, wave, way, wax, we, wear, weak, water ,w 
idth, wick, wig, will, wild, word, wonderful, wolf, wood, wooden, woodman, 
woodcraft, wool, woolen, write, wrong, wry, xylophone, yam, yacht, yap, ya 
rd, year, yarn, yellow, yong, zeal, zone, zero, zipper 

3110 DATA "WELCOME TO HANG-80 1 !"," I will think of a word and 
you will guess it one"," letter at a time.","l will display som 
e spaces that will represent the word you are to guess.", "The nu 
mber of spaces is the number of letters in the word." 
3120 DATA "You simply hit a letter, and if it is in the word I", 
" am thinking of, I will put it in the proper place"," in the ro 
w of spaces." 

3130 DATA "The spaces will have a flashing arrow pointing to the 
m. ," You will only have a certain number of wrong guesses to ma 
ke,"," ELSE you loose 1 I I 1 1 I 1 1 "," You win if you guess th 
e word before all your"," wrong guesses are gone!" 
3140 DATA" ---______ G00D L UCK ---------- 

4000 FORA«16157T016157+LEN(W$) :SK (A-16157) =PEEK(A) :NEXT:RETURN 
5000 PRINTTAB(8) ,A$; 
5010 PRINTei55,G$; 



Program continues 
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APPARAT OFFERS 

More bytes per buck! 







►pan 

tern and a id 80 tracK 

floppy drive to give you up to 733,440 

bytes of storage in a single volume. 

Mewdos/80 version 2.0 expands the 

capability of double density drives, 

so you'll have greater applicatic 

for your TRS-80* model I and 

Drives plug directly into an 
pansion interface (requires instal- 
lation of a double density control- 
ler) or the model III disk bus with 
our single volume cable so you 
can now have over 2 megabytes of 
storage on-line with standard 
mini-floppy diskettes. Each drive 
has up to 573 free grans, for a 
total of 1,719, on a maximum of 
three 80 track drives, which can be 
added to a TRS-80 model I. Model 
Ill's can have up to 4 dual 80's 
on-line (almost 3 megabytes). 

These drives can "read" standard 
35 or 40 track diskettes using 
Mewdos/80 version 2.0 which will 
allow skipping every other track. 
Drives come 
complete with 
case, power sup- 
ply and docu- 
mentation. The 
drives are priced 
at only $515 (Cat. 
Mo. 1-705, specify I or III). Mow, at 1424 
bytes per buck, it just might be the answer 
to your storage problems. Special — TWo 
dual 80 track drives only $999. 





Apparatlnc. 

440 1 So. Tamarac Parkway. Denver. CO 80237 1303) 74 I - 1 778 



"Off GO//YG SUPPORT FOR MICROCOMPUTERS' 



LET'S MAKE A 
DEAL 



LDOS 



Complete w/manual 8. latest updates 



Mod lor III 



$124.95 



LAZYWRITER 

Mod. I $118.95— Mod III $164,951 



EPSON MX1 00 

CALL FOR OUR LOW PRICE 



LYNX - Mod l/lll 

Includes — Autodial/answer 

cables & software $259.95 



MAXI MANAGER 

by Adventure International 

Model l/lll 48K Disk $79.95 



Proofreader Mod I 49.95 Mod III 59.95 

Proof edit Mod I or III 28.50 

Gramma tik Mod I 45.95 Mod III 55.95 

bySof! loois 



SENDFOHYOUHf-HEbCAf A| OG 
Nooeditcardsatthese low prices Add$1 50 on all Cod or 
ders Certified ck/MO'COD shipped immediately Please 
allow 2 weeks tor personal checks For extra last service 
phone in your CODorder Prices subject loch, inqe without 

notice NYS residents please add appropriate sales lax 

MpQttrrGrp.il Values t\ Prompt Delivery Why Not Try Us > 



MICRO-IMAGES 

146-03 25th Rd, Flushing, NY 11354 

|MonE>.U)AM'»PM(21 2) 445-7124 Sat 10 AM 5 PM 



Program continued 

5020 PRINT@257,"# OF GUESSES MADE" ,CHR$ (94) ; 

5030 PRINT@385,"# OF WRONG GUESSES LEFT" ,CHR$ ( 94) ; 

5040 PRINT§528,CHR$(92) ;" LETTERS ALREADY GUESSED ";CHR$ ( 92) ; 

5050 PRINT@76 8,"WORD TO GUESS — " ;CHR$ (94) ; 

5060 PRINT@960,"FOR NEW GAME HIT <9<"; 

5070 RETURN 

7000 PRINT@797,STRING$(LEN(W$) ,32) ; : FORA=1TO20 :U=USR(Q+RND(10) +2 

5): NEXT 

7010 PRINTI?797,"";:F0RA=1T0LEN(W$) : PRINTMID? (W$,A,1) ;:FORL=1TO10 

STEP5 : FORT=20TOlSTEP-5 : U=USR (Q+T+L) : NEXTT : U=USR (Q+L) : NEXTL : U=USR 

(Q+10+A) :NEXTA 

7020 IF V=l THEN 7030 ELSE V=l : F0RA=1T02: PRINT@797 ,STRING$(LEN (W 

$) ,32) ;:FORT=1TO20:U=USR(Q+T) : NEXTT: PRINT0797 ,W$; :FORT=1TO20 :S»U 

SR(Q) :NEXTT,A:GOTO7000 

7030 CLS:Q$="You guessed the word, so ":F0RA=1T0L 

EN(QS) :PRINTMID$(Q$,A,1) ; :U=USR(Q+A+220) : NEXT 

7040 PRINT"I guess you win. " :GOTO280 

9000 CLS : F0RA=1T02 : PRINT@390 , A$ ; : F0RT=4T01STEP-1 : FORG-1T08STEP2 : 

FORY=20TO0STEP-10:U=USR(Q+Y+G+T) :NEXTY:U=USR(Q+G+T+A) :NEXTG:U=US 

R(Q+T) :NEXTT:PRINT(?390,STRING$(LEN(A$) ,32) ; : F0RS=1T05 : U=USR(Q+S+ 

A):NEXTS,A 

9010 Q$="THE WORD WAS "+W$: PRINTG450 , " " ; 

9020 F0RA=1T0LEN(Q$) :PRINTMID$ (Q$,A,1) ; : U=USR(Q+20) :FORS=lT04:NE 
XTS,A 

9030 Q$="YOU LOSE AND "+CHR$ (162) +CHR$ (183) + 

" "+CHR$(181)+CHR$(180)+CHR$(149)+CHR$(149)+CHR$(151)+CHR$(171) 

9040 FORA=128+LEN(Q$)T0128STEP-l:PRINT(?A,MID$(Q$,A-127 f l);:U=USR 
(Q+A-50) :NEXT 

9050 PRINTI3704,""; 

9060 QS="WHEN YOU MADE TOO MANY WRONG GUESSES ," :FORA-lTOLEN(Q$) • 

PRINTMID$(Q$,A,1);:U=USR(Q+60):NEXT 

9070 Q$="YOUR "+CHR$(34)+"PART WORD"+CHR$ (34) +" LOOKED LIKE"+CHR 

v ( 94) 

9080 PRINT: FORA=lTOLEN(Q$) :U=USR(Q+A) :PRINTMID$ (Q$,A,1) ; :NEXT 
9090 FORA=16157T016157+LEN(W$) 

9100 P0KEA,SK(A-16157) :U=USR(Q+A) :U=USR(Q+RND( 20) ) :NEXT 
9110 GOTO280 



sin. 



COOSOL DISCOUNTS 



^78 



PRINTERS 



CPU— TERMINALS— SOFTWARE 



"COOSOL DATA LOGGER 




Epson MX80 854 1 0001 S499CAI I 

Epson MX70 8341-0005 S-3** CALL 

Epson MX80 GRAFTRAX 8541 8915 S&S9CALL 

Epson MX80 F T 8641-0001 S*99CALL 
Epson MX80F T GRAFTRAX 8541-0075 S&S^CALL 

Epson MX100 9624 0024 S-79?»CALl 
Epson cables and cards CALL 

NEC Spinwnter 5510 1 S2495 

NEC Spinwnter 5515 1 S2495 

NEC Spinwnter 5520-1 S2B80 

NEC Spinwnter 5525-1 S2950 

NEC Spinwnter 5530 1 S2495 

NEC Accessories ....... CALL 

ANACOM Parallel ANO50P Si 195 

ANACOM SERIAL ANC150SS1195 

Registered Trademark of Tandy Corporation 
'"FACTORY DIRECT 



ADDS COMPUTER SYSTEMS 

• MULTIVISION3 Step 3 516-019000 

• MULTIVISION3 Step 2 516-018000 

• MULTIVISION3 Step 1 516-017000 . 

• MULTIVISION2 516 020000 

• MULTIVISION 1 516-006000 . 

• ADDS ACCESSORIES & SOFTWARE 

ALTOS MTU'FLOPPY/HARDDISK 

• 8000-7MTU 1Mb FL 17 2MT 

HARD FLOPPY DISK 

208K RAM S&P-10 10Mt> 8 HARD DISK 

• 1Mb FL 17 2 MT 8000-10MTU .. . 

• 1Mb Floppy 8000-10D 

• l 2Mb Floppy 8000-10 

• AL TOS Accessories & Soltware 



$11,275 

S10 172 
S 9 070 
S 7 520 
S 3312 
CALL 




TELEVIDEO TERMINALS 

• 91 0C . S595 

• 920C . S 750 

• TELEVIDEO Accessories 



912C 
950C 



NEC COMPUTER SYSTEMS 

• NEC Computer PC -8001 A 

• NFC I O Unit PC 8012A 

• NEC I O Port PC-8033A 

• NEC DISK DRIVE PC8031A 

• NEC DISK DRIVE PC -8032A 

• NEC Gr Monitor JB 1201 

• NEC Col Monitor JC 1202 

• NEC Accessories & Software 



S 9616 

S 7.875 

S 7.438 

CALL 



S705 

S959 

CALL 



Si 056 
S 626 
S '52 
Si 056 
S 931 
S 220 
S 995 
CALL 



TRACTOR FEED. 88 COLUMN 

• HEAVY DUTY CONTINUOUS USE 

• 5 X / UP TO 10 X 14 CHARACTER DOT MATRIX 

• UPPER LOWER CASE 

• BIT PLOT GRAPHICS 

• SERIAL AND PARALLEL INTERFACES 



Part No. 

101B 80KE 



Price 
495 



Assembled 
& Tested 



COOSOL 48 COLUMN PRINTERS 
ARE AVAILABLE AT J355 



COOSOL CABLES 

Parallel $29 00 

Se f| al .. S29 00 

TRS 80 Model I" S69 00 



COOSOL, INC. P.O. BOX 743, ANAHEIM. CALIFORNIA 92805-0743 (714) 545-2216 
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SAVE/ 



on Software and Hardware for 

TRS-80 



SOFTWARE 

NEWDOS/80 version 2.0(speciry Model I or III) $149.00 

Flextext I $29.95 

Utilize the additional features of the 737/739 under 

Model I or III Scripsit* 

Flextext II $29.95 

Utilize the additional features of the NEC spinwriter 

under Model II Scripsit* 

Flextext 80 (available soon) 

Utilize the additional features of the MX-80 

under Model I or III Scripsit® 

Chextext $79.95 

Spelling checker for Model I and III word processing 
Microclinic $24.95 

The ultimate in memory and disk diagnostics 
Meal Master $24.95 

Meal planning and grocery shopping aid 
Sprint 80 $14.95 

Creates your own custom serial printer driver 
Professional Football Predictor $29.95 

Let your TRS-80 pick the winners 
Bionic Basic $74.95 

Expand your Model I disk basic features 
Interactive Business System $500.00 

An inventory control system for manufacturing 
Micro Accounting System $489.00 

The finest general business package we've seen 

HELP/CMO $14.95 

Adds "HELP" feature to NEWDOS/80 version 1.0 



MISCELLANEOUS 

Apparat's Data Separator $29.95 

16KTRS 80 or APPLE memory kits $19.95 

9 1 /2" x 1 1" blank white.tractorfeed paper.full box $24.95 
9V2" x 1 1" blank white.tractorfeed paper.half box $14.95 
14V2" x 1 1" green bar.tractorfeed paper.full box $34.95 
3V2" x 1 5/1 6" 'tractor feed mailing labels $1 9.95 

Model II add on drives (call for prices) 

Model II business software (call for prices) 

SERVICE CENTER SPECIAL 

Disk drive tune-up $29.95 

Complete-cleaning, alignment, and speed adjustment. 
With any tune-up you may purchase your choice 
1 box Verbatim diskettes $19.95 
BASF head cleaner $9.95 




APPARAT'S PROM BLASTER 

An eprom programmer for all 25 X X and 27 X X chips TRS-80* 
MOD I & III or APPLE $149.00 

Bus Extender with power source, enclosure and 
5 card slots $149.95 

Mini version with 2 card slots and no enclosure $69.95 



Apparat, Inc. 



NEW LOWER PRICES ON 
TANOON DISK DRIVES 

Complete with power supply, chassis & configured 
for TRS-80* Model I or III 
'Single sided 40 track $295.00 

• Dual 40 or Single 80 track $425.00 

• Dual sided 80 track $51 5.00 
Special -2 Dual sided 80s $999.00 



Model I DOS and drive 
package add $54.00 
Includes above drives and 
NEWDOS/80 version 1 0-the 
established DOS. 



MODEL III SUPER SYSTEM 

Approximately 2.1 megabates of disk storage using 2 dual 
headed 40 track drives internally and 2 dual headed 80 track 
drives externally. 

with NEWDOS/80 version 2.0 

same as above with only 2 single 
sided 40 track drives(no DOS) 

NOTE: These Model III computers contain Apparat installed 
disk drives and memory. They are warranted by Apparat, Inc. 
for 90 days. 

Attention Dealers: Call or write for information on our new 
dealer discount package. 




$3299.00 
$1895.00 



PRINTERS 

Call for our incredibly low prices on printers. 
All printers come with free cable. We carry: 
ANADEX CENTRONICS NEC 
EPSON OKIDATA DAISY WHEEL 





CABLES 




Printer cables 






$29.95 


(specify printer 


and TRS-80 Model) 


Disk Drive Cables 








2 Drive 






$29.95 


3 Drive 






$34.95 


4 Drive 






$39.95 


Extender Cable 






$12.95 


Special Cables 






(call for prices) 



More Savings 



MODEL I DOUBLE DENSITY PACKAGE 

Converts a standard TRS-80 Model I to Double Density. 

LN Doubler-NEWDOS/80 V.2.0 & box of 10 Verbatim Diskettes. 
$330.00 value for only $269.00 • LN Doubler alone $149 00 

DISKETTES 

Double density-soft sectored-replacement guaranteed-Hard 

Hole protected. (5'/.r only) 
Verbatim Datalife 514" 40 track 
Apparat's No Name 5'V' 40 track 
Verbatim Datalife 8" Model II 

FLIP SORT SPECIAL 

The ultimate file box filled with 

50 diskettes 5V4" 

Flip sort alone 



$2495 
$21.95 
$3995 



$119.95 
$29.95 



— rH 



On-going Support for Microcomputers' 



4401 S Tamarac Pkwy • Denver. CO 80237 • (303) 741-1778 • (800) 525-7674 

Scripsit & TRS 80 are a registered trademark ot Tandy Corporation 
Freight FOB Denver call for shipping charges Foreign Orders shipped Air Freight 



• See List of Advertisers on page 386 
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UTILITY 



Patches Plus for Level II Basic. 



A Tale of Two Drivers 



John T. Blair 
122 Dumont Ave. 
Norfolk, VA 23505 



I have developed two printer 
driver patches, one for Level II 
Basic, operating under either 
TRSDOS or Basic, the other for 
NEWDOS's EDTASM. The patch- 
es have the following features: 
They output a line feed after a 
carriage return (to enable print- 
ers requiring this feature), pro- 
vide for an automatic form feed 
after a given number of lines and 
enable the user to output a top- 
of-form from the keyboard. An 
additional feature, to be used 
with EDTASM, is a page header 
printed with the date and page 
number. 

Hardware or software may be 
used to cause a line feed on a 
carriage return. Either solution 
will work equally well, but soft- 
ware is simpler and less expen- 
sive. 

Program Listing 1 is a pre- 
drtver (executed before ROM 
printer driver) for Level II Basic 
and TRSDOS or NEWDOS. This 



program is loaded into the upper 
end of memory and must be pro- 
tected. To capture the printer 
driver, which is called from ROM 
by the various Level II and DOS 
print commands, change the ad- 
dress of the printer driver by 



modifying the printer Device 
Control Block (DCB). The DCB is 
located at 4025H-402CH, and 
the printer driver's Least Signifi- 
cant Byte (LSB) is at 4026H, the 
Most Significant Byte (MSB) is 
at 4027H. 



By altering the printer driver 
address in the DCB, program 
control is diverted to the pre- 
driver, lines 27-61. The address 
in the DCB is changed by the ini- 
tialization section of the pro- 
gram. (Note: Readers not using 











Program Listing 1 






00001 












00002 


t* 




* 






00003 


!* 




PATCH/TXT * 






00004 


;* 




* 






00005 


. * 




PRINTER PATCH FOR <LF> AFTER <CR> 






00006 


I* 




VERSION 1.0 






00007 


;* BY 


JOHN BLAIR WA40HZ k TON THOMPSON 






00008 


. * 




» 






00009 


;**•••••**•*••*•**••••*••*•*•**••**•••*•••••••*•••**••••* 






00010 












00011 


; 




INITIALIZATION 






00012 


1 


THIS 


SECTION LINKS THE RON PRINTER DRIVER ROUTINE 






00013 


', WITH 


THIS 


PROGRAM. ALSO THIS SECTION HILL GENERATE A 






00014 


; PRITECTION 


OF THIS PROGRAM TO DOS AND BASIC. THEN 






00015 


; RETURN TO 


DOS. 






00016 








PB00 




00017 
00018 
00019 




ORG 


0FE00H ;SOME DOS'S REQUIRE THE 
;TOP 128 BYTES OF MEMORY 


PE00 




00020 


INIT 


EQU 


$ 


FE00 


210FFE 


00021 




LD 


HL f START 


FE03 


22B240 


00022 




LD 


(40B2H),HL ;SBT PROTECTED MEMORY 


FEB6 


220640 


00023 




LD 


(40D6H),HL ; 


FE09 


22BA0F 


00024 




LD 


(4026) ,HL ; LINK PATCH TO PRINT DCB 


FE0C 


C32D40 


00025 
00026 
00027 
00028 




JP 


402DH ; RE-ENTER DOS 






















Program continues 
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disk should change line 22 to: 
LD(40B2)HL. This automatically 
sets protected memory for disk 
users. The address of the jump 
instruction in line 38 must be 
changed from 402DH to 1A19H, 
the warm start for Level II 
Basic.) 

Pre-driver operation is quite 
simple: It checks the character 
to be printed. If it is not a car- 
riage return, control is given 
back to Radio Shack's printer 
driver, located at 058DH. If the 
character is a carriage return, 
lines 42-45 output the line feed 
directly to the printer and in- 
crement the line counter. When 
the line counter indicates 54 
lines have been printed, the pre- 
driver executes lines 53-58 to 
generate a form feed. 

Willful Form Feeds 

The last feature resets the 
line-per-page counter, and out- 
puts a form feed at will. The shift 
@ sign, a printable character 
with no meaning as a Basic 
command, is used for this pur- 
pose. After a listing has fin- 
ished, the last page is usually 
almost filled. Enter LPRINT shift 
@ to reset the counters and top- 
of-form and to get the page out 
of the printer. This keeps the 
printer's counters and the soft- 
ware counters in sync. 

If your printer does not accept 
a form feed, OCH, use the op- 
tional form feed routine shown 
in Program Listing 3. Those us- 
ing Level II must protect 
memory on power up, then load 
the object program using the 
System call. After the program 
has loaded, enter a slash to ex- 
ecute the initialization that links 
the pre-driver to Basic. 

Readers using disk should 
put this in the automatic boot 
file on disk. This will cause the 
line feed on the carriage return 
patch to be booted every time 
the DOS is booted. You may now 
use all DOS and Basic com- 
mands that send output to the 
printer. 

Page Headers for EDTASM 

Program Listing 2 is a modifi- 
cation of Apparatus NEWDOS 
Plus EDTASM. The program 
provides: a line teed on carriage 
return; a way of resetting the 
counts and giving a form feed; a 



Prog/am continued 
















00029 


; 


THIS SECTION IS A PRE- 


-DRIVER THAT ALLOWS A 






00030 


; LINE- 


FEED UPON DETECTION OF 


A CARRIAGE RETURN. IT 






00031 


; ALSO 


WILL GENERATE A FORM-PEED AFTER THE DETECTION OP 






00032 


; THE 54TH CARRIAGE RETURN. A 


SPECIAL CHARACTER OF A 






00033 


f SHIFT 


\ USING THE LPRINT 


<SHIFT> §" COMMAND PROM 






00034 


j BASIC 


HILL RE 


-SET ALL COUNTERS AND GIVE A TOP-OF-PORH. 






00035 










PE0F 




00036 


START EQU 


s 




FE0F 


79 


00037 




LD 


A,C 


;GET CHAR TO BE PRINTED 


FE10 


FE60 


00038 




CP 


60H 


;IS IT A SHIFT * ? 


PE12 


2822 


00039 




JR 


Z, FRMFED 


; OUTPUT <FP> 


FE14 


FE0D 


00040 




CP 


0DH 


;IS IT <CR> ? 


FE16 


C28D05 


00041 




JP 


NZ,058DH 


;NO GOTO PRINTER DRVR 


FE19 


CDD105 


00042 


LF 


CALL 


05D1H 


; PRINTER STATUS CHECK 


FE1C 


C219FE 


00043 




JP 


NZ,LF 




FE1F 


3E0A 


00044 




LD 


A,0AH 


;SET OUTPUT CHAR = <LF> 


FE21 


32E837 


00045 




LD 


(37E8H) ,A 


; OUTPUT CHAR 


FE24 


DD7E04 


00046 




LD 


A, (IX+04) 


j GET LINE COUNTER 


FE27 


FE35 


00047 




CP 


53D 


;54 LINES YET ? 


FE29 


C245FE 


00048 




JP 


NZ,EXIT 


j NO. OUTPUT <CR> 


FE2C 


CDD105 


00049 


CR 


CALL 


05D1H 


;GET PRINTER STATUS 


FE2F 


20FB 


00050 




JR 


NZ,CR 




FE31 


3E0D 


00051 




LD 


A,0DH 


; OUTPUT CHAR ■ <CR> 


FE33 


32E837 


00052 




LD 


(37E8H) ,A 


.•OUTPUT LAST <CR> 


FE36 


CDD105 


00053 


FRMFED 


CALL 


05D1H 


; PRINTER STATUS ? 


FE39 


20FB 


00054 




JR 


NZ, FRMFED 




FE3B 


3E0C 


00055 




LD 


A,0CH 


;SET OUTPUT CHAR = <FF> 


FE3D 


32E837 


00056 




LD 


(37E8H) ,A 


; OUTPUT CHAR 


FE40 


OD360400 00057 




LD 


(IX+04) ,00 


; RESET LINE COUNTER 


FE44 


C9 


00058 
00059 




RET 






FE45 


C38D05 


00060 


EXIT 


JP 


058DH 


; OUTPUT <CR> 


FE00 




00061 




END 


INIT 




00000 TOTAL 


ERRORS 










00100 ;******************************************************** 






00110 


. * 






* 






00120 


. * 




OPTIONAL ■ 


"ORM FEED' ROUTINE * 






00130 


. * 






* 






00140 


•A******************************************************* 






00150 














00160 














00170 


;$ss$$$ss$$$$$$s$$$$ss$$s$$$ss$s$$$s$ss$ss$$s$$$$$$$s$s$$ 






00180 


;$ 






$ 






00190 


;$ 


NOTES : 










00200 


;$ 


1) THIS CAN REPLACE THE SECTION OF THE $ 






00210 


;S 


FORM 


FEED ROUTINE 


THAT OUTPUTS THE 0CH . $ 






00220 


;$ 


2) THE REFERENCE 


COUNTER (IX+03) IS 67 $ 






00230 


;$ 


LINES 


/ PAGE. THIS 


CAN BE CHANGED BY $ 






00240 


;$ 


POKING 


THE VALUE DESIRED, OR BY ADDING: $ 






00250 


;$ 


LD 


HL,4028H 


$ 






00260 


;$ 


LD 


(HL) ,XX 


$ 






00270 


;$ 


WHERE 


XX = THE t OF 


LINES/PAGE DESIRED $ 






00280 


;$ 


INTO THE INITIALIZATION ROUTINE 






00290 


;$ 






$ 






00300 


;$$$$$$S$$$$$$$$$$$$$S$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 






00310 














00320 










0000 DDE5 


00330 




PUSH 


IX 




0002 CD9P05 


00340 




CALL 


059FH 




FINE # LINES LEFT ON 






00350 










PAGE, AND OUTPUT AS 






00360 










<LF>'S. 


0005 DD3405 


00370 




INC 


(IX+05) 




INC PAGE COUNTER 


0008 DDE1 


00380 




POP 


IX 




INC PAGE COUNTER 






00390 










0005 




00400 




END 


. *** DELETE THIS LINE *** 


00000 


TOTAL ERRORS 















Program Listing 2 




00100 


. ******************************************************** 


00110 








00120 


. * 


ASMPTCH/TXT 


* 


00130 








00140 


. * 


PRINTER PATCH FOR <LF> AFTER <CR> 


* 


00150 


. * 


AND <PF> 


* 


00160 


. * 


FOR NEWDOS* S DISK BASED EDTASM 


* 


00170 


. * 




* 


00180 


. * 


BY JOHN BLAIR 6 TOM THOMPSON 


* 


00190 


1 A******************************************************* 


00200 








00210 


I************* DEFINATION OF LABLES ******************* 








Program continues 



80 Microcomputing, October 1981 • 327 



method to title and number a 
page; and inserts the date in the 
header 

This program will be added to 
the end of EDTASM. All refer- 
ences to the beginning of the 
text buffer must be changed to 
the new beginning of the buffer, 
the function of lines 350-600. 

Generating a line feed after a 
carriage return is easiest. Since 
NEWDOS makes use of a ROM 
call to access the printer driver, 
we need only change the ad- 
dress of the printer driver by 
modifying the printer Device 
Control Block (DCB). This is 
done in the initialization sec- 
tion. The printer driver's address 
is altered and program control is 
diverted to the pre-d river, lines 
610-1840. This section of the 
program checks the character 
to be printed to determine if it is 
a carriage return. If not, control 
is given back to ROM's printer 
driver located at 058DH. If the 
character to be printed is a car- 
riage return, the pre-driver out- 
puts the character: lines 
850-910 output the carriage 
return directly to the printer. 
Lines 930-1040 output the line 
feed, increment the line counter 
and check to see if 54 lines have 
been printed. If not, the charac- 
ter to be printed (carriage return 
0DH) is restored, and the pre- 
driver returns control to ED- 
TASM. When 54 lines have been 
printed, the pre-driver executes 
lines 1060-1150 to generate a 
form feed. 

There are two methods of 
generating a form feed. The first 
has the printer accept the ASCII 
form feed command, a 0CH. The 
pre-driver outputs a 0CH directly 
to the printer, then resets the 
line counter, increments the 
page counter and calls the 
routine to print the page head- 
ers. The second method is to 
call the form feed routine from 
ROM, which outputs line feeds 
by replacing lines 1090-1150 
with the alternate form feed 
routine (Program Listing 3). 

Printing the page header in- 
formation is more complex 
(lines 1380-1840). First, the 
header message is printed by 
the OUTSTR subroutine, then 
the page number is printed. The 
OUTSTR routine requires that 
the HL register contain the ad- 



Program continued 














00220 








2B00 




00230 OFFSET 


EQU 


2B00H 




7460 




00240 APPMSG 


EQU 


9F80H-OFFSET ; 


START OF APPARAT SIGN ON 


6000 




00250 ASMST 


EQU 


5500H+OFFSET j 


START OF RELOC. ASM2 


4029 




00260 LINCNT 


EQU 


4029H ; 


LINE/PAGE COUNTER 


7481 




00270 MSG1 


EQU 


APPMSG+1 




402A 




00280 PAGCNT 


EQU 


402AH ; 


PAGE 1 COUNTER 


058D 




00290 PRINT 


EQU 


5BDH ; 


ROM PRINTER DRIVER 


37EB 




00300 PRTR 


EQU 


37E8H j 


PRINTER ADDRESS 


05D1 




00310 STATUS 


EQU 


05D1H ; 


ROM PRINTER STATUS CK . 


0033 




00320 VIDEO 


EQU 


0033H t 


ROM VIDEO DISPLY 


58DA 




003 3 WARMST 
00340 


EQU 


5BDAH l 


REENTRY TO ASM2 






00350 ;** REPLACE START OF BUFFER IN EDTASM WITH NEW BEG ** 






00360 












00370 ; 


THIS 


SECTION REPLACES ALL 


EDTASM REFERENCES TO 






00380 ; THE BEGINNING OF TEXT BUFFER WITH THE BEGINNING OF THE 






00390 ; NEW BEGINNING OF TEXT BUFFER. 








00400 








8118 




00410 
00420 


ORG 


8118H 




8118 


21B876 


00430 


LD 


HL, DONE-OFFSET 




836A 




00440 


ORG 


838AH 




838A 


21B876 


00450 


LD 


HL, DONE-OFFSET 




8410 




00460 


ORG 


8410H 




8410 


11B876 


00470 


LD 


DE, DONE-OFFSET 




8707 




00480 


ORG 


8707H 




8707 


11BB76 


00490 


LD 


DE, DONE-OFFSET 




87DB 




00500 


ORG 


87DBH 




87DB 


21B876 


00510 


LD 


HL, DONE-OFFSET 




8850 




00520 


ORG 


8850H 




8850 


21BB76 


00530 


LD 


HL, DONE-OFFSET 




8A39 




00540 


ORG 


8A39H 




8A39 


21B876 


00550 


LD 


HL, DONE-OFFSET 




8A80 




00560 


ORG 


8A80H 




BA80 


21B876 


00570 


LD 


HI, , DONE-OFFSET 




8F27 




00580 


ORG 


8F27H 




8F27 


21B876 


00590 
00600 


LD 


HL, DONE-OFFSET 














00620 












00630 ; 


THE PRE-DRIVER IS CALLED 


INSTEAD OF THE ROM 






00640 ; PRINTER DRIVER. IT CHECKS FOR A <CR>, AND THEN OUTPUTS 






00650 ; A <LF>. IF 


CHARACTER TO BE PRINTED IS NOT A <CR> THEN 






00660 ; THE ROM PRINTER DRIVER IS USED 








00670 








A13A 




00680 
00690 


ORG 


0A13AH 


•OVERLAY TO RELOC. ASM2 






00700 ; 


THIS 


ADDITION TO EDTASM 


IS TAIL ENDED TO THE 






00710 ; PROGRAM. HOWEVER, EDTASM HAS BEEN BLOCKED MOVED TO 






007 20 ; START AT 8000H WITH LMOFFSET. 


EXECUTION OF EDTASM 






00730 ; WILL 


BLOCK 


MOVE IT DOWN TO 1ST 


NORMAT ORIGION OF 5500H. 






00740 












00750 ;>>>>>>>>>> 


OUTPUT ALL CHAR 


EXCEPT <CR> <<<<<<<<<< 






00760 








763A 




00770 START 


EQU 


S-OFFSET 




A13A 


79 


00780 


LD 


A,C 


;GET CHAR TO BE PRINTED 


A13B 


09 


00790 


EXX 






A13C 


CD3300 


00800 


CALL 


VIDEO 




A13F 


D9 


00810 


EXX 






A140 


FE0D 


00820 


CP 


0DH 


; IS IT A <CR> 


A142 


C28D05 


00830 
00840 


JP 


NZ, PRINT 


jJP TO ROM PRINTER DRIVER 






00850 ;>>>>>>>>>> 


OUTPUT <CR> 


<<<<<<<<<< 






00860 








7645 




00B70 OUTPUT 


EQU 


S-OFFSET 




A145 


CDD105 


00880 


CALL 


STATUS 


; CHECK THE PRINTER STATUS 


A14B 


C24576 


00890 


JP 


NZ, OUTPUT 


;IS IT READY? 


A14B 


79 


00900 


LD 


A,C 


; RESTORE <CR> 


A14C 


32E837 


00910 
00920 


I,D 


(PRTR) ,A 


.•OUTPUT <0D> TO PRINTER 






00930 j >>>>>> OUTPUT <LF> AND CHEC 


K LINE COUNTER <<<<<< 






00940 








764F 




00950 LF 


EQU 


S-OFFSET 




A14F 


CDD105 


00960 


CALL 


STATUS 


;IS PRINTER READY 


A152 


C24F76 


00970 


JP 


NZ,LF 




A155 


3E0A 


00980 


LD 


A,0AH 


;SET OUTPUT CHAR » <LF> 


A157 


32E837 


00990 


LD 


(PRTR) ,A 


j OUTPUT IT TO PRINTER 


A15A 


212940 


01000 


LD 


HL, LINCNT 


t POINT TO LINE/PAGE CNTR. 


A15D 


34 


01010 


INC 


(HL) 


j INC LINE/PAGE CNTR 


A15E 


7E 


01020 


LD 


A, (HL) 


/GET NEW VALUE OF CNTR 


A15F 


FE36 


01030 


CP 


54D 


;HAVE 5 4 LINES PRINTED ? 


A161 


C2B176 


01040 
01050 


JP 


NZ,EXIT 








01060 ;>>>>>>>>>> 


OUTPUT <FF> 


<<<<<<<<<< 






01070 








7664 




01080 FF 


EQU 


S-OFFSET 




A164 


CDD10! 


01090 


CALL 


STATUS 


; CHECK PRINTER STATUS 


A167 


C26476 


01100 


JP 


NZ,FF 




A16A 


3E0C 


01110 


LD 


A,0CH 


;SET OUTPUT CHAR » <FF> 


A16C 


32EB37 


01120 


LD 


(PRTR) ,A 


;PRINT IT 


A16F 


3600 


01130 


LD 


(HL) ,00H 


; RESET LINE/PAGE CNTR 


A171 


23 


01149 


INC 


HL 


/POINT TO PAGE CNTR 

Program continues 
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mDDEm-aa 

THE TRS-80* DATA COMMUNICATIONS SYSTEM FOR THE EIGHTIES 



Direct connects to your 
home telephone jack 
Installs in a minute 
Program swapping mode 
plus terminal mode 
All software included 




<k 



<bX 



**,% 






lb 



• No RS232C interface is 
required 

• Lowest price ever 



The MODEM-80 and your TRS-80 Model I Level 2 
disk or tape system make the perfect combination 
to maximize your data communications capabili- 
ties. 

This direct connect, auto dialing/answering 
modem will transmit programs and data between 
MODEM-80 equipped TRS-80 systems. In addition, it 
will transform your computer into a full-function in- 
telligent terminal. And, no RS-232C interface is re- 
quired, so tape-based systems do not need an ex- 
pansion interface. The result is the lowest priced 
data communications system of its type available 
anywhere. 

Program-swapping with your friends is a snap 
with the MODEM-80. Both machine-language and 
BASIC programs can be easily exchanged over the 
telephone line. And, accessing your favorite com- 
puter club bulletin board or any other Bell 103-type 
compatible time-sharing facility is no problem 
either. 

The TRS-80 to TRS-80 software, included with the 
MODEM-80, extends your system's BASIC language 
with 8 new communications-related functions. 
These can be easily incorporated into your own 
BASIC programs allowing, for example, "computer 
vs. computer" competitions. BASIC programs are 
also provided which support disk, tape and memory 
transfer of programs and data, including automatic 
line error detection and re-transmission. This ap- 
proach combines function with flexibility, reliability 
and ease-of-use. 



When operating in the intelligent terminal mode, 
you have over 35 functions from which to choose. 
These include 8 user-definable function keys, baud 
rate selection from 25 to 300, forward and backward 
buffer scrolling, parity control, full and half-duplex 
operation, disk and tape file load and save, auto- 
matic dialing, parallel printer support. . .the list 
goes on and on. 

You can install a MODEM-80 on your system in 
one minute. The ribbon connector plugs into the 
back of your keyboard or expansion interface. 
Power is provided by your computer's power module 
so no additional 110 V outlets are needed. An exten- 
sion cable with standard miniature phone plugs is 
included for direct connection to the telephone line 
and there is even a spare jack to plug in a phone, if 
desired. Since the TRS-80 bus is extended through 
the MODEM-80, you can leave the unit permanently 
connected and still plug in other devices as you ex- 
pand your system. 

The MODEM-80 complete with all software and User 
Guides is only U.S. $219.00** plus U.S. $5.00 for 
shipping, handling and insurance. We accept 
money orders, VISA and MasterCard. The 
MODEM-80 hardware has a 90 day manufacturer's 
warranty. 

INTRODUCING TOMORROW'S 
PRODUCTS— TODAY! 



master charge 






to order call 416-923-7961 anytime 

and ask for icrom's order desk 
®\b^> or write 

WftaX ICROM ENTERPRISES LTD. ^4 

Y^\y^\ 1240 BAY ST. -SUITE 505 

™ ' * ' TORONTO, CANADA M5R 2A7 



•Subject 


li 


Canadian 


rate 


hangc a 


I 


me of pure 


hase 






•TRS-80 


sa 






Iradema 


rkof 






Tand\ C 


orp. 




■ See List ol Advertisers on page 386 
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No. 5 «•!£&■* 


Program continued 




•A^^^CV"* 


A172 34 


01150 INC <HL) ;INC PAGE • 


^^ . 


A173 CD8F76 


01160 CALL PTPAGE ; PRINT PAGE HEADER 


A176 0E0D 


01170 LD C,0DH ;SET OUTPUT CHAR - <CR> 


A178 CD3A76 


01180 CALL START ;OUTPUT 3 <CR>'S TO 


A17B CD3A76 


01190 CALL START ;SEPERATE HEADER FROM 


A17E CD3A76 


01200 CALL START ;TEXT 


x\}Y & You ,ve Written 


7681 


01210 EXIT EQU $-0FPSET 


(\p~ State-of-the-Art Software- 


A181 79 
A182 C9 


01220 LD A,C ; RESTORE CHAR 
01230 RET 


We'd Like to Publish It! 




01240 

01250 ;****** COMMAND <SHIFT> § FOR EJECT ROUTINE ******* 


We're looking for SYSTEM software: 




01260 


DISK OPERATING SYSTEMS 




01270 } THIS ROUTINE USES A "<SHIFT> '■ TO REPLACE THE B 
01280 ; COMMAND. THE "<SHIFT> S" COMMAND WILL GIVE A FORM PEED 


MONITORS 




01290 i AND RESET THE LINE/PAGE AND PAGE # COUNTERS 


PROGRAMMER AIDS/UTILITIES 




01300 


LANGUAGES 


7683 

A183 212A40 


01310 EJECT EQU S-OFFSET 

01320 LD HL,PAGCNT ;POINT TO LINE/PAGE CNTR 


DATA BASE SYSTEMS 


A186 3600 


01330 LD (HL),00H j "<SHIFT> 9" SENT SO 


Then, sit back and collect your 
royalty checks. Write for our free 


A188 2B 


01340 DEC HL ; RESET PAGE COUNTER 


A189 CD6476 
A18C C3DA58 


01350 CALL FF 

01360 JP WARM ST ;EXIT TO WARM RESTART 


Programmer's Kit today! 




01370 




INSTANT SOFTWARE. INC. '* 




01390 


Submissions Dept. 




01400 ; THIS ROUTINE WILL PRINT THE PAGE t INFO 


Peterborough. NH 03458 


768F 


01410 ; ON THE PAGE. 

01420 

01430 PTPAGE EQU S-OFPSET 






A18P 218174 
A192 CDAA76 


01440 LD HL,MSG1 ; PT TO BEG OF PAGE HEADER 
01450 CALL OUTSTR > OUTPUT MESSAGE 




YOUR IDEAS IN 




01460 

01470 »»>>>> HEX TO ASCII CONVERSION FOR PAGE t <<<<<<<< 


ACTION 




01480 




01490 ; THIS SECTION MAKES USE OF THE HEX TO ASCII 






01500 ; CONVERSION IN ROM. THE 16 BIT HEX VALUE TO BE CONVERTED 


e*C 




01510 ; MUST BE STORED AT 4121H. AFTER THE CONVERSION THE *HL* 


*\lW£> 1 C 




01520 j REGISTER CONTAINS THE ADDRESS OF THE MOST SIGINIFICANT 




01530 ; DIGIT OF THE NUMBER. 


t\\VN^ ^t\V 




01540 


i\\\V - kVa0 1 


A195 3A2A40 


01550 LD A,(PAGCNT) ; GET HEX PAGE • 


TAJ* «,l\|X^ 


A198 6F 


01560 LD L,A 


\r vVuJN v # 


A199 2600 


01570 LD H,00H ; STORE PAGE COUNT INTO 


~t\WJ* x ^<\V 


A19B 222141 


01580 LD (4121H),HL ; CELL TO BE CONVERTED 


#»XwULV^ ^tlXstj 


A19E 3E02 


01590 LD A, 2 ;LOAD • TYPE FLG FOR INT. 


#%Wo^ *\uVS* 


A1A0 32AP40 


01600 LD (40AFH),A ; TO HEX INPUT 


twVj^ 1 avR^ 


A1A3 CDBD0P 


01610 CALL 0FBDH ; CONVERT, RESULTS ' HL ' 


X* vA^P- V 


A1A6 CDAA76 


01620 CALL OUTSTR ;HL PR TO STRING. OUTPUT 
01630 ; PAGE ft. 


#*" 


A1A9 C9 


01640 RET 

01650 

01660 ;******** OUTSTR ******** 

01670 

01680 | THIS SECTION OUTPUTS A STRING FROM MEMORY TO THE 

01690 j PRINTER. THE "HL" REGISTER MUST POINT TO THE FIRST 


ENCYCLOPEDIA 




01700 ; CHARACTER TO BE PRINTED. A 00H MUST BE THE LAST 

01710 ; CHARACTER. 

01720 

01730 OUTSTR EQU $-OFFSET 


FOR THE TRS-80* 


76AA 




A1AA 4E 


01740 LD C,(HL) »GET CHAR TO BE PRINTED 




A1AB 79 


01750 LD A,C ;SET UP TO BE PRINTED 


Wayne Green Books needs 


A1AC PE00 
A1AE C8 


01760 CP 00H 7 END OF STRING ? 
01770 RET Z » IF YES, RETURN 


your articles in the areas of: 


A1AF E5 


01780 PUSH HL 


A1B0 CD8D05 


01790 CALL PRINT /OUTPUT CHAR. 


Business, Education, Games, 


A1B3 El 


01800 POP HL 


Graphics, Hardware, Home 


A1B4 23 
A1B5 C3AA76 


01810 INC HL ,-PT TO NEXT CHAR 
01820 JP OUTSTR 


Applications, Interface, Lan- 


A1B8 00 


01830 

01840 DONE DEFB 00H ;THIS IS THE END OF THE 


guage, Tutorial, Utility, and 




01850 /PRINTER PRE-DRIVER. 


special interest areas such 
as the Model III and the color 
computer. The Encyclopedia 




01860 


01880 ;* BLOCK MOVE AND INITIALIZATION * 


01900 


is a living network of informa- 




01910 ; THIS SECTION IS WHERE THE ACTUAL EXECUTION 




01920 ; BEGINS. THIS SECTION WILL BLOCK MOVE THE EDTASM WITH 


tion for the TRS-80 user— be 




01930 j THE PRINTER PRE-DRIVER DOWN TO ITS ACTUAL EXECUTABLE 


| a part of it! Send manuscripts 




01940 f LOCATION OF 5500H. 
01950 


j to: 




01960 ;»>»>>>>> RELOCATE EDTASM <<<<<<<<« 




01970 




A1B9 F3 


01980 ENTRY DI 


Attn: Encyclopedia Editor 


A1BA 210080 
A1BD 110055 


01990 LD HL,8000H ;BEG. OF RELOC. EDTASM 
02000 LD DE,5500H ;MOVE EDTASM TO 


Wayne Green Books 


A1C0 01B821 


02010 LD BC,DONE-ASMST ;♦ OF BYTES TO BE MOVED 


Peterborough, NH 03458 


A1C3 EDB0 


02020 LDIR /MOVE IT 1 1 

02030 

02040 >»>>>>>>> GET DATE & INSERT IN HEADER MSG <<<<<<«« 

02050 




A1C5 210BA2 


02060 LD HL,DATE ;POINT TO SPACE AFTER 


A cassette or disk must accompany any articles 




02070 ; "DATE i - IN MSG2 


1 with program listings. 






•TRS-80 is a trademark of Tandy Corporation. 
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MODtt III 



FOR $175.00 



Vcs, double density is here! Two 40 track drives give you 368K of storage. And if thots not enough, four 80 
track drives will give you 1 .4 megabytes of on line storage, fill this with the added speed of double density 
operation, not to mention 80% more storage per diskette. 

No loss of your software library or conversion of your single density diskettes is necessary. DOSPLUS 3.3D 
reacts to the diskette. It will read single or double density with equal ease. It is not JUST a double density 
operating system, it is o double AND single density system. It is the first of it's kind. No one con offer you what 
we can! To change a disk to double density you need only format a double density disk, and then ON€ 
command (TRANSF6R), will bring over all your files. Very simple to use, but not necessary, because DOSPLUS 
will read them as they are now. Just insert single density diskettes and run (with our operating system) . The 
machine will know what you are doing without having to be told RNVTHING! 

If you want your computer to chain functions, then you need DOSPLUS 3. 3D (for example, from powerup you 
could have your machine call another computer, scan a data base for appointments, recording any that appear 
on your printer; and then load in our new BASIC, setting files and mem/size, and start your program so your 
secretary can go right to work) . UJith our BUILD, DO and fiUTO, oil of the preceding would be child's play. By the 
way, you could have also set the time ond date, looked at the directory of all your drives as well as checked 
the free space map (which tells you not only how much space you have on a diskette, but also where it is and 
what it is used for) DOSPLUS is a truly intellegent, easy to use operating system that gives you all your 
computer is capable of delivering. 

Vou probably guessed that for SI 75.00 what we ore doing is turning your Model I into a Model III. It's so 
easy anyone can do it in 10 minutes! UJhy spend $2,500.00 for a Model III when you can get the same 
computing power, with our kit, and NO SOFTUJRR6 CONVERSION, for only $175.00. Don't throw away your 
Model I. let us expand it! Move up to the world of double density. 

Vou will reap the benefits of our error-free software. No mirades. just plain hard work and a lot of testing by 
experts and novices alike. Test us and judge yourself. UJe guarantee you will be 1 00% satisfied. If you are the 
first to find a legitimate "BUG" in our software you will be reworded with o brand new $100 dollar bill. 

Vour systems disk will come complete with an all new single/double density disk editor called DISKZRP. and 
a BASIC program compressor called CRUNCH. Also included is PURG6, a utility to moke the mass removal of 
unwanted files from a diskette easy, and RCSTOR6. a program that makes recovering a dead file as easy as 
typing in a command line. TRANSFCR is just as it sounds, a program that moves all files (except systems) from 
one diskette to another. Single density to double or vice verso. CL€flflflL€ is used to zero data files on a 
diskette for a "clean slate". DISKDUMP is a new machine language sector display/modify program that works 
with filespecs instead of tracks and sectors. Used in conjunction with DISKZRP, you will hove more disk editing 
power than ever before, with less frustration than was ever thought possible. 

Vou will now be able to use all your DOS commands from our new BASIC with the CMD feature. And how 
about variable length records that really work, first time. €V€RV time! This' will allow you to use the ISAM 
programming technique for vastly improved handling of large data bases and lightning speed unheard of in 
BASIC. (ISAM stands for Indexed Sequential Access Method) 

Vou can create programs that will run on MOD III DOSPLUS. yes, 100% compatability. 

If inflated computing power without an inflated price tog is what you're after, contact us at the address 
below. 




$W&fflfflfrtM - ^384 

Specializing in the Tandy Line 



flffC* 




(305) 983-3390 



5846 Funston Street 
Hollywood, FL 33023 



CALL TOLL FREE FOR FAST SERVICE 

(800) 824-7888, OPERATOR 193 

FOR VISA/MASTERCHARGE/C.0.0 ORDERS 

California dial (800) 852- 7777 Operator 193 
Alaska and Hawaii dial (800) 824 7919 Operator 193 
TOLL FREE LINES WILL ACCEPT ORDERS ONLY! 

For Applications and Technical information can 
(305) 983-3390 or drop us a card 



H 



Dealers inquiries invited 



■See Lisl ol Advertisers on page 386 
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Program continues 



A1C8 CD7044 



A1CB 218074 
A1CE 3EA0 
A1D0 77 
A1D1 23 
A1D2 1100A2 
A1D5 EB 
A1D6 015000 
A1D9 EDB0 



A1DB 212F5B 
AIDE 3E60 
A1E0 77 
A1E1 23 
A1E2 118376 
A1E5 73 
A1E6 23 
A1E7 72 



A1E8 213A76 
A1EB 222640 



A1EE 0E16 
A1P0 CD4576 
A1F3 0E75 
A1F5 CD4576 
A1F8 0E18 
A1PA CD4576 



A1FD C3006F 



A200 20 
A20B 20 
A213 20 
A223 20 
A238 20 
A24B 00 
A1B9 
00000 TOTAL 



02080 
02090 
02100 
02110 
02120 
02130 
02140 
02150 
02160 
02170 
02180 
02190 
02200 
02210 
02220 
02230 
02240 
02250 
02260 
02270 
02280 
02290 
02300 
02310 
02320 
02330 
02340 
02350 
02360 
02370 
02380 
02390 
02400 
02410 
02420 
02430 
02440 
02450 
02460 
02470 
02480 
02490 
02500 
02510 
02520 
02530 
02540 
02550 
02552 
02554 
02560 
02570 
02580 
02590 
ERRORS 



4470H 



.•CONVERT DATE & STORE IN 
MSG2 



;>>>>>> MOVE HEADER MSG OVER APPARATE SIGN ON MSG <<<<< 



LD 

LD 

LD 

INC 

LD 

EX 

LD 

LDIR 

;»>>>> REPLACE 

LD 

LD 

LD 

INC 

LD 

LD 

INC 

LD 



HL,APPMSG 

A,0A0H 

(HL) ,A 

HL 

DE,MSG2 

DE,HL 

BC , 80D 



POINT TO APPARAT SIGN ON 
SET 1ST CHAR IN SIGN ON 

MSG TO MST TERMINATOR 
POINT TO NEXT CELL 



;BYTE COUNTER 

; MOVE MSG2 OVER APP. MSG 



" WITH ■ <SHIFT> § " <<<<<<<< 
HL,862FH-OFFSET ;ASM'S " B " COMMAND 



A,60H 

(HL) ,A 

HL 

DE, EJECT 

(HL) ,E 
HL 

(HL) ,D 



" <SHIFT> 9 " 
• B " — > ' <SHIFT> @ " 

PT LSB OF ROUTINE ADD 
jLSB OF "<SHIFT> §" ADD 
; CHANGE LSB OF CMD ADD 
;PT TO MSB 
; CHANGE MSB 



;>>>>>>> LINK PRE-DRIVER TO ROM PRINTER DRIVER <<<<<<<< 

LD HL,763AH ;"HL* = ADD OF PRE-DRIVER 

LD (4026H) r HL ;PATCH IN PRINTER DCB 
;$SS$$$$$$$$$$$$SSS$S$$$$SS$SSSSS$S$$$$$$$$SS$SSSSSS$$$SS 

;$ NOTE : THIS SETS HEATH H-14 TO 96 CHAR / LINE 

; $ DELETE OR CHANGE TO FIT YOUR PRINTER. $ 

; OUTPUT CHAR = <ESC> 

.•OUTPUT IT 

; OUTPUT CHAR = <LC U> 

; OUTPUT CHAR ■ <CTL X> 

;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 

JP 6F00H ; START EXECUTION OF ASM2 

;»>>»>>>> HEADER MESSAGE <<<<<<<<< 
DATE : ' 



LD 


C,16H 


CALL 


OUTPUT 


LD 


C,75H 


CALL 


OUTPUT 


LD 


C,18H 


CALL 


OUTPUT 



MSG2 DEFM 
DATE DEFM 
DEFM 
DEFM 
DEFM 
DEFB 
END 



* ;DATE INSERTED HERE 
NEWDOS PLUS' 

Z-80 ASSEMBLER' 
***** PAGE ■ 



00H 

ENTRY 











Program Listing 3 






00100 


.*****************««*****»***««*«******«»«***«**«**.«*••* 






00110 


" * 


• 






00120 


. * 


OPTIONAL 'FORM FEED' ROUTINE * 






00130 


■ * 


• 






00140 


,*************** ****************************** *********** 






00150 










00160 










00170 


;$$$$$$?$$$sss$ss$s$sss$ssssss$sssssssssss$s$$$sss$s$s$$$ 






00180 


;$ 


$ 






00190 


;S 


NOTES: 






00200 


;$ 


1) THIS CAN REPLACE THE SECTION OF THE § 






00210 


;$ 


FORM FEED ROUTINE THAT OUTPUTS THE 0CH. $ 






00220 


;$ 


2) THE REFERENCE COUNTER (IX+03) IS 67 $ 






00230 


;$ 


LINES / PAGE. THIS CAN BE CHANGED BY $ 






00240 


;$ 


POKING THE VALUE DESIRED, OR BY ADDING: $ 






00250 


>S 


LD HL,4028H $ 






00260 


;S 


LD (HL) ,XX $ 






00270 


iS 


WHERE XX - THE * OF LINES/PAGE DESIRED $ 






00280 


;$ 


INTO THE INITIALIZATION ROUTINE $ 






00290 


;$ 


S 






00300 


,$SS$SSsysssssssss¥ss«;-ssssss$ssssss$ssssssssssys«ss&?s 






00310 










00320 






0000 


DDE5 


00330 




PUSH IX 


0002 


CD9P05 


00340 
00350 
00360 




CALL 059FH ;FINE * LINES LEFT ON 
;PAGE, AND OUTPUT AS 
;<LF>'S. 


0005 


DD3405 


00370 




INC (IX+05) |INC PAGE COUNTER 


0008 


DDE1 


00380 
00390 




POP IX ;INC PAGE COUNTER 


0015 




00400 




END ; *** DELETE THIS LINE *** 


00000 TOTAL 


ERRORS 







dress of the first character to be 
printed, and that the last charac- 
ter be a 00H. OUTSTR gets the 
character pointed to by the HL 
register and compares it to 00H. 
If it is not a 00H, the ROM printer 
driver is called to output the 
character. When a 00H charac- 
ter is encountered, a return from 
the subroutine is executed 
without printing that character. 

The page number is stored as 
a hexadecimal value at address 
402AH, which is an unused cell 
in the printer DCB. The ROM hex 
to ASCII conversion routine is 
used to convert the page num- 
ber to a printable value. It is as- 
sumed a program listing is less 
than 255 pages, so only one byte 
is needed for the counter. The 
HL register is loaded with the 
hex value to be converted which 
is then stored at 4121 H. The hex 
to ASCII routine converts the 
value stored at 4121H and 
stores the results somewhere in 
memory. However, the HL regis- 
ter contains the address of the 
most significant digit converted. 
After the conversion, OUTSTR is 
again called to output the page 
number. 

Another feature included with 
the page headers is incorpora- 
tion of the date. When the DOS 
is booted, enter the date into the 
system by using the Date com- 
mand. Then when EDTASM is 
loaded, it will convert the date to 
ASCII and store it in the header 
message. This is done in the ini- 
tialization section. 

Finally, we need some way to 
reset the page counter and pos- 
sibly produce a top-of-form. To 
accomplish this, the B com- 
mand (return to Basic) is re- 
placed in the command lookup 
table by an @ . Then the reset ad- 
dress of OOOOH is changed to the 
start of the form feed routine. 
Again, this is accomplished dur- 
ing initialization. 

Initialization 

The initialization section has 
many functions. One important 
one is its ability to move ED- 
TASM down to 5500H where Ap- 
parat intended it to run. This is 
accomplished by lines 1960- 
2020. Next, the date is 
calculated and stored in the 
page header message area of 
memory by lines 2060 and 2080. 
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Replacing Apparat's sign-on 
message is handled by lines 
2110-2200. Apparat uses AOH 
as their end of string terminator, 
so the HL register is loaded with 
the starting address of their 
message. The accumulator is 
loaded with AOH and then 
stored at the address pointed to 
by the HL register. This pointer 
is then bumped, and the DE reg- 
ister is loaded with the starting 
address of the page header mes- 
sage. HL and DE are exchanged, 
to conform to the requirements 
of the LDIR instruction, and BC 
is loaded with the number of 
bytes to be moved. The LDIR in- 
struction actually moves the 
message into the old sign-on ar- 
ea. Finally, the B command and 
its associated jump address are 
replaced with the @ sign and 
the formfeed routine's address, 
and the printer driver's address 
in the DCB is replaced. 

Labels 

Many labels in the program 
have an offset of 2B00H 
because EDTASM was moved 



from 5500 to 8000H to enable us 
to work on it, save EDTASM and 
the patches. If it were left at 
5500H, any return to DOS would 
have overlaid another program. 
The program must be moved up 
to 8000H by using the LMOFF- 
SET program in NEWDOS. It will 
attach a short routine to the end, 
like the one in lines 1810-1850, 
followed by the jump in line 
2210. The coding between lines 
1850 and 2210 is not required for 
the printer pre-driver and will 
then be written over by EDTASM 
after it is executed. 

Once the program has been 
written and saved to disk, you 
must merge the two programs. 
Use LMOFFSET to move ED- 
TASM to 8000H, and resave it to 
disk. Then return to DOS. Use 
Load to put program into memo- 
ry (do not execute either pro- 
gram). Next load Tapedisk into 
memory, and save the programs 
from 8000H to A260H, with the 
entry point at Entry or A1B9H. I 
named the modified version of 
EDTASM ASM2 to avoid confu- 
sion as to which EDTASM is 
loaded.! 
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Do your own taxes like an expert 
with TAX/SAVER. 



TAX/SAVERS The tax help program 
for the layman and the professional. 

• Privacy. 

• Built-in tax aids. Answers questions like "Is my father my 
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GAME 



An empire in search of lost greatness. 



Star Colony 




John Beringer 
2729 West Sahara #2 
Las Vegas, NV 89102 



The morning is bright and 
clear. A few clouds dot the 
sky at the higher altitudes. It is 
a perfect day for a launch. 

To commemorate this great 
occasion, the Corps band has 
been borrowed from the World 



Air Force. The band's music, 
harsh and tinny in your ears, 
blares across the allo-concrete. 
Your chiefs and aides stand 
stiffly erect, impatient with all 
this pomp and circumstance. 

At last the music ends. There 
is the usual round of 
hand-shaking and well-wish- 
ing. When the farewells are 
done, you and your men board 
the shuttle. The craft launches 
and swiftly climbs to space 
where it mates with your enor- 
mous starship, the first to be 



built in a long time since the 
Great War, Interstellar War I, 
the war against the D'nim (see 
Star Guard in an earlier issue). 
It is only reasonable that 
humanity should make the long 
crawl back into space, you 
reflect during docking proce- 
dures. What is tragic is that 
it took so long for the Earth to 
recover from the ravages of IWI. 
Triumphant, yet with all her col- 
onies lost, Earth has had a hard 
time pulling herself up to her 
former level. Your ship (you 
have the privilege of naming it) 
is a gigantic vessel, built solely 
for exploration and recoloniza- 
tion. You are to guide her in 
reopening the space lanes and 
reestablishing the footholds 
Earth once had. 

Object of the Game 

The object of this game is to 
colonize and explore as many 
star systems as the player can 
in the time alloted to him. (The 
time is randomly determined at 
the start of the game.) Upon de- 
parture, you have 100 per cent 
operation power and a full 
stock of supplies, along with 
5000 prospective colonists in 
stasis. As power and supplies 
diminish, it will become neces- 
sary to replenish them. There 
are two methods of doing this. 
You can mine explored sys- 
tems for radioactive fuel ele- 



ments and raw materials for 
supplies, which takes away 
from mission time (with the 
poorer systems yielding less 
and requiring more mining time 
than the richer systems). A de- 
cision may be made as to 
whether or not the player 
should resupply completely. 
Also, fuel and supplies will be 
used up during the years that 
mining and refining are taking 
place. 

Another way to restock the 
ship is to revisit an established 
colony. If the colony is doing 
well, the members will gladly 
give you the supplies you need. 
A word of warning — if you take 
too much from the colony, you 
could tax the colony severely 
and cause it to fail. Obviously, 
the colonies to revisit are those 
which have high-yield concen- 
trations of raw materials. 

To establish a colony in a 
newly explored star system, the 
proper number of colonists 
(decided upon by the Captain) 
are brought out of stasis and 
sent down to the most hospit- 
able planet available. They are 
given supplies, and then left on 
their own. A return visit will 
show how the colony is faring. 
Any colony that has a popula- 
tion of 500 or more members is 
considered thriving and able to 
aid in resupplying the ship. 
Some star systems are so poor 
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in materials that they should be 
bypassed and not even con- 
sidered for colonization. Set- 
ting down colonists on these 
systems will be useless since 
they have almost no chance to 
survive and grow. 

If you run out of time, the 
game ends. If you run out of 
fuel or supplies, your crew may 
toss you out the air lock, as 
there is no rescue available 
from Earth. If you last to the 
end of your mission, your per- 
formance will be evaluated and 



your superiors on Earth will 
decide how to reward you (or 
punish you!). 

How To Play 

There are four general com- 
mands available to you: Map, 
Scan, Jump, and Status. Dif- 
ferent options are available 
within each command. 

Map displays all the star sys- 
tems within the range of your 
starship. Any attempt to ex- 
plore outside the designated 
area will result in the starship 



becoming lost or even des- 
troyed in some cases. An op- 
tion of this command is the 
History subcommand. If se- 
lected, all explored stars will be 
shown as an E and all colonized 
systems will be shown as a C. 
The starship is shown as an up 
arrow (t). This display allows 
you to see which stars you have 
visited and colonized. 

A second option of the Map 
command is called the 
Rangefinder. With this option, 
you can pinpoint a particular 



star on the map. By using the 
keyboard arrows, you move the 
rangefinder, " + ", onto a 
selected star. Then the spatial 
co-ordinates (x, y, and z) may be 
displayed, as well as the star's 
distance from your starship. 

Scan enables you to explore 
a star system, discovering such 
information as the number of 
planets in the system, the 
number of habitable (Terra- 
type) planets, the grade of raw 
materials available and floral/ 
faunal evolutionary levels rang- 



Program Listing. Star Colony 



SCAN, OR STATUS ";R$: IF 
•STATUS* GOTO5000ELSEGO 



2 CLEAR28B 

100 DATA 0,8,0, 488,-1, -1,-4,541, -4, 8,-8,468, -4,-1,16,532, -5,8,-1 

3,465,-5,2,5,337,-6,2,1,334 

182 DATA -6,-1,-19,526,-1,-6,14,861,8,-6,8,864,1,-6,10,867,2,-5, 

17,806,4,-3,-10,684 

104 DATA 5,-3,11,687,6,-1,7,562,3,0,-21,489,7,1,8,437,9,2,15,379 

,6,3,-2,306,-3,5,-18,151 

106 DATA -7,4,11,283,-9,1,0,389,3,-7,-18,937,5,-6,7,879,6,-7,-8, 

946,7,-7,-12,949,9,-4,-3,763 

108 DATA 7,-2,-7,629,7,5,-3,181,6,7,-2,58,-2,7,-2,26,8,5,8,184 

110 DATA SOL, ALPHA CENTURI , INNES STAR, AC 79, CC 658, LALANDE 

21185, WOLF 359, LUYTEN 68-28, BD 468, BARNARD'S STAR, BD 459, S 

IGNA DRACONIS, EPSILON INDI , KRUEGER 60, ROSS 248, BETA HYDRI, G 

ROOHBRIDGE 34, ETA CASSIOPEIAE, LUYTEN 726-8 

112 DATA LUYTEN 97-12, BD +58, ROSS 128, DELTA PAVONIS, 61 CYGNI 

, CD -39, CD -49, LUYTEN 789-6, CD -36, TAU CETI , EPSILON ERIDAN 

I, SIRIUS, RHO ERIDANI 

910 DIMST(32,5) :DIMST$(32,2) :DIMPL(32,3) 

915 SPS-* * 

1000 REM 

1018 CLS 

1020 INPUT*LAST NAME";NAS: IFNA$-""TBENPRINT"NEED A NAME. * iGOTOlB 

20ELSEIFLEN(NA$)>15THENPRINT'15 CHARACTERS OR LESS, PLEASE." :GOT 

01828 

1030 PRINT: INPUT 'YOUR SHIP'S NANE"|SH$: IFSH$«""THENPRINT"NEED A 

NAME FOR YOUR SHIP. " :GOTO1030ELSEIFLEN (SHS) >15TBENPRINT"15 CHARA 

CTERS OR LESS, PLEASE .' :GOTO1030 

1040 PRINT:PRINT"WELCOME ABOARD THE ":SH$r", CAPTAIN ";NA$r"l" 

1050 YE"RND(25)+35:PRINT:PRINT*YOU HAVE'; YEARS? "YEARS BEFORE YOU 

MUST RETURN TO EARTH. ": PRINT:PRINT"GOOD LUCK 1 " 
1070 REST0RE:F0RA»1T032:F0RB-1T04:READST(A,B) iNEXTB:ST(A,5) -0:NE 
XTA 

1075 FORA-lT032iREADSTS(A,l) sSTS(A,2) -" ." iNEXT 
1B80 PW-100:CL-5B00:SU-100:CR-4;SC$-"Y":EN$-"Y*:LA$-*Y*:SR-0:X«0 

:Y-0:Z-B:AD-48B:OV-2:IN-1:VI«B:ED-B:SD-B:LD«0:CD-2310:YR-0:N3$-* 
" :M4S-"" :M5$-"" :M6$-**:M7$-*" :C9S-CHR$(28) 
1085 PRINT'PRESS ANY KEY TO BEGIN." 
1098 IFINKEY$-""GOTO1090 
1100 CLS 

1120 PRINT896fl,CHR5(3B) ;:INPUT"MAP, JUMP, 
R$-"MAP* G0T02BBBELSEIFRS*"JUMP" G0T03BBB 
ELSEIFRS-'SCAN" GOTO48BBELSEIFRS- 
T0112B 

2808 IFMA-lTHENMA-fl:GOTO2100 

2010 CLS: FORN-1T032 : PRINT£ST(N, 4) , " . " i :NEXTNs PRINTgAD, " I " t : PRINT 

§968, "WANT STATUS OF VISITED STAR SYSTEMS? Y/N"; :GOSUB9050: IFR-B 

GOTO2100 

2015 PRINTe415,"SOL"i:PRINT8768,"l - SHIP" ; : PRfNT«832, "E - EXPLO 

RED ONLY";:PRINTSB96,"C - COLONIZED"; 

2020 FORN=lT032sIFST$(N,2)-"." NEXTELSEPRINT0ST(N,4) ,ST$lN,2) j :N 

EXT 

2825 PRINTeAD,"!"; 

2100 IFPEEK(14338)-64GOTO2100ELSEPRINTS960,CHR$(30)J8PRINTM60," 

WANT RANGEFINDER? Y/N" ; -.GOSUB9050 : IFR-0GOTO8000ELSEPRINTM6«,CHR 

S( 30) I :PRINT«960, "KEYBOARD ARROWS HOVE RANGEFINDER +. KEY I FO 

R INFORMATION.") 

2105 NA=AD 

2118 LA«NA:LS-PEEK(NA+1536B) :PRINTSNA,*+* j 

2128 IPPEEK(14338)»64THENGOTOBB00ELSEIFPE£K(14338)-2GOTO2600ELSE 

W-PEEK (14400) :IFW«8GOTO2200ELSEIFW-16GOTO2300ELSEIFW-32GOTO2400E 

LSEIFW-64GOTO2500ELSEGOTO2120 

2200 IFNA-64<BPRINT#960,CHRS(30) ; :GOSUB90B8:GOTO2120 

221B NA-NA-64 

222B POKELA+15360,LS:GOTO2110 

2300 IFNA+64>959GOSUB9000iGOTO2120ELSENA-NA+64:GOTO222B 

2400 IPNA-K0GOSUB9000:GOTO2120ELSENA-NA-1:GOTO2220 

2500 IFNA+1>959GOSUB9000:GOTO2120ELSENA-NA+1:GOTO2220 

2688 FORN-1TO32:IPST(N,4)-NAGOTO2650ELSENEXT .. 

2610 GOSUB981B:PRINTg768,"NO STAR THIS LOCATION. i:M55- :Mb$« 

2650"gOSUB9010sM5$-ST${N,1) + " SYSTEM" :XX«ST(N,1) :YY-ST(N, 2) :ZZ 
-ST(N,3) :GOSUB2653:GOTO2670 

2653 I FSGN ( X ) -SGN ( XX ) THENDX -X-XX ELSEDX -ABS ( X ) + ABS ( XX ) 

2654 IPSGN(Y)-SGN(YY)THENDY«Y-YYELSEDY-ABS(Y)+ABS(YY) 

2655 IFSGN (2) -SGN ( ZZ) THENDZ-Z-ZZELSEDZ-ABS ( Z) +ABS ( ZZ) 

2660 DI-SQR(DX[2+DY(2+DZl2)sR£TURN _--.-■,■ ,,, * . 

2670 M6S-"X, Y, I: ' * STRS(ST(N,1) ) + ", + STRS (ST (N, 2) ) + r 
" * STRS(ST(N,3)):H7S-"DISTANCE- " + STRS(DI) ♦ LY . " : PRINT876 
8,M5Si:PRINTS832,M65»:PRINTe896,M7S|:PRINTe968,CHRS(38) ;:PRINT89 
68, "KEY 'N' IF DONE ELSE MOVE RANGEFINDER. *» sGOTO 2120 

3000 IPPW<8THENPRINT"N0T ENOUGH POWER LEFT TO JUMP AGAIN, CAPTAI 
N.":GOTOB000ELSEIFC9$«CHR$(10)THENGOTO3010ELSECLS 

3001 IFH5$><"" PRINTM5S:PRINTM6$:PRINTM7$ 
3005 GOSUB3010:GOTO302S 

3010 PRINT'CURRENT LOCATION OF THE "|SH$:" - " I : FORN-1T032: IFAD- 



CO-ORDI NATE * j YD : DD-YD : GOSUB 95 : I PR-0GO 
CO-ORDINATE" ; ZD:DD-ZDiGOSUB9500 : IPR-0GO 



ST(N,4)ANDZ-ST(N,3)THENPRINTST$(N,1) |" SYSTEM "ELSENEXTNz PRINT" IN 
DEEP SPACE' 

3020 PRINT" X"," Y"," Z":PRINTX,Y,Z:IPENS-*Y" THENMX-7.5 

3021 RETURN 

3025 PRINT "WANT TO JUMP? Y/N": GOSUB 9B5B : IFR-0GOTO3999 
3030 INPUT'DESTINATION X CO-ORDINATE" ;XD:DD-XD:GOSUB9500 : IFR-0GO 
TO3030 

3033 INPUT'DESTINATION 
TO3033 

3036 INPUT'DESTINATION 
TO3036 
3038 XX-XD:YY-YD:ZZ«ZD:GOSUB2653 

3040 I PDK-MXGOT03 060 ELSEPRI NT "DISTANCE TO JOMP IS* »DI | "LIGHTYEA 
RS.*:IPMX<7.5THENPRINT*OUR ENGINES ARE DAMAGED, CAPTAIN, AND WE 
CAN ONLY JUMP*»MX:PRINT"LIGHTYEARS. ENTER EXACT CO-ORDINATES TO 

JUMP.":GOTO3025 

3041 PRINT* THIS IS" ;DI-MX; "LY GTR THAN THE MAXIMUM SAFE DISTANCE 
"i PRI NT 'SHALL WE RISK OVERJUMP, CAPTAIN? Y/N* :GOSUB9050: IFR-1GO 
TO3050 

3042 PRINT'SHALL WE SET COURSE AND JUMP AS FAR AS WE CAN SAFELY? 
Y/N* IGOSUB9050 : IPR-0GOTO3025ELSEDX-0 :DY-0 :DZ-0 :GOSUB9300 

3043 IFX-XD<0THENDX»DX+IN:X-X+INELSEIPX-XD>0TBENDX»DX-IN:X-X-IN 

3044 GOSUB9250:IFR-1GOTO3048 

3B45 IPY-YD<0THENDY-DY+INzY»Y+INELSEIFY-YD>0THENDY«DY-IN:Y»Y-IN 

3046 GOSUB9250:IFR-1GOTO3048 

3047 IPZ-ZD<0THENDZ-DZ+IN:Z-Z+INELSEIFZ-ZD>0THENDZ-DZ-IN:Z-Z-IN 

3048 GOSUB9250:IPR-0GOTO3043ELSEGOTO307fl 

3B50 GOSUB9300:OV-DI-7.5:IFOV>1BTHENRI-2ELSEIFOV>5THENRI-3ELSEIF 

OV>2THENRI-4ELSEIFOV>0THENRI-5 

3852 0V=RND(RI):IF0V>1THENPRINT:PRINT"WE MADE IT! *: PRINT :X-XD: Y- 

YD:Z»ZD:GOTO3070ELSEFORN-1TO200:NEXTN:PRINT*CAPTAIN1 WE HAVE OV 

ERJQHPEDI " 

3053 X-RND(22) :Y-RND(18) -1: Z-RND(41) -21: IFX<24ANDY>11THENGOTO305 

3854 IFX<22ANDY<15THENGOT03B56ELSEPRINT:PRINT:PRINT*SCANNERS IND 

ICATE SPATIAL TIDAL FORCES INCREASING BEYOND OUR BULL'S ENDUR 

ANCE. WE ARE BEING RIPPED APARTI * :FORN-1TO1500 «NEXTN:GOSUB9200 : 
CLS:FORN-1TO300:NEXTN . _ 

3055 PRINT'SO MUCH FOR THE '; SB IPNAS: PRINT "AND HER CAPTAIN I *: PRI 
NT: END . 

3056 PRINT:PRINT'WE'RE LOST, CAPTAINI ' :PRINT:X-X-lltY-Y-7sGOTO30 
78 

3060 IFX-XDANDY-YDANDZ-ZDTHENPRINT*NO JUMP WAS MADE - ZERO DISTA 

NCE.':GOTO3025 

3063 PRINT'DISTANCE IS*|DI;*LY - A SAFE JUMP. SHALL WE JUMP? Y/N 

•:GOSUB9050:IFR-0GOTO3025ELSEX«XD:Y«YD:Z-ZD:GOSUB9300 

387B IFABS(X)>1B0RABS(Y)>70RABS(Z)>21THENPRINT:PRINT*CAPTAINI WE 

■VE STUMBLED INTO A BLACK BOLE1 * :PRINT*TBE HOLE'S GRAVITY TIDES 

ARE RIPPING US APART 1*:FORN-1TO1500:NEXTN:GOSUB9225:CLS:FORN-1TO 

388:NEXTN:GOTO3055 

3075 IF0V>1THENPRINT"JUMP WAS SUCCESSFUL. "ELSEOV-2 

3080 AD-(-Y+7)*64+(X+10)*3+2:VI-0:YR«YR+.6:PW-PW-8:C9$-CHRS(10): 

IFOV>1THENGOSUB3010 

3090 IFEN$-*N" GOTO3999ELSEIFRND(15)-1THENENS-*N*:EF-RND(90)/10+ 
1.2:MX-RND(4) :PRINT"CAPTAINI THAT LAST JUMP DAMAGED OUR ENGINES 
. WE'LL ONLY BE ABLE TO JUMP" ;MX J "LYI THE ENGINEERS SAY IT' 

LL TAKE"iEF;*YEARS*:PRINT"TO FIX THE ENGINES. *:ED-CD+EF 

3999 M5S-"":GOTO8000 __ „ 

4000 IFPW<2THENPRINT"NOT ENOUGH POWER FOR LONG RANGE SCANNERS, C 
APTAIN.":GOTO4900ELSEPW-PW-2 

4001 YR=YR+.2:IFVI-1THENPRINT*Y0U'VE ALREADY SCANNED THIS SYSTEM 
, CAPTAIN. ":GOTO4900ELSEVI-l:CLS:PRINT*SCANNING...*:FORN-lTO32i I 
FAD-ST(N,4)ANDZ«ST(N,3)THENGOTO4100ELS£NEXTN:PRINT*NO SYSTEMS WI 
THIN SCANNING RANGE. * :GOTO4900 

4180 IP N>1 GOTO 4208 ELSE PRINT'THE SOL SYSTEM" :PRINT X , Y , 

" Z*:PRINTSTAR(N,1),STAR(N,2),STAR(N,3) :PRINT*PLANETS : 9*:PRINT" 

TERRA-TYPES: 1'sPRINT'MED GRADE METALS" : PRINT'HIGH LEVEL FAUNAL/ 

FLORAL TYPES": PRI NT: PRI NT "WHAT ARE YOU DOING HERE, "|NA$j"?" 

4185 PRINT'GET OUT THERE AND COLONIZE! 1 1 * :GOTO4900 

4200 IFST(N,5)>0GOTO4300 

4205 PRINT'THE ";ST$(N,l) f * SYSTEM ": PRI NT* X",* Y*," Z*:PRINTST( 

N,l) ,ST(N,2) ,ST(N,3) :P1-RND(15) :PL(N,1) -PI I PRINT* PLANETS: |PL(N, 

1) 8 P2-RND(3)-1:IFP2>P1THENP2«0 

4210 TY-RNDU0) : IFTY-10THENTY-99:P2-0ELSEIFP2<lTHENTY-98 

4215 PL(N,2)-P2zPRINT*TERRA-TYPES:"iP2: 

4220 ST(N,5)-TY:GOSUB9405:PRINTN3$:PRINTM4$:ST$<N,2)-"E :PRINT 

4221 IPTY-60RTY-9THEMIIB-RirD(4)ELSEGOT04229 

4222 IPNB>1GOTO4229ELSEST(N,5)-TY+10:PRINT:PRINT*AMBUSHED BY ALI 

EN HOSTILESl*iGOSUB9200 . „„^_ 

4224 PW-PW-RND(PW)/2:PRINT*POWER DRAINED TO*iPW:PRINT"WE'D BETTE 
R GET OUTTA HEREl*:VI-0:PRINT:GOTO4900 

4229 IFCL<1GOT0425BELSEPRINT*SHALL WE COLONIZE THIS SYSTEM, CAPT 
AIN *|NASi'? Y/N*:GOSUB9050:IFR-0GOTO488B 

4230 IPTY«10RTY»20RTY-99ORTY-98THENPRINT*C0LONISTS DON'T WANT TO 
GO, CAPTAIN! SHALL WE FORCE THEM? Y/N" :GOSUB9850ELSEGOTO4250 

Program continues 
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Program continued 

4 240 IFR-8G0T048B8ELSETY-TY+1B:ST(N,5)-TY 

4258 IFCL<1PRINT"CAN'T COLONIZE - WE HAVE NO COLONISTS, CAPTAINI 

•xGOT0488BELSEINPUT"HOW MANY COLONISTS SHALL WE SET DOWN, CAPTAI 

N"»NB:IFNB>CLTHENPRINT"WE DON'T HAVE THAT MANY COLONISTS, SIR.'i 

GOTO4250 

4251 IFNB><INT(NB)PRINT"CAN'T SEND PART OF A COLONIST, SIRl'iGOT 

O4250ELSEIFNB<1PRINT"CAN'T COLONIZE WITHOUT COLONISTS, SIRI'iGOT 

04229 

426B CL-CL-NB:PL(N,3)-NBiNB-INT(NB/5BB) : IFTY>0ANDTY<5THENMI-NB"5 

tNB-2ELSEIFTY>4ANDTY<8THENMI-NB*2:NB«3ELSEIFTY-BORTY-9THENMI-NB: 

NB»4ELSEIFTY-990RTY-98THENMI-5B:NB-2 

4265 PRINT'WHAT PERCENT OF OUR SUPPLIES SHALL WE GIVE THE COLONI 
STS,":INPUT"SIR",PE:IFPE<0PRINT"CAN'T GIVE AWAY NEGATIVE SUPPLIE 
S, SIR1 ■:GOT04265ELSEIFPE>SUTHENPRINT*WE DON'T HAVE THAT MUCH, C 
APTAIN1":GOTO426 5ELSESU-SU-PE:IFPE>-MI/50THENNB-NB+1 

4266 R-RND(NB) iIFR-lTHENPL(N,3)-B 
42BB STAR$(N,2)-"C":G0T0 48BB 

438B PRINT'I RECOGNIZE THIS SYSTEM, CAPTAIN!' 

43B2 PRINT'THIS IS THE " j ST$ ( N, 1) ; ■ SYSTEM .": PRINT" X" , " Y"," Z" 

:PRINTX,Y,Z:PRINT*PLANETS:"»PL(N,1) :PRINT"TERRA-TYPES : " ;PL(N,2) : 

TY-ST(N,5) :GOSUB 9405: PRINTN3S: PRINTM4S 

4384 IFST$(N,2)-"C" GOTO44BB 

431B I FST ( N, 5 ) -160RST(N, 5 ) -19THENGOSUB92BB: PRINT: PRINT' AMBUSHED 

BY ALIEN HOSTILES AGAIN I ": PRINT'DON ' t YOU EVER LEARN?" :GOT04224 

435B PRINT'WE EXPLORED THIS SYSTEM YEARS AGO") : IFCL<1G0T048BBELS 

EPRINT*, BUT DIDN'T COLONIZE. DO YOU WANT TO COLONIZE NOW? Y/N" 

4368 GOSUB9B5B: IFR-1GOTO423BELSEGOT048BB 

44BB PRINT'WE COLONIZED THIS SYSTEM YEARS AGO. " : IFPL(N,3) >BG0T04 
42B 

44B5 PRINT'BUT OUR COLONY DIDN'T SURVIVEI ■ : IFCL<1G0T048BBELSEPRI 
NT"SHALL WE TRY AGAIN? Y/N" :GOT04368 

442B IPST(N,5)<10ORST(N,5)>19THENGOTO4430ELSEIFRND(4)>1THENPRINT 
"ATTACKED BY ANGRY COLONISTS !" :GOSUB920B : PRINT'THEY REMEMBER BEI 
NG FORCED ASHORE AGAINST THEIR WILLI " :GOT04224 

4425 ST(N,5)-ST(N,5)-1B:PRINT"THE COLONISTS FINALLY FORGIVE US F 
OR FORCING THEM ASHORE I " 

4438 PRINT-POPULATION STANDS AT" iPL(N,3) : IFPL(N,3) >499GOT0445BEL 
SEPRINT'THE COLONY SEEMS TO BE SURVIVING, CAPTAIN, BUT CAN'T SPA 
RE ANY SUPPLIES. WE'LL HAVE TO MINE THOSE OURSELVES IF WE WANT 
THEM.":NB-3:G0TO4455 

445B PRINT'THE COLONY HERE IS THRIVING, SIR. " : PE-RND( 1BB-PW) :PRI 
NT'THEY WANT TO GIVE US";PE;"% FUEL AND SUPPLIES. SHALL WE TAKE 
IT? Y/N":GOSUB9B5B:IFR-8THENNB-4ELSENB-2:SU-SU+PE:PW-PW+PE:IFS 
U>1B8THENSU-1BB 

4455 GR-RND(NB) ! IFGR-1THENPL(N,3) -INT ( PL (N, 3) • .91) ELSEPLIN.3) -IN 
T(PL(N,3)*1.21) 
4498 GOTO480B 

4 888 REM 

481B IPTY>9THENTY-TY-1B 

4815 IFTY>BANDTY<4THENTI-.4ELSEIFTY>3ANDTY<7THENTI-.2ELSEIFTY>6A 

NDTY<1BTHENTI-.1ELSEIFTY-880RTY-98THENTI-.6ELS£IFTY-890RTY-99THE 
NTI-5 

482B PRINT:PRINT"SIR, SHOULD WE MINE THIS SYSTEM FOR RADIOACTIVE 

5 (FOR FUEL)? OURPOWER LEVEL IS",PW,"%. Y/N" :GOSUB9B5B : IFR-BGOT 
04850 

4825 INPUT-HOW MUCH SHOULD WE MINE? 8-18B" ,PE: IFPE>1B8PRINT"WE C 

AN ONLY CARRY 188%, SIR. " :GOT04825ELSEIFPE>BGOT04827ELSEPRINT"NO 

NE, SIR? Y/N":G0SUB985B:IFR-1G0T04858ELSEG0T04825 

4827 IFINT(PW+PE)>1BB THENPRINT'BUT SIR, WE ONLY NEED" ilBB-PWi "% 

":GOT04825 

483B NBR-TI*PE: PRINT" IT WILL TAKE" , NB; "YRS TO MINE WHAT YOU WANT 

'C APTAIN -'': PRINT" SHALL * BEGIN THE MINING PROCEDURES? Y/N":GOSU 

B9858:IFR-BGOT04828 

J! 3 i. YR " YR * NB:PW * PW+PE!PRINT:PRINT " NININ G OPERATIONS COMPLETE'iP 
RINT'POWER LEVEL NOW STANDS AT" ; PW-NB; "I " .PRINT 

4 5fS„ "™>" PRINT 8P«"NT*INSUFFICIENT **" MATERIAL OF THE TYPE WE 
NEED TO CONVERT TO SUPPLIES, SIR. WE'LL HAVE TO TRY ANOTHE 

R SYSTEM. "iPRINTiGOT049BB 

4868 IFTY-1ORTY-4ORTY-7TBENTI-.4ELSEIFTY-20RTY-5ORTY-8THENTI-.2E 
LSEIFTY-30RTY-60RTY-9THENTI-.1 

4861 IFSU-YR*2<.1THENSP"0ELSESP-SU-YR*2 

4862 PRINT: PRINT'SUPPLIES STAND AT";SP;"%, SIR. SHOULD WE MANUF 
ACTURE SOME":PRINT"BEFORE WE LEAVE THIS SYSTEM? Y/N" :GOSUB9050 • I 
FR-BGOT0498B 

4865 INPUT'HOW MUCH SHOULD WE MANUFACTURE, CAPTAIN" , NB: IPNB>0GOT 
0487BELSEPRINT"NONE, SIR? Y/N" :GOSUB9B5B : IFR-1G0TO49BBELSEGOTO48 

4878 IFINT(SU-YR*2+NB)>100THENPRINT"BUT SIR, WE ONLY NEED"»100-S 

U+YR"2:G0TO 4865ELSEPE-NB*TI : PRINT'IT WILL TAKE" ;PEj "YRS TO CONV 

ERT WHAT YOU WANT. SHALL i BEGIN THE CONVERSION, SIR? Y/N":GOSU 

B9B58:IFR-BGOT04865 

4875 YR-YR+PE:SU-SU+NB:PRINT"CONVERSION PROCESS COMPLETE. SUPPL 

IES STAND AT",:IFSU-YR»2<.lPRINT"0 %"ELSEPRINTSU-YR»2l "%" 

498B REM 

499B GOTO 8808 

5BBB CLS:PRINTSHIPNA$;" STATUS REPORT' : PRINT 

5818 PRINT-POWER- -;PWR;-%-: PRINT-SUPPLIES--, SUPPLY, "%":PRINT"COL 

ONISTS-",CLNSTS,"IN STASIS" : PRINT'ENGINES- ",:IF ENS-'Y" GOSUB 9 

020 ELSE GOSUB 9B3B 

5838 PRINT-SCANNERS- " , : IFSCS-"Y"GOSUB9B2BELSEGOSUB9B3B 

584B PRINT:GOSUB3B18 

5858 PRINT .-PRINT "CURRENT DATE: ■ ,CD:PRINT"END OF MISSION: ",2318+Y 

E:GOTO 8BB0 

7999 REM ACCT FOR TIME SPENT 

8BBB CDATE-CDATE+YR:PER-YR:YR-B:IFCDATE<231B+YEARSTHENGOTO8018EL 
SEPRINT:PRINT"YOUR MISSION IS OVER, CAPTAIN " , NA$iCS-B :E-B :CF-B 
8881 P0RN-1T032|IFST$(N,2)-"E"THENE-E+1ELSEIFSTS(N,2)-"C"ANDPL(N 
,3)>BTHENCS-CS+1ELSEIFSTS(N,2)-"C"ANDPL'N,3)<1THENCF-CF+1 
8BB2 NEX7N:PRINT:PRINT"Y0U ENLARGED SOL'S SPHERE OF INPLUENCE TO 
"(CF+CS+E, "SYSTEMS" :PRINT"SUCCESSPULLY COLONIZED" ,CS: PRINT "UNSUC 
CBSSrOLLY COLONIZED", CF: PRINT-EXPLORED", E, "MORE.*: PRINT 
8883 IFCF+CS+E>17PRINT"0UTSTANDING JOB, " ,NAS : PRINT" YOU ARE PROM 
OTED IMMEDIATELY TO RANK OF ADMIRALI " i END 

8BB4 IFCF+CS+E>10PRINT"NOT BAD, ",NAS»", BUT YOU COULD HAVE TRIE 
D HARDER.", PRINT'RETAIN RANK WITH HONORABLE DISCHARGE. "ELSEPRINT 
YOU ARE AN EMBARASSEMENT TO THE FLEET, " ,NAS: PRINT'DEMOTED TO R 
ANK OF ENSIGN WITH DISHONORABLE DISCHARGE I" 
88B8 END 

8B1B PWR-PWR-PER:IF PWR>5 GOTO 8B2B ELSE PRINT'WE'VE RUN OUT OF 
FUEL FOR OUR ENGINES AND GENERATORS. WE'RE DOOMED TO DRIFT F 

BB28 SU-SU-PE"2:IF SU>5 THEN GOTO 8B3B ELSE PRINT'WE'VE RUN OUT 
?n ,,« P , PLIES ' CAPTAIN - THEN CREW HAS MUTINIED 1 THEY'RE ON THE 

1R ViAY. TO BOOT YOU OUT THE AIRLOCK ...': END 
8838 IF EN$-"Y" GOTO 8848 ELSE IF CDATE>-EDATE THEN PRINT'THE EN 

Program continues 



Program continued 

GINEERS HAVE FIXED THE JUMP ENGINES, SIRI FULL JUMP AB1LIT 

Y HAS BEEN REST0RED1 " : EN$-" Y" 
8848 REM 

890B C9S-CHR$(28) :GOTO 1121 

9BBB PRINT#968,CHR$(38) ; : PRINT#96B , "CAN'T GO OFF THE SCREEN.", iR 
ETURN 

9BB9 REM SPACES TO CORNER 

98 IB PRINTg76 8,SP$,:PRINT*832,SPS,:PRINTe896,SPS,:RETURN 
9B19 REM OP MSGS 

9B2B PRINT'FULLY OPERATIONAL" : RETURN 
9B3B PRINT'REDUCED CAPACITY" :RETURN 
9849 REM GET RESPONSE Y OR N 

9858 IF PEEK(14344)-2 THEN R-l ELSE IF PEEK ( 14338) -64 THEN R-8 E 
LSE GOTO 9858 

9855 IF PEEK(14344) X 2 AND PEEK(14338) >< 64 THEN RETURN ELSE 
GOTO 9855 

9199 REM JIGGLE SCREEN 

92BB FOR N-l TO 15:OUT255,8: FOR D-l TO 3|NEXT D:OUT255 ,B:FOR D-l 
TO 3: NEXT D:NEXT N: RETURN 

9224 REM FELL INTO A BLACK HOLE 

9225 CLS:FOR N-l TO 1B:PRINT#RND( 959) , "." , :NEXT N:PRINTB488 , "•"; 
:M-488:FOR N-l TO 20:PRINTM,CHRS(23) , :FOR D-l TO 3iNEXT D:PRINT 
g0,CHR$(2B) , :FOR D-l TO 3 : NEXT D:IF M>fl THEN M-M-4B:F0R P-l TO M 
:NEXT P 

9226 NEXT N: RETURN 
9249 REM FIND DIST 

9258 IF SQR(DX[2 + DY[2 + DZ[2) > MX THEN R-l ELSE R-B 

9251 RETURN 

926 9 REM FIND SYSTEM NAME 

9278 FOR N-l TO 32.-IP ADDR-STAR(N,4) AND Z-STAR(N,3) THEN PRINT" 

- THE *,STAR$(N,1) ," SYSTEM." ELSE NEXT N:PRINT 
9271 RETURN 
9299 REM JUMP SCREEN 

9380 CLS::FOR N-l TO 1B:X1-RND(62) :Y1-RND(13) :PRINTeYl*64+Xl , " . " 
,:NEXT:FOR N-l TO 2BB:NEXT:F0R N-l TO 5:PRINT30 ,CHR$ (23) , :FOR D- 
1 TO 3:NEXT:PRINT*8,CHR$(28) , : FOR D-l TO 3:NEXT:NEXT N:CLS 

9381 VA-176:GOSUB 9385: VA-32:GOSUB 93B5:CLS:FOR N-l TO 288:NEXT 
N: RETURN 

9385 Xl-15838tX2-15848:X3-Xl:X4-X2:FOR N-l TO 6 :X3-X3+6B:Xl-Xl-6 

8:X4»X4+68:X2-X2-6fl:POKE X1,VA:P0KE X2,VA:POKE X3,VA:POKE X4.VA: 

NEXT N: RETURN 

9399 REM SYSTEM VALUE 

9488 TYPE-STAR(SHIPLG(N,2) ,5) 

9405 IF TYPE-98 THEN M3$-"LOW GRADE METALS" :M4$-"N0 FAUNAL/FLORA 

L TYPES" :RETURN ELSE IF TYPE-99 THEN M3S""N0 VALUE WHATEVER" :M4S 

-"": RETURN ELSE IF TYPE>10 THEN TYPE-TYPE-10 

9410 IP TYPE-1 OR TYPE-2 OR TYPE-3 THEN MlS-"LOW" ELSE IF TYPE-4 

OR TYPE-5 OR TYPE-6 THEN M1$-*MED" ELSE IF TYPE-7 OR TYPE-8 OR 
TYPE-9 THEN M1S-"HIGH" 
9428 IF TYPE-1 OR TYPE-4 OR TYPE-7 THEN M2S-"LOW" ELSE IF TYPE-2 

OR TYPE-5 OR TYPE-8 THEN M2S-"MED" ELSE IF TYPE-3 OR TYPE-6 OR 
TYPE-9 THEN M2$-*HIGH" 

943* M3S-M1S + " GRADE METALS" :M4S-M2S + " LEVEL FAUNAL/FLORAL T 
YPES" 
9450 RETURN 

9500 IFDDXINT(DD) PRINT: PRINT-MUST BE INTEGER" : PRINT:R-BELSER-1 

9501 RETURN 



ing from primitive to highly 
evolved. You may colonize any 
system that has been explored 
except hostile, inhabited sys- 
tems. The only option in such a 
case is to leave quickly or to 
eventually be shot down. 

If you choose to colonize a 
particular system, take note of 
the system's resources. If the 
system is poor, initially more 
supplies will be needed to start 
the colony. If you choose to 
force the colonists to land 
against their will, you may find 
them unreceptive to a return 
visit. 

After the decision of col- 
onization has been settled, you 
have the option of mining and 
refining the system's resources 
for future supplies. 

The command Jump allows 
your ship to travel instan- 
taneously from one point in 
space to another without cross- 
ing the intervening distance. 
This is the same method of 
travel that was used in "Star 
Guard." (Seven and a half 
lightyears is the maximum safe 



distance for jumping.) Jumping 
beyond this there is the danger 
of becoming lost by jumping to 
a random point in space along 
with blowing your ship's 
engines. In these situations, 
you will have to limp along as 
best you can until your engi- 
neers can repair the damage. 

Status indicates in percen- 
tiles your reserve of supplies 
and fuel remaining, colonists 
left in stasis, and years left in 
the mission. 

The Mission Begins 

You feel a low rumble 
through the soles of your feet. 
Your shuttle has docked. As 
you wait for the air to cycle into 
the docking bay, you almost 
feel the weight of the entire 
world settling onto your 
shoulders. So much depends 
on your success! Grimly, you 
vow not to waste supplies or 
colonists. You are determined 
to explore and colonize as 
many of the best star systems 
as you can. The mission has 
begun. ■ 
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HE NEW LAREDO 
WHEN YOU'RE R 
GET DOWN TO B 



Laredo Systems, Inc. introduces the 
LS525 five megabyte rigid disk memory 
system for TRS80 Models I and III. 
Laredo's LS52 5 rounds up a Seagate 
ST506 Drive. LDOS Operating System by 
Logical Systems, and Laredo's own LSI 




500 Series Controller into a single-board 
controller that emulates the famed IBM 
3370 disk system, complete with: 
• Improved read/write/seek access time 
through full block buffering and variably 
tuned interleave. 



• Onboard data separator, micro-code 
diagnostics and write-precompensation. 

• Increased disk media reliability and 
data integrity with automatic defect block 
allocation and extended ID fields. 

• Versatile CPU compatibility provided by 
separate host adaptor. 

Introductory Offer To TRS80 Users. 

Now through October 1 . 1981 buy the 
LS52 5 for the OEM/dealer price of 
$2990. a savings of $760 off the usual 
suggested retail price of $3750. 

LDOS Operating System 
with manual and diskette 
available for $149. 



For more information about the LS525 
Memory System and the LSI 500 Series 
Controller, contact: 
Laredo Systems, Inc. >*x 

2264 Calle de Luna. Santa Clara. CA 95050 
408-988-03 1 5 




kirado yfttanro Inc. 



■ See List o* Advertisers on page 386 
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APPLICATIONS 



Interest-generating programs for the Pocket Computer. 



Loan Sharp 



Walter J. Atkins, Jr. Ph.D. 

Qtrs 4410 A 

USAF Academy, CO 80840 



Have you ever wondered 
what the monthly payment 
on a new car would be, or 
doubted that a salesman was 
quoting you the true interest 
rate? The Pocket Computer can 
help you. 

I selected three programs 
ideally suited for the TRS-80 
Pocket Computer from my col- 
lection of financial programs 
for my Model I. The first pro- 
gram finds the term of a loan. 
The second finds the loan pay- 
ment amount. The third finds 
the true annual interest rate. I 
have combined these into one 
Pocket Computer program. 



Each of the program modules 
can also be used alone. 

The Pocket Computer has a 
defined program mode that 
allows any of several programs 
in memory to be run by pressing 
two keys. If the computer is put 
into the defined program (DEF) 
mode, pressing Shift A runs the 
module that finds the term of a 
loan. Pressing Shift B runs the 
payment amount module, and 
Shift C runs the interest rate 
module. 

The Program 

The program takes about 800 
steps and uses half the Pocket 
Computer's memory. The pro- 
gram is 40 lines long; it should 
be obvious to those of you who 
do not yet have a Pocket Com- 
puter that it can easily handle 
some very serious computing 
tasks. 



I— Annual interest rate in percent 

J — Last interest rate guess 

K— Interest rate increment 

N — Loan term in months 

P— Amount of loan 

Q — Monthly payment 

R Computed payment in interest rate module 

Y — Loan term in years 

Z- Minimum monthly payment 

Table 1. Variables 



The loan program is divided 
into three parts. Lines 10-70 
find the time required to pay off 
a loan of a certain amount 
when the interest rate and 
amount of monthly payments 
are known. There is a minimum 



payment that must be made to 
pay off a loan. If a monthly pay- 
ment of less than that minimum 
is made, the interest will ex- 
ceed the payment and the loan 
will never be paid off. If a 
monthly payment less than the 



l 

100 
PAUSE "FEF\ENT " 



LOG- 1*1 101 



10 :REM »LGANTERM-iHFTA 

15 : "A" 

20 : PAUSE " F I ML- LOAN TERM" 

25 : INPUT "LOAN AMOUNT = : " P 

30 : INF UT "ANN. INT. PATE- ". ■ = ' " 

35 :Z-F*I 1200:r>INT- ZMOO- 5 

4 : PAUSE "TO PAY LOAN AT " I 

45 :FftUSE "MINIMUM PAYMENT-*" i 

5u . INPUT "MONTHLY PAYMENT = "" 

55 :Y=-- LOO- l-ip»- I 100 • • • i: 

60 :N-Y*12:N»INT-. Nt.5 - 

€.5 :FF1HT"L0AN TERM- MONTHS ■=" N 

70 :ENC- 

100; PEM » LOANF A . MENT • 

110: "B" 

113:FAUSE"F1ND PAYMENT AMOUNT" 

120: INPUT "AMOUNT OF LGAN= ' " P 

130: INFUT"ANN. INT. PATE- '. ■- ""1:1 = 1 100 

140: INPUT "NUMBER OF MONTHS- • " N 

130:&«=< I*P- 12,'- -.1-- ' I- 12*1 ' -N - > 

160:0«INT<.G*100*.3- 100 

170: PR INT "MONTHLY PAYMENT-*" 0. 

160 : END 

200: REM *F I NCR ATE* 

210;"C" 

213:PAUSE"FIND INTEREST RATE" 

220: INPUT "MONTHLY PAYMENT- :" O 

230: INPUT "AMOUNT OF LOAN- • " " P 

24 0. INPUT "NUMBER OF MONTHS- " N 

250: 1-10: J-0 

260: I-I • 100: PAUSE "COMPUTING. . PLS . .WAIT" 

270:R-vl*P 12- •■,!-> > 1-12*1 ■ "-N ■ ■ :R-INTF 

260 : K-ftBSv I ♦ 1 00- J -■ 2:7-1*1 00 

290: IF R-0 THEN 330 

300: IF R,'Q THEN 320 

310: I»1*100-»K : GOTO 260 

320: I-IMOO-fc : GOTO 260 

330: 1-1*100: I-1NT- 1*1 000*. 5.- 1000 

340: PRINT"ANN. INT. RATE- -.,--" I 

350:ENC- 



Program Listing. 
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minimum is entered in the pro- 
gram, the Pocket Computer in- 
dicates an error when it tries to 
evaluate the LOG function in 
line 55. I have included lines 
35-45 so the computer 
calculates and displays the 
minimum payment before it 
asks you to enter your monthly 

payment. 

Lines 100-160 calculate the 

monthly payment required to 
pay off a loan of a certain 
amount in a specified period at 
a given interest rate. 

Lines 200-350 calculate the 
annual interest rate. This sec- 
tion uses an iterative technique 
to determine the rate. First it 
assumes an interest rate of 10 
percent. It then calculates the 
payment necessary to pay off 
the loan at that interest rate. If 
the calculated payment is 
higher than the monthly 
payment you entered, it 
assumes a lower interest rate 
and repeats the process. If the 
calculated payment is lower 
than your monthly payment, it 
assumes a higher interest rate 



and repeats the process. After 
a few iterations, the computer 
zeroes m on the true interest 
rate. The iteration process can 
take several seconds, so in line 
260 I have the computer print 
out the message "COM- 
PUTING. .PLS.. WAIT" after 
each iteration. ■ 



SHFTA 

Find Loan Term 

Loan Amount « >? 10000 

ANN INT R«tB<%) =>? 15 

To Pay Loan A1 15 Pefcenl 

Minimum Payment = $125 

Monthly Payment = >? 1234.56 

Loan Term (Months) * 9 

SHFTB 

Find Payment Amount 
Amount Of Loan - >? 1234.56 
ANN. INT. Rata(V.) = >? 10 
Number Of Months - >? 24 
Monthly Payment -$56 97 

SHFTC 

Find Interest Rate 
Monthly Payment - >? 900 
Amount Of Loan = >? 85000 
Number Of Months = .>? 360 
ANN INT Rate<%)- 12.391 



Table 2. Sample Runs 



STOCK MARKET 
SOFTWARE 



i 



Bv H A H Trading C'umpant for Mod. I. II. & 111 TRS 80*s j 

i 

STOCK TRACKER™ times trades on individ- 
ual stocks and options. Uses a technical volume 
analysis. Completely objective. Gives buy, sell 
signals. 

MARKET TRACKER™ times tops & bottoms 
on the Dow Industrials; a composite of six tech- 
nical indicators. Some judgement required. 
Gives buy, sell signals. 
These two programs are accurate. 
Hundreds of satisfied users. 

ASK FOR THE EVIDENCE ! 

FOR MORE INFORMATION OR TO ORDER. CONTACT: 

H * xU WIPING CQM£qNY 

POST OFFICE BOX 23S44 „ 2 23 

PLEASANT HILL. CALFORfMA 94523 
Tttt«phon« 415/937-1030 



VISA & MASTERCARD 



JjJUgd T M or Rodio Shock 



i AAegd T h 



LOAD 
80 

LOADS 
EASY 



(SMS) 



LOAD 80 



ELIMINATE HOURS OF 
TYPING AND 
AGGRAVATION 




In the April, 1981 issue of 80 Microcomputing, we in- 
troduced LOAD 80 to save you the time and trouble of 
typing our programs yourself. LOAD 80 cassette tapes 
contain dumps of the major program listings in 80 
Microcomputing. 

If you have not yet ordered any LOAD 80 tapes and 
wish you had, don't worry. We are now offering a "back 
issue" cassette program. You can order any LOAD 80 
cassette from April, 1981 to date for $9.95. Back issues 
of 80 Microcomputing are also available with the LOAD 
80 cassettes for $2.50. With the complete documenta- 
tion found in the companion magazine issue, you 
should have no difficulty loading any of 80's major pro- 
grams. 



Please send me the following: 



□ 



L 



TAPES 

April, 1981 
May, 1981 
June, 1981 
July, 1981 
August, 1981 



MAGAZINES 

April, 1981 
May, 1981 
June, 1981 
July, 1981 
August, 1981 



ITEM 


COST 


QTY. 


TOTAL 


LOAD 80 Tapes 
overseas, add Si 00 


$9.95 






BO Microcomputing 

add $1.50 lor postage and 
handling if ordering magazines 


$2 50 








T 


OTAL 





Check Enclosed Bill my: ,'. MC '. J AE 



VISA 



NAME 

ADDRESS 

CITY 

CARD# 

SIGNATURE 



STATE 



ZIP_ 

_ EXP. DATE_ 
INTERBANK #_ 



Please allow 4-6 weeks for delivery 

LOAD 80 • 80 Pine Street • Peterborough NH OWSfl 

Attn Debra Boudneau 



■See List ol AOvi'Users on page 386 
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UTILITY 



Tired of abbreviations for error messages? Read on. 



Full Error 



Harry and Ken Keairns 
920 La Plante 
Sioux City I A 51109 



While friends with expan- 
sion interfaces and disk 
drives enjoyed full error mes- 
sages, we struggled with the 
two letter abbreviations charac- 
teristic of Level II Basic. After 
almost wearing out the Basic 
Reference Manual, we set out to 
find a way to develop longer 
messages on our system, with- 
out spending the money for a 
disk system. 

Our first effort produced the 
Basic program in Program List- 
ing 1. We generally loaded this 
before we started developing a 
program, and after the program 
was debugged, replaced it with 
an error handling routine. While 
it served our initial purpose, it 



was inconvenient to load it for 
every program. 

It gave us a better under- 
standing of the ERL and 
ERR/2 + 1 functions, which are 
important when developing an 
error routine. The ERL function 
returns the line number that 
contains an error, and the 
ERR/2+1 function returns the 
error number that corresponds 
with the table on page B/1 of the 
manual. 

RAM Link 

Like many TRS-80 users, we 
spend time wandering around 
the ROM area. On one of these 
excursions we discovered that 
memory location 41A6H pro- 
vides a link between the Level II 
error routine and the RAM area 
of memory. This location is 
called both before the error 
message is sent to the screen 
and immediately afterward. 

Program Listing 2 disassem- 
bles this area of ROM (19FEH 
thru 1A1EH), with remarks on 
the portion we will be changing. 
The link location (41A6H) nor- 
mally contains a Return state- 
ment, but provision was made 



for a three-byte Jump command 
to another location in memory. 
We will use this provision to 
replace the ROM routine with 
one of our own design. 

Replace the first 16 bytes of 
the ROM routine, and use the 
balance of the routine to send 
the remainder of the message 
(i.e., "Error in line nn"). 

The first section of Program 
Listing 3 is a short routine that 
replaces the Return statement 
at 41 A6H with a jump to the start 
of our routine. After loading the 
object code tape, entering a 
start point of 32292 initializes 
the new subroutine. This will 
have to be repeated in the event 
of a system crash, but can be 
protected by answering the 
memory size question with 
32291 when you first bring the 
'80 to life. 

The second section defines 
the messages to be sent to the 
screen in place of the two-letter 
abbreviations. Note that the 
messages end with a CHR$<34), 
as the ROM routine used to get 
the message to the screen looks 
for this as a delimiter. When it 
finds a quotation mark (or a zero 



byte), it knows the message is 
complete. 

The next section is a table of 
the addresses for the messages 
previously defined. This ap- 
proach is similar to the ap- 
proach used by the ROM rou- 
tine, and it solves the problem of 
messages of unequal length. 

The final section selects the 
message, sends it to the screen, 
and then completes the mes- 
sage using the original ROM 
routine. 

The actual selection is han- 
dled by loading the HL registers 
with the first address in our two- 
byte address table. The ERR 
code is then added, and the HL 
registers are pointed at the 
proper message. Make use of 
the DE registers to retrieve the 
address— save their contents 
with a PUSH instruction. After 
loading the address bytes, ex- 
change DE and HL, as the rou- 
tine expects to find the address 
there. Restore DE with a POP 
and the message is ready to be 
sent to the screen. 

Now make a CALL to 28A7H, 
the location of a ROM routine 
that displays a string on the 
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MODEL 




26-4002 

64K 1 Drive 

$3297.00 

26-4160 1 Drive Exp 

26-4161 2 Drive Exp 

26-4162 3 Drive Exp 

26-4150 Hard Drive 1. .. . 
26-4151 Hard Drive -2. ... 
26-4530 Scripsit II 


$1034.00 
1574.00 
2114.00 
3994.00 + 
3144.00 + 
. ..265.00 


26-4512 Profile II 

26-4511 Visicalc II 


162.00 
. . 265.00 


26-4501 Gen Ledger 

26-4506 Mail List 


180.00 
72.00 


PRINTERS 




CERTRDniCS 
BEST PRICES 

Text Quality Centronics 
739-1 Printer $729.00 



DISCOUNT 

TRS-80® x, 

COMPUTER SPECIALISTS 

CALL US. . . 
SAVE MONEY 



We carry the full line of TRS-80 Computers. All 
other software, furniture, and accessories at dis- 
count from catalog price. We stock most items 
to assure you fast delivery and save you money. 



26-1 140 Expansion Interface $249.00 

26-1 141 16K Exp. Interface 339.00 

26-1 142 32K Exp. Interface 429.00 

26-1 145 RS232C Board 84.00 

26-1160/1 Mini Disk Drive 419.00 

26-1563 Scripsit Disk 79.00 

26-1566 Visicalc 83.00 

..... -PRINTERS' 

26-1 165 Line Printer V 1710.00 

26-1 167 Line Printer VII 360.00 

26-1 166 Line Printer VI 1080.00 

26-1 158 Doisy Wheel II 1799.00 

26-1 168 Line Printer VIII 720.00 



Pocket Computer 

26 3501 1.9KP.C $188 00 

26 3503 Cassette IF 45.00 

14-812 Recorder 72.00 

26-3505 Mini Printer 134.00 

WRITE US FOR A 
FREE CATALOG 



THOUSANDS OF SATISFIED CUSTOMERS 



MODEL 




26-1061 4K I S 600.00 

26 1062 16K III 849.00 

26 1066 48K III 

W 2 Drives. RS232 2077.00 

COLOR 




fttffK&Xtt 



26-3001 4K S318.00 

26 3002 16K Ext. Basic 488.00 

26-3003 32K Ext. Basic. . . 628.00 

26 3010 Color Video .333.00 

26 1206 Recorder 34.00 




ALL POCKET AND COLOR 

COMPUTER SOFTWARE 

SOLD AT DISCOUNT 



1-800-841-0860 Toll Free Order Entry 



MlCflQ MANAGEMENT SVSTEI3S, JNCf 



No Taxes on Out Of 
State Shipments 



DOWNTOWN PLAZA SHOPPING CENTER 

DEPT. #4 
____ 1 15 C. SECOND AVE. S.W. 

, ~~7~ cu . ' CAIRO, GEORGIA 31728 

mmediate Shipment 

Pk , \. . u (912) 377-7120 Co. Phone No. & Export 

From Stock on Most Items T „..o ,, a ,„,„.,.«, t,...™.* <* .♦.. w r cor P . 



A copy of the manufacturer's war- 
ranty can be obtained free upon 
specific written request to the 
Electronics Deportment of our 
Cairo. Georgia Retail Store. 



'See List of Advertisers on page 386 
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screen. After sending the string 
revert to the ROM routine to 
send the word "error," and the 
line number, if appropriate. End 



the routine with a Jump to 
1A1FH, the location immediate- 
ly after the second call to 
41A6H. 



This program uses less than 
500 bytes and usually saves 
much more than the eight-sec- 
ond loading time in look-up time 



alone. We also hope it will pro- 
vide the ROM-roamers amongst 
us with new locations to experi- 
ment with.H 



i ON ERROR 


GOTO 24 : GOTO 25 


1 PRINTS64, 


"NEXT WITHOUT FOR ERROR IN LINE* ; ERL : END 


2 PRINT364, 


"SYNTAX ERROR IN LINE' ; ERL : END 


3 PRINTJ64, 


■RETURN WITHOUT GOSUB ERROR IN LINE" ; ERL : END 


4 PRINTC64, 


"OUT OP DATA ERROR IN LINE" ; ERL : END 


5 PRINTC64, 


•ILLEGAL FUNCTION CALL IN LINE" ; ERL : END 


6 PRINTJ64, 


"OVERFLOW ERROR IN LINE" ; ERL : END 


7 PRINTS64, 


•OUT OF MEMORY ERROR IN LINE" ; ERL : END 


8 PRINTS64, 


"UNDEFINED LINE IN LINE" ; ERL : END 


9 PRINT364, 


•SUBSCRIPT OUT OF RANGE ERROR IN LINE* ; ERL : END 


11 PRINT964, 


•REDIMENSIONED ARRAY ERROR IN LINE* ; ERL : END 


11 PRINT?64, 


•DIVISION BY ZERO ERROR IN LINE* ; ERL : END 


12 REM 


'ID ERROR POSSIBLE COMMAND MODE ONLY 


13 PRINTS64, 


•TYPE MISMATCH ERROR IN LINE' ; ERL : END 


14 PRINT364, 


'OUT OF STRING SPACE ERROR IN LINE* ; ERL : END 


15 PRINT864, 


"STRING TOO LONG ERROR IN LINE' ; ERL : END 


16 PRINTC64, 


•STRING FORMULA TOO COMPLEX IN LINE* ; ERL : END 


17 PRINTB64, 


•CAN'T CONTINUE ERROR IN LINE' 1 ERL : END 


18 PRIKTM4, 


*NO RESUME ERROR IN LINE* ; ERL : END 


19 PRINTC64, 


•RESUME WITHOUT ERROR IN LINE" ; ERL : END 


28 PRINTJ64, 


•UNPRINTABLE ERROR IN LINE* J ERL : END 


21 PRINTS64, 


•MISSING OPERAND ERROR IN LINE' ; ERL : END 


22 PRINT064, 


'BAD FILE DATA ERROR * : END 


23 PRINT964, 


'DISC BASIC ERROR * : END 


24 ON ERR/ 2+ 


1 GOTO 1,2,3,4,5,6,7,8,9,18,11,12,13,14,15,16,17, 


18, 19, 28, 21 


,22,23 


25 REM 


'START YOUR PROGRAM HERE 




Program Listing 1, 



19tC 


O010C 


DM 


19ECH 




19CC CDA*m 


001 10 


CALL 


11A6M 


RAfl LINK LOCATION 


i»ef 57 


00120 


LB 


D.A 


PUT ERROR CODE IN 


ITfO 3E3F 


00130 


LD 


A.3FH 


QUESTION NARK 


19F2 CD2A03 


001«t0 


:-.. 


032AH 


DISPLAYS SINGLE BYTE 


)««, !• 


00150 


ADD 


HL.DE 


POINTS TO TYPE OF ERROR 


19F6 E 


0016C 


LI 


A,(HL> 


GET FIRST LETTER 


m; CDiAOj 


00170 


CALL 


032AM 


DISPLAY LETTER 


19FA *>•/ 


00180 


B9" 


I OH 


INC HL AND LOADS 2ND LETTER 


19FB CD2A03 


00190 


CALL 


032AH 


DISPLAY 2ND LETTER 


17FE 21101V 


00200 


It 


HL.1910H 


POINTS TO l*0RD ERROR 


1A01 E3 


0021C 


PUSH 


HL 




1A02 2AEAH0 


00220 


LD 


HL. ' UOLA*. 




1A05 E3 


00230 


E> 


(SP).HL 




1*06 CDA728 


002WO 


CALL 


28A7M 




1A09 El 


00250 


POP 


HL 




1A0A llfEFF 


00260 


.: 


OE.OFFFEM 




IA0D OF 


00270 


PS - 


18H 




1«0E CA7H06 


00280 


jp 


2.06--H 




1*11 7C 


00290 


L» 


A.H 




1A12 A5 


00300 


MO 


L 




1A13 ,"C 


00310 


INC 


A 




1A1H C1A70F 


00320 


cm . 


NZ.0FA7N 




IA1/ 3EC1 


00330 


LO 


A.0C1H 




IA1? CD8B03 


003M0 


CALL 


038BH 




iaic coAtm 


00350 


CALL 


U1ACH 




0000 


00360 


EM, 






000OO TOTAL 


ERRORS 


Prog 


ram Listing 2 





00100 


ORG 7E24H 






00110 


:*«**«*• t«*****t«t*«>* t********ttt*sf ****<«•***(* t***t*«M 


00670 


DEFU OMERR 


00120 


:* * 


00680 


DEFU ULERR 


00130 


;* THIS SECTION INITIALIZES RAM LINK * 


00690 


DEFU BSERR 


00140 


:* * 


00700 


DEFU DDERR 


00150 


;#*m******M***m***m*m*M**m**********t******m 


00710 


DEFU DOERR 


00160 




00720 


DEFU IDERR 


00170 


LD HL.41A6H ;PCiNT TO RAH LINK 


00730 


DEFU TMERR 


00180 


LD DE, START ;F!ND START 


00740 


DEFU OSERR 


00190 


LD (HL),0C3H :JU1C TO - 


00750 


DEFU LSERR 


00200 


INC HL 


00760 


DEFU STERR 


00210 


LD (HL).t :- LSI) 


00770 


DEFU CNERR 


00220 


INC HI. 


00780 


DEFU NRERR 


00230 


LD (HL).D : - MSB 


00790 


DEFU RUERR 


00240 


JP 0072H :8ACK TO BASIC 


00800 


DEFU UEERR 


00250 


....... ,>..,>. «,l.. «........>. ...r. «....,,,.,,..,<>,.. >,, 


00810 


DEFU MOERR 


00260 


;* t 


00820 


DEFU FDERR 


00270 


•1 THIS SEC r ION DEFINES THE ERROR MESSAGES * 


00830 


DEFU L3ERR 


00280 


:* * 


00840 




00290 


• ■i't...>>i... »<<.-...........,.,...<.,.. <,....,,,>>.>>>- 


00850 


t**t***tttmtt*****tt*mt*ts**t*m*ttt*ttti**ttt*****t 


00300 




00860 


< < 


00310 


HFERR DEFM 'NEXT WITHOUT FOR"' 


00870 


» THIS SECTION SELECTS THE CORRECT MESSAGE » 


00320 


SNERR DEFM SYNTAX'" 


00880 


t 1 


00330 


RGERR DEFM 'RETURN WITHOUT GOSUB"' 


00890 


"UIIK.I ...t.......lI...I.«M>.I.ll....tlH|lUH. 


00340 


ODERR DEFM 'OUT OF DATA"' 


00900 




00350 


FCERR DEFM 'ILLEGAL FUNCTION CALL"' 


00910 START LD HL.TABL ;P0INT TO LOOK-UP TABLE 


00360 


OVERR DEFM 'OVERFLOW" 


00920 


ADD HL-BC ;ADVANCE TO MESSAGE NEEDED 


00370 


OMERR DEFM 'OUT Of MEMORY"' 


00930 


PUSH DE :SAVE REGISTER 


00380 


ULERR DEFM 'UNDEFINED LINE'" 


00940 


LD E,(HL) :GET LSB OF MESSAGE ADDRESS 


00390 


BSEkR DEFM 'SUBSCRIPT OUT OF RANGE" 


00950 


INC HL m 


00400 


DDERR DEFM 'REDEMENSIONED ARRAY'" 


00960 


LD D.(HL) :GET MSB OF MESSAGE ADDRESS 


00410 


DOEPR DEFM 'DIVIDE BY ZERO"' 


00970 


EX DE.HL ;P0INT TO MESSAGE 


00420 


IDERR DEFM ILLEGAL DIRECT COMMAND" 


00980 


POP DE ;RESTORE REGISTER 


00430 


TMERR DEFM 'TYPE MISMATCH"' 


00990 




00440 


OSERR DEFM OUT OF STRING MEMORY"' 


01000 


M«»*«ttt«*tt***t**t**«>t*tt****S**MM*tM«*«m*tt***t* 


00450 


LSERR DEFM 'STRING :00 LONG"' 


01010 


« * 


00460 


STERR DEFM 'STRING TOO COMPLEX"' 


01020 


* THIS SECTION SENDS MESSAGE TO THE SCREEN * 


00470 


CNERR DEFM 'CAN NOT CONTINUE"' 


01030 


* 8 


00480 


NRERR DEFM 'NO RESUME"' 


01040 


lIKlniUlllIllltlll'lMKlUIKUIIIIIilllllll 


00490 


RUERR DEFM RESUME WITHOUT"' 


01050 OUTPT CALL 28A7H ;DISPLAY STRING TO SCREEN 


00500 


UEERR DEFM 'UNPRINTABLE'" 


01060 


LD HL,191DH :P0INT TO 'ERROR' MESSAGE 


00510 


MOEKR DEFM 'MISSING OPERAND"' 


01070 


PUSH HL ;SAVE IT 


00520 


FDERR DEFM BAD FILE DATA"' 


01080 


LD HL,(40EAH) 


00530 


L3ERR DEFM 'DISC BASIC ONLY"' 


01090 


EX (SP).HL 


00540 




01100 


CALL 28A7H 


00550 


r>«ll«ll>lll>tlllll«l>l)lllilll>ll>IIIIMM»l>*il»MIU> 


OHIO 


POP HL 


00560 


:* * 


01120 


LD DE.OFFFEH 


00570 


;* THIS SECTION IS A TABLE OF MESSAGE ADDRESSES * 


01130 


RST 18H 


00580 


:* * 


01140 


JP Z.0674H 


00590 


:i)iiii»->t>i>ti<«<i<>>ii<iili>ii»ni>ll»lit>iil>lllll 


01150 


LD A.H 


00600 




01160 


AND L 


00610 


TABL DEFU NFFRR 


01170 


INC A 


00620 


DEFU SNLRR 


01180 


CALL NZ.0FA7H 


00630 


DEFU RGERR 


01190 


LD A.0C1H 


00640 


DEFU ODERR 


01200 


CALL 038BH 


00650 


DEFU FCERR 


01210 


JP 1A1FH 


00660 


OE^'U OOLRR 


01220 


END 




Program 


Listing 3. 
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ZIP UP YOUR 
. MODEL I 



SPEED-UP UNIT - an easy to install electronic device that enables programs 
to run 2 to 3 times taster. It's the fastest and finest quality speed-up unit 
on the market. 

• guaranteed to double processing speed - no additional 
purchases required. 

• programs will run up to 3 times faster (5.3 mhz) by adding 
a Z80B microprocessor and delay line - not supplied. 

• returns automatically to normal speed during disk and 
cassette operation - no software patches required. 

• keyboard power-on light changes color to indicate operating 
speed. 

$45.00 



VIDEO I. Reverses the video display to provide black characters and 
graphics on an all white screen tor a much easier to read presentation. 
Software controlled. Cures pulling and distortion problems commonly ex- 
perienced with TRS-80 monitors. For use with TRS-80 monitors only. 
Assembled. 
$2400 

"SATISFACTION GUARANTEED" 



Add $2.00 postage & handling - California residents add 6"/i sales tax 
-Foreign orders add 15%. 



ARCHBOLD ELECTRONICS 

10708 Segovia Way Rancho Cordova, CA 95670 

(916) 635-5408 

Dealer inquiries invited 



MOVING? 

Let us know 8 weeks in advance so that you won't miss a sin- 
gle issue of 80 Microcomputu j. 

Attach old label where indicated and print new address 
in space provided. Also include your mailing label 
whenever you write concerning your subscription. It 
helps us serve you promptly. 



[] Address change only 

□ Extend subscription 

D Enter new subscription 

□ 1 year $25.00 



□ Payment enclosed 

(1 extra BONUS issue) 
D Bill me later 



80 MICROCOMPUTING 



// you have no label handy, print OLD address here. 
Call 



2 Name 



Address 



t City. 



State. 



print NEW address here: 



Name 



Call 




SPECIAL DELIVERY 



WORDPROCESSING 

- POWER - 

for the TRS-80® 

If you're presently looking for a mailing list proc- 
essor, this represents the current state of the art." 

80 MICROCOMPUTING - 80 REVIEWS - JULY 1980 

MAILFORM is data entry at its best, just fill in 

the form! FAST, EASY to use functions include: 

search, sort, extract, page forward and back. 

Transparent cursor', insert/delete characters, 

and MORE! 

MAILRTTE prints 'personalized' form letters 
by inserting information from MAILFORM into 
Electric Pencil*, Scripsit* or BASIC text files. 
Print letters, labels, even envelopes! Boldface, 
underscore, change margins, pause, print 
'unprintable' characters, and MORE! 

XTRA! includes: MAILFORM; MAILRITE - 
with capability of printing variable text from 
a 'key' file; MAIL ABEL - 1, 2, 3, or 4 across 
label printer; and MAILSORT - sort a full 

40 track double density data diskette in 

only 48K! 

ALL MACHINE LANGUAGE 

means unsurpased 

SPEED. RELIABILITY & EASE OF USE 
For VISA, Master Card & COD orders only 

Call NOW - TOLLFREE 

(800) 824-7888 

ASK FOR OPERATOR 203 

California (800) 852-7777 

Hawaii & Alaska (800) 824-7919 

For more information call (214) 233-3998 

(Requires min 32K single disk drive) 

FOR THE MODEL I & ffl 

SPECIAL DELIVERY $125 

XTRA SPECIAL DELIVERY ..$199 
FOR THE MODEL II 

SPECIAL DELIVERY $199 



(R«quir«a Mod II DOS v.ri.on 2.0) 






software concepts 

13534 Preston Rd. Suite 142 
Dallas, Texas 75240 



Dealer Inquiries invited ^299 



■ See List ol Advertisers on page 386 
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UTILITY 



Store source and object code on disk with this Microsoft program. 



Modifying EDTASM Plus 



Arne Rohde 
Pilevel 31 
7600 Struer 
Denmark 



One of the main problems 
with converting from a 
tape-based TRS-80 to disk drives 
is that many programs use tape 
for data storage. Conversion is 
usually no problem with Basic 
programs, since the user has ac- 
cess to the source code and 
relocation is handled by the 
Basic interpreter. System pro- 
grams are often more problem- 
atic. Relocation is complicated, 
if the source code is not avail- 
able, and is desirable, if DOS 
facilities are needed and the 
program storage area conflicts 
with the DOS storage area. 

The common solution is to 
move the program in memory so 
it can be loaded with DOS, then 
move it to its correct location, 
destroying the DOS. The DOS fa- 
cilities, such as data storage on 
disk, are no longer available, 
and the user is forced to contin- 



ue to use tape for this purpose. 

Microsoft Editor/ Assembler Plus 

Microsoft's Editor/Assembler 
Plus is tape-based. It was in- 
tended to replace Radio Shack's 
EDTASM and T-Bug, offering 
more facilities at a lower price. 
The disadvantage is that no 
modification is available allow- 
ing it to be used on a disk-based 
system to store source and ob- 
ject code on disk. 

Apparat Inc. has made a 
modification to Radio Shack's 
EDTASM which allows it to be 
used with TRSDOS or NEWDOS. 
It comes with NEWDOS/80, but 
the user must purchase the 
Radio Shack version to obtain 
the documentation. There are 
still advantages to using the 
Microsoft version, such as a 
macro facility, the ability to 
generate code directly into 
memory, and the option of leav- 
ing the source in memory while 
the program is debugged with 
Z-Bug. 

I have used both and prefer 
the Microsoft version for most 
purposes, even though it lacks a 
cross-reference listing facility. 
The program itself uses almost 
12K storage when all modules 



are resident, so the sheer size of 
the task puts relocation out of 
the question for me. However, 
relocation is the only way to 
store source code on disk. If the 
Dump command could be used 
to move the source to disk and 
Load used to reload it into 
memory before the assembler is 
moved into position, the source 
code need not be stored on tape. 
Since object code can be gen- 
erated directly into memory (as 
long as it does not conflict with 
the assembler), Dump can also 
be used to store the object code 
on disk. In certain cases it may 
be necessary to write the object 
code to tape, and then copy it to 
disk with TAPEDISK or similar 
utility. 

Modifying EDTASM/Plus 

I have not been able to find 
any free memory within ED- 
TASM/Plus, so the modifica- 
tions must be made by removing 
commands and using up the re- 
sulting space by appending the 
utility onto the end of the code 
and forcing the program to re- 
gard this as reserved memory or 
by locating the utility at the high 
end of memory and forcing the 
program to avoid this area. 



I rejected the first approach, 
since none of the commands 
seem dispensable. The third ap- 
proach requires different proce- 
dures for different memory sizes 
and restricts the routines which 
can be located in this area. I 
chose the second approach, 
even though it has one major 
disadvantage— quashing the 
assembler or Z-Bug destroys the 
modification. However, if quash- 
ing is necessary, the advan- 
tages of having all three rou- 
tines available simultaneously 
would no longer apply. Since I 
have 48K available (over 32K 
free), large programs can usual- 
ly be written without a need to 
quash. 

EDTASM/Plus occupies the 
area frcm 4380H - 7265H, but 
source code is written from 
71C9H, the remainder being 
one-time code. I use the area 
from 7266H - 72FFH, allowing 
the source code to begin at 
7300H. I also use the area nor- 
mally used by the Quash com- 
mand. When I store programs 
such as EDTASM/Plus on disk, I 
save more memory than is nec- 
essary in order to recreate the 
original program environment 
as closely as possible without 
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leftovers from DOS. I do this by 
storing the contents of reserved 
memory from 4000H to the be- 
ginning of the program, together 
with the program itself. The 
modifications shown in the Pro- 
gram Listing can be applied by 
using the following sequence, 
using RSM2D as the monitor. 

1. Load RSM2D. 

2. Reset with the break key 
held down. 

3. Answer the memory size 
question with a specific 
value. 

4. Type System. 

5. Load EDTASM/Plus. 

6. Enter RSM20 by typing/en- 
try address. 

7. Type in the changes shown 
in the Listing. (You must sup- 
ply the hex values of the text 
strings.) 

8. Move the area 4000H- 
7305H to 5200H-8505H. 

9. Press reset to load the DOS. 

10. Dump the area from 5200H 
- 8505H to disk, with either 
84F0H or no transfer point. 

11. If DOS transfer is used, 
Dump 8500H - 8505H. and 
transfer 84F0H as a dummy 
source module. 

The procedure for initiating 
the assembler (assuming DOS 
entry point) is now as follows: 

1. Type EDTASM (if EDTASM 
/Plus is stored as EDTASM/ 
CMD). 

2. Type the name of the 
source file to be loaded. 

If 84F0H is used as transfer 
point for EDTASM, Load must 
be used for EDTASM when a 
source file is to be loaded im- 
mediately afterward. 

When a source file is to be 
saved on disk, command Q is 
used (for Quit, instead of Quash) 
to move the source in memory 
and to display the values to be 
used for the Dump statement. 
Note these values since the 
screen will be erased as soon as 
the space key is depressed. The 
Dump command should be used 
as soon as DOS has been load- 
ed. The source files are not di- 
rectly transferable to other 
assemblers, although a conver- 
sion program could easily be 
written. The source could also 
be transferred via cassette tape. 

Comments 

The modifications may need a 



few comments. I found that the 
Q command resides in the area 
646CH - 64B3H. The command 
table address starts at 4659H, 
with one byte for the command 
code and two bytes for the ad- 
dress of the corresponding rou- 
tine. These values should be 
checked before the modifica- 
tions are applied. I used the ED- 
TASM/Plus warm entry point 
(4383H), since source code is 



present on entry. This entry 
skips the check for the end-of- 
memory address (normally all 
memory is used with no check 
for reserved memory), so this ad- 
dress must also be set up. I use 
this opportunity to reserve mem- 
ory to advantage. I have a driver 
for an RS232 printer resident 
here, so it may be used with ED- 
TASM/Plus. Also, I leave room 
for RSM2D or other code as re- 



quired. 

The source start and end ad- 
dresses are stored together with 
the source code in the four bytes 
at 8500H. When command Q is 
used, the source code and ad- 
dresses are moved in memory, 
but no check is made for mem- 
ory overflow. A check could be 
made that the new end address 
does not exceed the address in 
location 4236H, though it should 











Program Listing. 










00100 


t CHANGES TO MICROSOFT EDT ASM-PLUS TO ALLOW FOR STORING 








00110 


.•ASSEMBLER TEXT 


ON DISK 










00120 


PROGRAMMED BY 


ARNE ROHDE, STRUER, DENMARK, SEPTEMBER 1980 








00130 


; COMMAND Q USED 


TO EXIT AND MOVE SOURCE IN MEMORY 




8500 




00140 


BFSTAD 


EQU 


8500H 


; STORE BUFFER START ADDR 




8502 




00150 


BFENAD 


EQU 


BFSTAD+2 


; STORE BUFFER END ADDR 




8504 




00160 


BUFFER 


EQU 


BFENAD+2 


; STORE TEXT BUPFER 




EBFF 




00170 
00180 


MEMEND 


EQU 


0EBFFH 


; MEMORY END, ROOM FOR RSM2D 
; PRINTER DRIVER, ETC 




646C 




00190 




ORG 


646CH 


;Q COMMAND AREA 




646C 


2A3242 


00200 




LD 


HL r (4232H) 


I END OF SOURCE PTR 




646F 


E5 


00210 




PUSH 


HL 


; STORE END ADDR 




6470 


ED5B3042 


00220 




LD 


DE,(4230H) 


; START OF SOURCE 




6474 


D5 


00230 




PUSH 


DE 


; STORE START ADDR 




6475 


23 


00240 




INC 


HL 


; INCLUDE FFPF END MARK 




6476 


E5 


00250 




PUSH 


HL 


; STORE ADDR 




6477 


23 


00260 




INC 


HL 






6478 


AF 


00270 




XOR 


A 


;CLR CARRY 




6479 


ED52 


00280 




SBC 


HL,DE 


.-FIND MOVE LENGTH 




647B 


44 


00290 




LD 


B,H 






647C 


4D 


00300 




LD 


C,L 


;XFER TO BYTE COUNT 




647D 


210385 


00310 




LD 


HL,BUFFER-1 


;DEST ADDR -1 




6480 


09 


00320 




ADD 


HL,BC 


;+ LEN - END ADDR 




6481 


EB 


00330 




EX 


DE r HL 


•DEST ADDR TO DE 




6482 


El 


00340 




POP 


HL 


; SOURCE ADDR 




6483 


D5 


00350 




PUSH 


DE 


; STORE END ADDR 




6484 


EDB8 


00360 




LDDR 




{MOVE TEXT 




6486 


Dl 


00370 




POP 


DE 


;END ADDR AGAIN 




6487 


El 


00380 




POP 


HL 


; START ADDR 




6488 


220085 


00390 




LD 


(BFSTAD) ,HL 


; STORE WITH TEXT 




648B 


El 


00400 




POP 


HL 


;END ADDR 




648C 


220285 


00410 




LD 


(BFENAD) , HL 


; STORE IT AS WELL 




648F 


219C72 


00420 




LD 


HL,TEXT+37 


{END ADDR TEXT 




6492 


7A 


00430 




LD 


A,D 






6493 


CD6672 


00440 




CALL 


CNVL 


{CONVERT MSD TO HEX 




6496 


7A 


00450 




LD 


A,D 






6497 


CD6A72 


00460 




CALL 


CNVR 


{CONVERT LSD TO HEX 




649A 


7B 


00470 




LD 


A,E 






649B 


CD6672 


00460 




CALL 


CNVL 


{CONVERT MSD TO HEX 




649E 


7B 


00490 




LD 


A,E 






649F 


CD6A72 


00500 




CALL 


CNVR 


{CONVERT LSD" TO HEX 




64A2 


217772 


00510 




LD 


HL,TEXT 






64A5 


CD3245 


00520 




CALL 


4532H 


{WRITE TO SCREEN 




64A8 




00530 


WTENT 


EQU 


$ 






64A8 


3A4038 


00540 




LD 


A r (3840H) 


{KEYBOARD MEMORY 




64AB 


E6 80 


00550 




AND 


80H 


{ISOLATE SPACE 




64AD 


28F9 


00560 




JR 


Z, WTENT 


{NOT SPACE KEY 




64AF 


C30000 


00570 




JP 





{BOOT SYSTEM 








00580 


; COULD 


CONT TO 


64B3H, END OF Q 


COMMAND 








00590 


f 














00600 


;END OF 


EDTASM 


- EXTRA MEMORY 


RESERVED 




7266 




00610 




ORG 


7266H 










00620 


; CONVERT M9BL1 


TO HEX CHARACTER 


7266 




00630 


CNVL 


EQU 


$ 






7266 


0F 


00640 




RRCA 








7267 


0F 


00650 




RRCA 








7268 


OF 


00660 




RRCA 








7269 


0F 


00670 




RRCA 




{MOVE MSD TO LSD 




726A 




00680 


CNVR 


EQU 


$ 






726A 


E60F 


006 90 




AND 


0FH 


{REMOVE UNWANTED 




726C 


F630 


00700 




OR 


30H 


{ASSUME NUMERIC 




726E 


FE3A 


00710 




C? 


3AH 


{CHECK ALPHA 




7270 


3802 


00720 




JR 


C, HEXOK 






7272 


C607 


00730 




ADD 


A,07H 


{CONVERT TO A-F 




7274 




00740 


HEXOK 


EQU 


$ 






7274 


77 


00750 




LD 


(HL),A 


{STORE IN TEXT 




7275 


23 


00760 




INC 


HL 






7276 


C9 


00770 




RET 








7277 


0A0A 


00780 


TEXT 


DEFW 


0A0AH 


{LF LF 




7279 


44 


00790 




DEFM 


'DUMP FILENAME 


(START«X' 

Program Listing continues 
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Program Listing continued 












728F 


27 


00800 




DEFB 


27H 






7290 


38 


00810 




DEFM 


'8500' 






7294 


27 


00820 




DEFB 


27H 






7295 


2C 


00830 




DEFM 


' ,END=X' 






729B 


27 


00840 




DEFB 


27H 






729C 


58 


00850 




DEFM 


'XXXX' 






72A0 


27 


00860 




DEFB 


27H 






72A1 


2C 


00870 




DEFM 


1 ,TRA=X* 






72A7 


27 


00880 




DEFB 


27H 






72A8 


38 


00890 




DEFM 


■84F0' 






72A9 


27 


00900 




DEFB 


27H 






72AD 


29 


00910 




DEFM 


*) ' 






72AE 


0A 


00920 




DEFB 


0AH 




;LINE FEED 


72AF 


28 


00930 




DEFM 


'(SPACE) TO 


BOOT' 


72BE 


0A 


00940 




DEFB 


0AH 




;LF 


72BF 


80 


00950 
00960 




DEFB 


BIB 




.•TERMINATE TEXT 






00970 


.•ENTRY POINT AFTER EDTASM MOVED 


IN MEMORY 


72C0 




00980 


BEGIN 


EQU 


$ 






72C0 


318043 


00990 




LD 


SP,4380H 




; STACK FOR EDTASM 


72C3 


2A008S 


01000 




LD 


HL,(BFSTAD) 




;TEXT START ADDRESS 


72C6 


223042 


01010 




LD 


(4230H) ,HL 




; STORE IN EDTASM 


72C9 


E5 


01020 




PUSH 


HL 






72CA 


2A0285 


01030 




LD 


HL, (BFENAD) 




;TEXT END ADDR 


72CD 


223242 


01040 




LD 


(4232H) ,HL 




; STORE IT 


7201 


23 


01050 




INC 


HL 






72D1 


23 


01060 




INC 


HL 




;PAST FFFF TERMINATOR 


72D2 


Dl 


01070 




POP 


DE 




;DEST FOR MOVE 


72D3 


ED52 


01080 




SBC 


HL,DE 




.•LENGTH FOR MOVE 


72D5 


44 


01090 




LD 


B,H 






72D6 


4D 


01100 




LD 


C,L 




.•STORE IN BYTE COUNT 


72D7 


210485 


01110 




LD 


HL, BUFFER 




.•START OF MOVE 


72DA 


EDB0 


01120 




LDIR 






jMOVE TEXT TO POSITION 


72DC 


21FFEB 


01130 




LD 


HL,MEMEND 




; EDTASM END ADDR (MODIFY) 


72DF 


223642 


01140 




LD 


(4236H) ,HL 






72E2 


2B 


01150 




DEC 


HL 






72E3 


223442 


01160 




LD 


(4234H) ,HL 




.•STORE EDTASM POINTERS 


72E6 


C38343 


01170 
01180 




JP 


4383H 




.•ENTRY TO LEAVE TEXT BUFFER 






01190 


; CODE 


ON ENTRY 


WHEN TEXT LOADED 




72F0 




01200 




ORG 


72F0H 






72F0 


F3 


01210 




DI 






; DISABLE INTERRUPTS 


72F1 


010633 


01220 




LD 


BC,3306H 




.-MOVE LENGTH 


72F4 


210052 


01230 




LD 


HL,5200H 




.•BUFFER FROM 


72F7 


110040 


01240 




LD 


DE,4000H 




;DEST ADDR 


72FA 


EDB0 


01250 




LDIR 








72FC 


C3C072 


01260 




JP 


BEGIN 




;G0 TO MOVE TEXT 


72FF 


00 


01270 




NOP 






;FOR 7300H 






01280 


;SET UP ADDRESSES AND TEXT 


END MARKER FOR EMPTY TEXT BUFFER 






01290 


; REQUIRED SINCE 


WARM ENTRY 


JSED, 


IF NO SOURCE MODULE LOADED 






01300 


;WILL 


BE OVERLAID IF SOURCE 


MODULE LOADED - 


7300 


0073 


01310 




DEFW 


7300H 




;TEXT START 


7302 


0073 


01320 




DEFW 


7300H 




,-TEXT END 


7304 


FFFF 


01330 




DEFW 


0FFFFH 




;END MARKER 


0000 




01340 




END 









be obvious from the values in 
the displayed message. The ini- 
tial values stored at 7300H are 
used to initialize the source pro- 
gram area if no source program 
is to be loaded; they will be over- 
laid if a source program is load- 
ed before executing the assem- 
bler. 

The solution I chose is not 
ideal for converting programs to 
run on DOS systems, but it is 
reasonably easy to implement. 
The alternative would be to pur- 
chase a more expensive macro 
assembler and forget all about 
Z-Bug or to attempt both a 
relocation and a modification of 
EDTASM/Plus to allow it to be 
resident with DOS. With those 
alternatives, you can easily live 
with a few shortcomings! 

I implemented the modifica- 
tions using NEWDOS/80 and 
RSM2D, but I can see no reason 
why they should not work with 
TRSDOS as well. In fact, the for- 
mat of the message with the 
Dump parameters has been cod- 
ed in the TRSDOS format rather 
than the NEWDOS/80 format, 
which, incidentally, is much 
simpler. 

The principles of these 
modifications are also appli- 
cable to other programs; I have 
converted Tiny Pascal to work 
with disk storage for source and 
P-code. It is now much faster 
and it is much more reliable than 
using tape.B 



GANTT-PACK 



EASY PROJECT PLANNING 

• Dynamic Scratchpad Entry 



UNIQUE PROGRAM FEATURES 



• Simple Editing/Updating 

• Automatic Organization • Rapid Screen Review 

• Graphics for Communications • Printer of Your Choice 

• Charts and Data to Screen and Printer 



E 



POWERFUL, FLEXIBLE, SYSTEM DESIGNED BY EXPERIENCED PROFESSIONALS 

• Now available for TRS-80* Model I, 48 K, 2 disks 

• TRS-80* Models II and III Versions by December, 1981 



LIBRA LABORATORIES, INC. 
495 Main Street 
Metuchen, NJ 08840 



^57 



Tel. (201) 494-2224 

Gantt-Pack ® Libra Laboratories, 1981 

PRICE $149.50 

*TRS-80 Trademark of Tandy Corp. 
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Not all Spelling Checkers are the same 



MICROPROOF 



T.M. 



stands out! 



EASY TO USE: Prepare your text on any Z-80 based micro- 
computer, using any of a number of popular word 
processing programs. When you are finished, enter the 
appropriate command, and MICROPROOF proofreads 
your document, displaying misspellings and typos on the 
screen. Then correcting MICROPROOF can display each 
error separately, requesting you to enter the correct 
spelling for each. You are also given the option of displaying 
errors in context or adding words to MICROPROOF's 
50,000 word vocabulary. Finally, MICROPROOF corrects 
your document. All in less than a minute. 



SELECT APPROPRIATE RESPONSE: 



CORRECT MISSPELLED WORD: 
LEAVE WORD "AS IS 
DISPLAY WORD IN CONTEXT: 
ADD WORD TO DICTIONARY: 

EXIT: 



ENTER CORRECT WORD 
HIT <ENTER> KEY 

? 



WORO: 
RESPONSE: 



(Your error) 



Correcting MICROPROOF Screen Display 

SPEED is the single most important factor in a dictionary 
program. All dictionary programs will find your potential 
errors but if the program is too slow, you are not likely to 
use it. MICROPROOF's speed is outstanding. It can proof- 
read a several page letter in 20 seconds. 



LOW PRICES: Standard MICROPROOF is available for 
either $89.50 (TRS-80« Models I or III ) or 
$149.50 (CP/M«, TRS-80* Model II and all others). The 
optional correction feature can be added at any time for 
an additional $60.00. Optional patches to integrate 
MICROPROOF into your word processing software can 
also be added at any time for an additional $35.00. 
(Integration patch not needed for Wordstar*.) 



MICROPROOF'S FULL 50,000 WORD VOCABU- 
LARY saves you time and allows you greater confidence 
in the lists of potential errors that MICROPROOF 
identifies. The mini-dictionary programs, with their 10,000 
and 20,000 word vocabularies, have many correctly spelled 
words omitted from their vocabularies. Consequentially, 
they identify as potential "errors" many words that are 
actually spelled correctly; five to ten times as many such 
words as does MICROPROOF. So, when you use 
MICROPROOF you will have far fewer extra words to 
evaluate, a major time savings. There will be less need to 
look up words in order to verify that they are m fact spelled 
correctly. The extra 30,000 words in MICROPROOF's 
vocabulary assures you confidence in the error lists that 
MICROPROOF generates. 

There are other proofreading programs available to choose 
from. Since MICROPROOF became available in December 
of 1980, a number of companies have announced programs 
with small dictionaries. It took us almost two years to 
develop MICROPROOF. During that time we were able to 
compress our full 50,000 word dictionary into a manageable 
size (fits on one single density 5'/ 4 inch disk). And we were 
able to design a proofing program which operates 
remarkably fast. The chart below illustrates the compara- 
tive advantages of MICROPROOF. 

ADVANTAGES OF MICROPROOF 

MICROPROOF OTHERS 
DICTIONARY (Mini- 

SOFTWARE Dictionaries) 



DICTIONARY SIZE 


50,000 Words 


20,000 Words 


DISK SPACE 


70.000 BYTES 


170,000 BYTES 


REQUIRED 


(fits easily on 




FOR DICTIONARY 


one 5 : „" disk) 




DICTIONARY 


VIRTUALLY 


EXTREMELY 


ENLARGEMENT 


UNLIMITED 


LIMITED 


SPEED-400 Words 


20 Seconds 


1 to 5 Minutes 


SPEED-3,000 Words 


1 Minute 


2 to 10 Minutes 


CORRECTION 


Optional 


Not Available 


FEATURE 








See your local microcomputer dealer or write io: 



CORNUCOPIA SOFTWARE 

Post Office Box 5028, Walnut Creek, California 945% • (415) 893 0633 ^378 
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Get yourself a reaj chill on 



HAUjOWEE 



in the nationwide 
CompuServe Adventure Tournament, 



Prizes: Grand Masters win two 

hours of free time on CompuServe. 

Runners-up win a CompuServe 
Adventure T-shirt (Grand Masters 
win this too.) 

Everyone who enters can, on 
request, receive a large poster of 
the Gray Morrow art on the opposite 
page in full color. We'll charge your 
account $2.00 for postage and 
handling. 

When? Starting at 6 PM local time on 

Friday, October 30, running through 
5 AM on Monday, November 2. 

How? Since this will be our first nationally- 
advertised tournament, we may 
have to make some last minute 
changes following our "in-house" 
tournament on Labor Day. So 
check the "What's New" section of 
the CompuServe Information 
Service for details preceding the 
contest. So enter. Collect treasures. 
Slay dwarves. And practice, prac- 
tice, practice. How else will we be 
able to afford the T-shirts? 



CompuServe 

5000 Arlington Centre Blvd. 
Columbus, Oh 43220 
Information Service Division 
(800) 848-8990 



^424 



If you're not already a member 
of the country's largest personal 
computer network, get on-line now! 

How does it work? 

Your computer talks to our computers. You 
need a modem and some special software. 
Software for the TRS-80 6 and Apple II* 
computers are available at many Radio Shack" 
outlets and all Radio Shack" Computer 
Centers. Atari" users can access the system 
via Telelink '" software. Persons owning other 
brands of computers or terminals can also 
purchase the CompuServe Information Service 
through Radio Shack*. In more than 260 
U.S. cities you can reach the CompuServe 
Information Service via a local phone call. The 
cost is $5 per hour, billed in minutes, to your 
charge card, for service between 6 PM and 
5 AM local time on weekdays and all day on 
Saturday, Sunday and most holidays. Limited 
daytime access is available at a higher rate. 

What do I get? 

There are more than 1 75 topics listed in the 
on-line index. Most first-time users are 
interested in: 

1. News, weather, sports. We offer the 
electronic editions of many of the major 
daily newspapers and the AP news and 
sports wires. 

2. CB simulation. "Talk" to other computer 
users anywhere in the country. We also 
offer electronic mail. 

3. Games. Many, including the multi-player 
Space War, Star-Trek, four Adventure 
games. 

4. Finance. Again, a wide variety for both 
historical and current data on stocks, bonds 
and commodities. 

5. Computer user groups (including national 
bulletin boards) and computer 
manufacturers' newsletters. 

6. Home information. Family Service. 
Government publications. Aviation news. 
Energy-saving tips. And more. 

When you are ready, CompuServe Information 
Service can provide you with a lot of big 
mainframe computer power. But see a 
demonstration at Radio Shack* right away so 
you can get on-line before the tournament. 

Radio Shack and TRS-80 are trademarks of Tandy 
Corporation ATARI and Telelink are trademarks of ATARI, 
Inc Apple is a trademark of Apple Computer. Inc 



■See List of Advertisers on page 386 
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TECHNIQUE 



An easier way for data entry. 



Formatted Screen Input 



F. Christian Byrnes 
83 Fairmount Ave. 
Hackensack, NJ 07601 



Entering moderate volumes 
of data into the TRS-80 can 
be frustrating. A Basic program 
displays a prompting message 
which requests the input of one 
or more fields of data. If more 
than one field is to be input, the 
operator must know to use a 
comma between them. 

Terminals attached to large 
systems enjoy the advantage 
of formatted screens. The 
operator sees the screen as be- 
ing divided into headings or 
titles and input fields. Data 
corresponding to each heading 
is entered following its 
heading and the cursor jumps 
from one field to the next as the 
data is entered. All of the 
headings remain unaltered in 
place until all of the data for 
that screen have been entered. 

Initially the TRS-80 does not 
appear to allow us the luxury of 
a formatted screen, but a little 
fancy footwork can change the 
operator's view of the computer 
drastically. 

Overview 

This program listing is an ex- 
ample of the formatting and in- 
put routines imbedded in a 
driver program to demonstrate 
how they may be used. Screen 
formatting is performed by the 
routine in statements 1100 and 



1110 using arrays OS and OS$. 
Array OS contains, in element 
zero, the number of field 
headings in this screen. Each 
element of the array thereafter 
contains the screen starting 
position of a heading. The 
elements of array OSS, starting 
with element one, contain the 
text corresponding to the posi- 
tions specified in OS. 

Input is accepted by a call to 
the routine at statement 900. 
This routine selects the next 
element from array OM and 
calls the subroutine at state- 
ment 1000 to position the cur- 
sor and read the keyboard. 
Array OM has two dimensions. 
Each element pair consists of a 
starting position and length for 
an input field. Element (0,0) 
contains a count of input fields 
for this screen. The accepted 
data is returned in variable OB$. 
Variable OE contains a pointer 
to the next element of OM. 

Logic 

The example program shows 
how to use these subroutines. 
Line one dimensions the re- 
quired arrays. Line 10 and 20 
load these arrays from data 
statements. In a disk system 
this information could easily be 
read from a file. 

Line 30 calls the screen for- 
matting subroutine. Upon 
return all of the headings have 
been placed in their proper 
positions on the screen. 

Line 35 calls the screen input 
procedure at line 900. Line 910 
tests variable OE. The number 



of the next array element of OM 
to be used as location and 
length of the input field is con- 
tained in OE. The calling pro- 
gram could change this value 
prior to a call in order to skip or 
repeat a field. If such a function 
is to be used, a device such as 
T-Beep would be needed to 
alert the operator to the 
change. 

Lines 920 and 930 set inter- 
nal variables XP and XL equal 
to the referenced elements of 



array OM and are followed by a 
call to the subroutine at line 
1000. This method was chosen 
so multiple format and input 
tables could be used within a 
single program. Modified ver- 
sions of lines 900 to 960 could 
be coded in a single program, 
each for a different screen for- 
mat, and all could call line 1000 
for input. 

• 1000 begins the keyboard 
input routine. 

• 1001 sets OB$ to null. 



1 CLEAR15BB:DIM OM(25,2) ,OS(5B) ,OSS(5B) 

5 DIM AA$(25) 

IB READ OM(B,B)sFOR OH-1 TO OM(8,8)iREAD OM(OH ,1) ,OM (OH ,2) :NEXT 

2B READ OS(B):FOR OH-1 TO OS(B)iREAD OS (OH ), OSS (OH) : NEXT 

3B GOSUB 11BB 

35 GOSUB 90 B 

48 AA$(OE-1)-OB$ 

5B IF OE<-OM(fl,B) THEN 35 

6B CLS: PRINT 'THANK YOU" 

7B 'PROCESSING ROUTINE GOES HERE 

80 FOR N-l TO OErPRINT AAS(N);" '»:NEXTN 

85 N$-INKEY$!lF LEN(NS)-B THEN 85 

9B GOTO 3B 

9BB 'INPUT ARRAY DRIVER 

918 IF OE-B OR OE>OM(B,B) THEN OE-1 

928 XP-OM(OE,l) 

938 XL-OM(OE,2) 

948 GOSUB 1BBB 

95B OE-OE+1 

968 RETURN 

1BB8 'GET FIELD 

1881 OBS-" 

18B2 PRINT3XP,CHR$(14) ; 

1884 FOR OC«l TO XL 

1885 OA$=INKEY$:IF LEN(OA$)-8 THEN 1085 
1818 IF OAS-CHRS(B) THEN GOSUB 1858 :GOTO1085 
1B12 IF OA$-CHR$(9) THEN OA$-CHR$(32) 

1815 IF OAS-CHRSI13) THEN OC -XL:GOTO 1038 

1B19 IF OA$>CHR$(98) OR OA$<CHR$(32) THEN 1BB5 

1B28 OB$-OB$+OA$: PRINT OAS; 

1B38 NEXT:PRINT CHR$ (1 5) j : RETURN 

1B5B ' BACKSPACE KEY PRESSED 

1855 IF LEN(OBS)-fl THEN OC=l:RETURN 

1060 OB$-LEFT$(OB$,LEN(OB$)-l) :PRINT CHRS(8); 

1865 OC-OC-1 

1070 RETURN 

1100 CLS:FOR OH-1 TO OS ( 0) : PRINTGOS (OH) ,OSS (OH) :NEXT 

1110 RETURN 

9000 DATA 15,208,40,272,44,336,15,359,2,367,5,459,3,463,3,467,4, 

476, 4, 525, 40, 671, 8, 735, 8, 841, 55, 9B5, 55, 969, 55 

901B DATA 11, 81, SAMPLE DATA COLLECTION SCREEN, 192 , ACCOUNT NAME , 2 

64, ADDRESS.328, CITY, 353, STATE, 363, ZIP, 448, 'TELEPHONE ( ) 

EXT:" 
9811 DATA 512, REFERRED BY, 652, FIRST ACTIVE DATE ,716 , LAST ACTIVE 
DATE, 8 3 2, COMMENTS 



Program Listing 
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Spelling Errors? Does your TRS-80* wordprocessor need help? 




T.M. 



CAN SPELL rendezvous AND mnemonic AND OVER 38,000 OTHER WORDS 

Now let TRS-80 and Proofreader by Aspen Software Company check your Scripsit*, Electric Pencil, or other 
documents for spelling and typographical errors. It has all the features needed to meet your proofreading requirements. 



• Checks every single word of even your biggest 

document in under 5 minutes. 

• The 38,000 word dictionary is one of the 

largest available. 

• Dictionary can be easily extended to add more 

words such as technical terms or names. 



• All unknown words are listed on the screen and 

can be saved on a file for printing. 

• Works with almost any TRS-80 wordprocessor 

including Scripsit and Electric Pencil. 

• Comes with complete and easy to understand 

User's Manual. 



• Proof -Edit™, optional interactive corrections feature for Model I /III 

QRAMMATiR" 



BEYOND SPELLING CHECKING 



A spelling checker may not be enough! This paragraph 
contains a number of common errors (indicated by 
underlining) that will be discovered by Grammatik that 
would seldom ever be caught by a spelling checker. 
FOr example. Grammatik checks for improper word 
usage as identified by a number of writing style man- 
uals (such as "[seldom ever). Grammatik will check for 
l he presence of certain words such as jargon or sexist 
terms. \t also checks for consistant punctuation, cap- 



italizAtion, balanced quotation marks and parentheses. 
and and repeated words. In addition, it will produce a 
list of all unique words found in your document with the 
number of times each was used. Grammatik comes 
with a dictionary of commonly misused phrases and a 
dictionary of sexist terms. It also includes a complete 
set of utilities to build., sort, and merge phrase and 
jargon dictionaries of your own. Works with Scripsit. 
Electric Pencil, and other standard TRSDOS text files. 



MODEL I Requires .UK RAM. I disk drive. TRSDOS or NEWDOS. 
MODEL II RequiresMK RAM. 1 disk drive. TRSDOS 2.0 

(can check 1 .2 tiles using XFERSYS) 

MODEL III Requires 32K RAM. 1 disk drive. TRSDOS 

Manual only, speeitv model (refundable) 



Proofreader 
$54.00 

$109.00 

$64.00 

$3.00 



Proof-Edit 
$30.00 

N/A 

$30.00 

$5.00 



Grammatik 
$49.00 

$99.00 

$59.00 
$5.00 



Aspen Software programs are professional quality 
software tools developed for the TRS-80 by a Ph.D. in 
Computer Science. Other tools include: 



— SOFT SCREEN ' " • a powerful, state of the art full 
screen text editor. Over a year in development. Soft- 
Screen is compatible with all TRS-80 programming 
languages, including BASIC. FORTRAN. MACRO. 
Ratfor. and COBOL. Easy to use. comes with tutorial 
and full documentation. 



— RATFOR. a structured language preprocessor 
for Fortran developed at Bell Labs. Aspen Software 
Ratfor provides a number of extensions, including 



"case" and "string". Includes complete manual with 
all the information needed to learn and write Ratfor 
programs. Requires FORTRAN. 

— PP-RATFOR. a pretty printer for use with Aspen 
Software Ratfor. Automatically formats and indents 
Ratfor source programs. 





Ratfor 


PP- Ratfor Both 


Soft-Screen 


MODEL I 


$49.00 


$30.00 $74.00 




$69.00 


MODEL II 


$99.00 


$49.00 $139.00 




$99.00 


MODEL III 


$59.00 


$34.00 $84.00 




$75.00 


Manual only(r 


efundable 


$12.00 




$15.00 


MODEL 


I. Ill require 


4HK. 2 drives. TRSDOS 






MODEL 


II requires 


MK. I drive. TRSDOS 2 







Please ca 


I or write for details about our wordprocc 


sor 


y 



,T.M 



. Ai , . , .. , ASPEN SOFTWARE 

Orders sent postpaid by first class mail. ■■■ Formerly ___ _,. ^449 

Terms: Cash, check, money order, VISA, or ™jL« SOFT-TOOLS n • u 

Master Card. NM residents add 4% tax. ggj ?? . mu «7n« 

When ordering, specify modek memory size, v ^* u hBto(l ,VJ»« 0*1 i«£ 

number of dri?es, and operating system. Dealer inquiries invited (505) 281-1634 

* Trademark of Tandy Corporation Proofreader, Grammatik, and Soft-Screen are trademarks of Aspen Software. 



-See LiSl of Advertisers on page 386 
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"The standard TRS-80 method of accepting input from its 
operator is about as efficient as punched card input." 



• 1002 turns on the cursor in 
the first position of the input 
field. 

• 1004 counts the number of 
characters Input up to the 
maximum field length. 

• 1005 accepts one character. 

• 1010 is used if the char- 
acter is a backspace. Go to 
the subroutine at 1050 (see 
below), then go to 1005. 

• 1012 is used if the char- 
acter is a forward arrow; 
turn it into a space and con- 
tinue. 

• 1015 is used if the char- 
acter is the enter key, then 
the field is complete, so 
make the field length equal 
the maximum field length 
and then go to line 1030. 

• 1019 is used if the char- 
acter is neither alphabetic 
nor numeric; discard it and 
accept the next character by 



going to line 1005. 

• 1020 appends the char- 
acter to the previously ac- 
cepted characters and dis- 
plays it on the screen. 

• 1030 repeats until the max- 
imum field length is achieved, 
then turns off the cursor and 
returns to line 950. 

Line 950 increments OE to 
point to the next element of ar- 
ray OM in preparation for the 
next call to this routine. It then 
returns to the calling program 
with variable OB$ containing 
the requested input string. 

The subroutine at line 1050 is 
called from line 1010 if the input 
character is a backspace. Line 
1055 handles a backspace from 
the first position of a field and 
prevents the cursor from mov- 
ing into the title field. Lines 
1060 and 1065 handle all other 
backspace conditions followed 



by a return to the input process- 
ing in the middle of line 1010. 

Usage 

In this example the calling 
program consists of lines one 
through 90 and provides no 
function other than data ac- 
cumulation of a single screen. 
Rudimentary validation of the 
contents of OB$ between calls 
to the input array driver at line 
900 is possible, but more exten- 
sive processing could cause 
the operator to overrun the in- 
put capabilities of the program. 
Any delays caused by in- 
put/output should be isolated 
to the time between screens or 
even better, after all input is 
complete. This, of course, will 
depend upon available storage. 

Summary 

The structure of these rou- 



tines was chosen to facilitate 
their usage in as many pro- 
grams as possible. This build- 
ing-block approach will help to 
speed development of future 
programs. In keeping with this 
design technique, we have des- 
ignated certain variables as be- 
longing to common routines. 
The letters O and X are the initial 
letters of all variables within 
these routines. Additionally, al- 
though this listing does not 
demonstrate it, we have re- 
served variables starting with 
the letter Z for binary flags 
(yes/no). 

Data collection is an impor- 
tant part of many applications. 
The standard TRS-80 method of 
accepting input from its 
operator is about as efficient 
as punched card input. These 
routines could speed up file 
building. ■ 



ISO 1 




Pal #4.259705 



ISO 2 



DISK DRIVE WOES? 
PRINTER INTERACTION? 
MEMORY LOSS? 
ERRATIC OPERATION? 

Don't 

Blame The 
Software! 

Power Line Spikes, Surges & 

Hash could be the culprit! 

Floppies, printers, memory & processor often interact! Our 

patented ISOLATORS eliminate equipment interaction AND curb 

damaging Power Line Spikes. Surges and Hash. 

• ISOLATOR (ISO-1) 3 filter isolated 3-prong sockets; integral 
Surga/Spiks Suppression; 1875 W Maximum load. 1 KW load any 
socket $82.95 

• ISOLATOR (ISO 2) 2 filter isolated 3-prong socket banks; (6 
sockets total); integral Spike/Surge Suppression; 1875 W Max 
toad, 1 KW either bank $62.95 

• SUPER ISOLATOR (ISO-3), similar to ISO-1 except double 
filtering & Suppression $94.95 

• ISOLATOR (ISO-4), similar to ISO-1 except unit has 6 
individually filtered sockets $106.95 

• SUPER ISOLATOR (ISO-1 1) similar to ISO 2 except double 
filtering 1 Suppression $94.95 

• CIRCUIT BREAKER, any model (add-CB) Add $ 8.00 

• CKT BRKR/SWITCH/PILOT (CBS) Add $16.00 

Master-Card, Visa, American Express 
Order Toll Free 1-800-225-4876 
(except AK, HI, PR A Canada) 



AT YOUR 
OEALERS 



L±zJ Ele ctron ic Specialists. Inc 

1T1 South Ma.n Sf'»ef N*u<t Mas-. 01760 

Technical & Non 800 1 617 655 1532 




STARDATK 12756 .'} An explosion has destroyed the mam engines 

aboard the deep space explorer, the AKGl'S The ship is drifting with only 
manuvering power. The life support systems are failing and the main radios are 
dead Ahead lies Spaces! at ion AI.l'ILV A frantic call lor help on the emergency 
Iransmilter brings only silence. Your only chance for survival is to reach the 
safely of Spacestaiion ALPHA 

SPACE STATION ALPHA DEAD AHEAD. 
THE DOCKING LAMP IS LIT 



For an out of this world m 
MfMM/cMwcttt 



MCiy. order this classic machine language adventure 
884.96 disc (LS-16K (earn UK <Um) MOD1.3 



fEDI'-WAHE EAST 

r_ \ p.o. Bo« aae 

W 1 >1»yii*rd, Mm*. 

E/ ei7s« 

817-S«JMt64l 

^477 




Visa. Mastercard aad phoae 
orders aascptcd. Mass. resident* 
add B<* tax. Overseas orders add 
"8 for air shlpaacat. Ash aboat 

our cassette duplicating Mrrln. 
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BISK 111 



100% Compatible 



Model III Disks 



Complete Business 
System includes: 
48K TRS-80™ Model 
III, Disk III™ 2 Drive 
System, TRSDOS 
and Manual. 



$1882 




DISK III Single 

drive assy 1 $599.00 
DISK III Two 

drive assy 864.00 
DISK III Assy 

w/out drives 435.00 
TRSDOS™ & 

Manual 21.90 

External drives 

(3&4) 299.00 



IMMEDIATE DELIVERY - COMPARE AND SAVE 

VR Data's DISK III features: 

• Completely compatible with TRSDOS 

• State-of-the-art circuitry 

• Fully tested, calibrated & burned-in 

• Up to 4 drive configuration 

• Heavy duty linear power supply 

• Warranty 120 days - 100% parts and labor 

• Installation with simple hand tools 

• Optional 80 tk and 2 sided drives 

• READ 40 - Pgm. to read 40 tk. Diskettes 
on 80 tk. Drives $25.00 

DISK III single drive assembly includes: one 40 controller, mounting hardware, and applicable 
track 5%" double density drive, power supply. cables 

OTHER PRODUCTS 

SUPERBRAIN 64K 
PARALLEL PORT — 

SUPERBRAIN 
MOTOR MINDER" 

FOR SUPERBRAIN 
DISK & MYSTERIES 
BASIC & MYSTERIES 
NEW— 
LDOS Operating 

System 
COMING SOON!! 
5/10 Meg WINCHESTER for 
MOD III 
Internal MODEM for MOD III 



Peripheral* 

Epson MX80 


$500.00 


MODEL l/lll OQQ 
EXTERNAL DRIVEvJ>*£ / / 


Epson MX80FT 


625.00 


W/ PS & ENC 


■*■ 


EPSON MX100 


$800 00 


Fully Compatible 


HI 


Centronics 739 


750.00 


120 day warranty 


VII 


Starwriter25(P) 


1395.00 


Easy installation 


^Ui 


RS-232 Model III 


75.00 


80 tk or 2 sided 


$419.00 


Lexicon Modem 


125.00 


80tk&2sided 


549.00 



IF YOU DONT SEE IT ADVERTISED CALL US AND ASK FOR IT. 

PUBLISHED PRICES REFLECT CASH DISCOUNT. 

ALL PRICES ARE SUBJECT TO CHANGE WITHOUT NOTICE. 

TRS-80 and TRSDOS are trademarks of Tandy Corp. 

DISK III is a trademark of VR Data Corp. 

Dealership available. To order can toil ir»« 800 345-8102 or (2is) 46i-5300 m pa. 



2990.00 

99 95 

149.95 
22.50 
29.95 



149.00 




tr 



VR Data Corporation 

777 Henderson Boulevard • Folcroft, PA 19032 



.- bre List Ol *iv*-rsi-s on age 396 
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TECHNIQUE 



:■ 



A loop in a nest slows you in a rush. 



Thoughts on For . . . Next 



Richard Amyx 

994 North Second St. 

San Jose, CA 951 12 



Awhile ago I was tinkering 
with a little game I'd found 
in a book, the gist of which was 
to keep tabs on a nine-element 
array and to toss out array 
elements as certain conditions 
were met. The listing was rela- 



tively short and had no terribly 
complicated statements, so I 
keyed it in without paying much 
attention to what was going on 
within the program. 

The routine was query/re- 
sponse, next query/response, 
and so on, with virtually no time 
lag between my responses and 
the next query— until the fifth 
or sixth response, at which 
point the program appeared to 
take off into outer space. After 
waiting a reasonable length of 
time I broke out of the program 
and proofread my keypunching 
around the break— no errors. 

So I tried again and got the 



Uppar 


Total 


% ot 


Limit 


Iteration* 


Maximum 


9 


7380 


1000 


« 


4680 


634 


7 


2800 


379 


6 


1554 


21.1 


5 


780 


10.6 


4 


340 


56 


3 


120 


16 


2 


30 


0.4 



Table 1. Four-deep For loops. 



same result. But this time I 
decided to wait the machine 
out. When I eventually returned 
to the computer, I found that 
the program had indeed gone 
on as it should have. Why, I 
wondered, the sudden quan- 
tum leap in time between 
response and query? 

I then looked at the program 
more closely where I'd broken 
out of it the first time, and 
found that the break had been 
in the middle of a sequence 
that looked like this: 



10 FOR 1 - 


1 TO 9 


20 FOR J - 


1 TO 9 


30 FOR K - 


1T09 


40 FOR L « 


1T0 9 


100 NEXT L 




110 NEXT K 




120 NEXT J 




130 NEXT 1 




140 GOTO xxx 



It didn't take too much 
button-punching to learn that if 
this nest of For loops went all 
the way through it would re- 
quire 7380 (9 + 92 + 93 + 9*) 
total iterations. Combine that 



with a couple of If statements 
in the middle, and you can bet 
you're going to have to wait for 
a response. 

Then looking at the program 
even more closely, I decided 
that It would require very little 
housekeeping to reduce the 
length of the array, and hence 
the upper limit of these For 
statements, as the game pro- 
gressed. I wondered how much 
time could be saved if this one 
change were made. The givens 
were that the For loops would 
remain four deep and that the 
equation for the total number 
of iterations required was Y = 
N + N2 + n3 + n 4 , where N 
was the upper limit of the For 
loop. A little more button- 
punching yielded the numbers 
in Table 1. 

The numbers of iterations 
themselves ought to be im- 
pressive—certainly they're big 
enough— but what's even more 
important are the differences 
between them and the percent- 
age of maximum time those dif- 
ferences represent. This is 
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TRS-80® sonSfARE TRS - 80 ® 



MODEL III SOFTWARE 

26-1563 Scripsit I & III $79.00 

26- 1566 Visicalc I $83.00 

26-1567 Visicalc III $83.00 

26- 1552 General Ledger $90.00 

26- 1553 Inventory Ctl $90.00 

26-1556 Payroll $180.00 

26-1555 Accts. Receivable. . . . $135.00 

26-1554 Accts. Payable $135.00 

26-1558 Bus. Mail List $90.00 

26-2201 Fortron I $90.00 

26-1562 Profile $72.00 

Plus many more 

COLOR SOFTWARE 

26-3050 Chess $36.00 

26-3051 Quaser $36.00 

26-3052 Pinball $27.00 

26-3053 Football $36.00 

26-3055 Checkers $27.00 

26-3057 Dino Wars $36.00 

26-3059 Backgammon $27.00 

26-3152 Typing Tutor $27.00 




MODEL II SOFTWARE 

26-4530 Scripsit II $265.00 

26-451 1 Visicalc II $265.00 

26-4512 Profile II $162.00 

26-4501 General Ledger $180.00 

26-4502 Inventory Mgmt $180.00 

26-4503 Payroll $360.00 

26-4504 Accts Receivable $270.00 

26-4505 Accts Payable $270.00 

26-4507 Mail List II $108.00 

26-4701 Fortran $270.00 

26-4703 Cobol $270.00 

Plus many more 

POCKET SOFTWARE 

26-3510 Real Estate $22.50 

26-351 1 Civil Eng $22.50 

26-3513 Aviation $22.50 

26-3516 Bus Statistics $18.00 

26-3517 Bus. Financial $18.00 

26-3518 Per. Financial $18.00 

26-3514 Math Drill $13.50 

26-3515 Games $13.50 



.. 



ORDER TOLL FREEl-800-841-0860 

CALL US - SAVE MONEY 

We carry the full line of TRS-80 Computers. All TRS-80 software, 
furniture, and accessories sold at discount. We stock most items to 
assure you fast delivery and save you money. 

WRITE FOR FREE CATALOG 



WJCHQ MANAGEMENT SVBTEWS, IMC" 



No Taxes on Out Of 
State Shipments 



Immediate Shipment 
From Stock on Most Items 



DOWNTOWN PLAZA SHOPPING CENTER 

DEPT. I 4A 
115 C. SECOND AVE. S.W. 

CAIRO. GEORGIA 31728 

(912) 377-7120 Ga. Phone No. 

TRS M H roaittoroa 1 trooomorfc of tk» Tansy Corp. 



Thousands of 
Satisfied Customers 



VISA And 
Master/charge Welcomed 



^See List ot Advertisers on page 366 
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publications for the TRS-80 Model III 

Mystery of the ROM Mystery of the DISKETTE 

Mystery of the DOS $19.95 each 

Must additions to the computer library of the serious 
programmer as well as the casually interested. Written 
in a technical, yet easy-to-read and understandable style 
Each book Includes: 

• detailed tables of contents and indexes, alphabetical 
and numerical tables with numerous cross references. 

• register setup going into routines. 

• register results coming out of routines. 

• detailed explanations on all routines, structures, 
codes, etc.; and not just a few ambiguous comments 

• Numerous summaries for ease of book use. 

Special ... all three $49.95 

SORT/CMD 

• multi-key (to 14 fields): Multi-tag (to 14 more fields) 

• sort any combination of variable type 

• integrates easily into any existing program 

$1 9.95 each Disk or non-disk; Model I or III; 32K or 48K 

PATCHES 

to allow operation of many Model I programs on the Model III: 

• LM OFFSET/CMD, Superzap/CMD* 

• RSM 2D/CMD 10K, 32K, 48K 3 

• Big Five Software Games (all games) 4 

$5.95 each Many more . . . send for brochure! 

DISK DIRECTORY INDEX PROGRAM (Model in only) 

• Maintain a master directory listing and file all diskettes 

• Index size limited only by diskette space available 
and number of diskettes on which the index will be 

maintained. 

• Summary by file name, diskette, or extension. 

Direct/BAS $14.95 

Direct/CMD $24.95 (enhanced, more powerful, faster) 

Send check or money order (Kansas residents 
add 3% sales tax) to: Twenty-First Century Software 
1607 North Cochran Hutchinson, Kansas 67501 
Call 316 663-1047 for additional information. 




Registered trademarks or products ol Tandy Corp . 'Appatat inc 
'Sman Systems Software. "Big Five Software Company 
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most strikingly illustrated by a 
graph (see Fig. 1). 

As you can see, once you get 
past an upper limit of six you're 
going to be making some very 
powerful time trade-offs for 
every increment in the upper 
limit of the loops. 

Getting back to the game, it 
appeared that the program 
usually wouldn't get into the 
heavy looping sequence until at 
least the third response, which 
meant that the upper limit 
could have been reduced from 
nine to seven and that a 62 per- 
cent saving in time might be 
realized. The next step, of 
course, was to test my 
hypothesis. 

To do this, I wrote a short pro- 
gram just like the example se- 
quence shown, filling in the 
dots with a couple of do- 
nothing If statements to in- 
crease overall execution time 
and thereby reduce the effect 
of my own reaction time on the 



stop watch. The results I got 
were (N again representing the 
upper limit of the loop index): 

N = 9. t = 46 sec 
M • S, t a 29 

N = 7, t = 17 

This was close enough to prove 
the theory. The execution of a 
very slow portion of the pro- 
gram could indeed be speeded 
up by at least 62 percent just by 
indexing the upper limits of the 
four For loops. 

The rule is simple: The 
amount of time it takes to ex- 
ecute nested For.. .Next loops 
increases by the power of the 
depth to which the loops are 
nested — two-deep loops, time 
squared; three-deep loops, time 
cubed; and so on. Obviously, 
the best solution is not to nest 
For loops any deeper than ab- 
solutely necessary, but if you 
must nest them deeply, then 
pay very close attention to the 
ranges of the loop indices. ■ 



Total 

Iterations 

Required 

(•/, of 7380) 



7380 
(100) 

7000 

(90) 

6000 
(80) 

(70) 
5000 

(60) 

4000 

(50) 

3000 
(40) 

(30) 
2000 

(20) 

1000 
(10) 



0123456769 

Upper Limit 

Fig. 1. Total iterations versus upper limit for four-deep For 
loops. 



PROGRAMMING TOOLS FOR YOUR 
TRS-80® MODEL I AND MODEL III 



INSIDE LEVEL II 

The Programmers Guide to the TRS-80 ROMS 

INSIDE LEVEL II is a comprehensive reference guide lo the Leve* 1 1 ROMs which allows 
the machine language or Basic programmer lo easily uli \ze (he sophisticated routines 
they contain Concisely explains set-ups calling sequences and variable passage lor 
number conversion arithmetic operations and mathematical functions as we" as 
keyboard tape and video routines Part II presents an entirely new composite program 
structure which loads under the SYSTEM command and executes >n both Basic and 
machine code with the speed and efficiency ol a compiler in addition the 18 chapters 
include a large body ot other information useful to the programmer including tape 
tormats RAM useage relocation ol Basic programs USR can expansion creating 
SYSTEM tapes ot you' own programs interlacing ol Basic variables direciiy with 
machine code a method of greatly increasing ine speed at which data elements are 
stored on tape and special precautions tor disk systems INSIDE LEVEL II is a dearly 
organ-2ed reference manual it is fully typeset and packed with nothing bul useful 
information it does not contain questions and answers ROM dumps or cartoons 
Includes update* for Model III. INSIDE LEVEL II $15.95 

SINGLE STEP THROUGH RAM OR ROM 

STEP80 allows you lo step througn any Basic or machine language program one 
instruction at a time and see the address hexadecimal value Ziiog mnemonic register 
contents and step count lor each instruction The lop l4imesofthevideoscreenareieft 
unaltered so that the target program may perlorm its display functions unobstructed 
STEP80 will follow program How right into the ROMs and is an invaluable aid in learning 
how the ROM routines lunction Commands include step (Iracel disassemble run in 
step mode at variable step rate display or alter memory or CPU registers |ump to 
memory location execute a CALL set breakpoints in RAM or ROM write SYSTEM 
tapes and relocate to any page n RAM The display may also be routed lo your line 
pnnte' through the device contro biock so custom print drivers are automaticaiy 
supported 
Specify Model I or Model III. STEPSO $16.95 

TELECOMMUNICATIONS PROGRAM 

This machine language program allows reliable high speed tile transfers between two 
disk based computers over modems or direct wire It is menu driven and extremely 
simple to use Functions include real -lime lermmai mode save RAM buffer on disk 
transmit disk file receive omary Mes. examine and modify UART parameters program 8 
custom log-on messages automatic 16-bit checksum verification of accurate transmis 
s.on and reception and many more user conveniences Supports line printers and 
lowercase characters With this program you will no longer need to convert machine 
language programs to ASCII tor transmission and you will know immediately if the 
transmission was accurate 
Specify Model I or Model IN. TELCOM.....S39.95 

PROGRAM INDEX FOR DISK BASIC 

Assempie an alphabetized index of your entire program horary Irom disk directories 
Program names and tree space are read automatically (need not be typed in) and may 
be alphabetized with a last Shell Metzner sort by disk or program The list may also be 
searched lor any disk program, or extension disks or programs added or deleted and 
the whole list or any part sent lo the printer Finally the list itseil may be stored on disk lor 
future access and update The best thing since sliced bread (January issue of 80 
Microcomputing) Works with TRSDOS NEWDOS and NEWDOS80 One drive and 
32K -equired 
Model I only. Model III version soon. INDEX $19.95 

4 SPEED OPTIONS FOR YOUR TRS-80 

The SK-2 clock modilication allows CPU speeds to be switched between normal an 
increase ol 50% or a 50% reduction selectable at any time without interrupting 
execution or crashing the program instructions are also given lor a 100% increase to 
3 54 MHz The SK-2 may be configured by the user lo change speed with a toggle 
switch or on software command It will automatically return to normal speed any time a 
disk is active requires no change to the operating system and has provisions for 
adding an LED to indicate when the computer is not at normal speed It mounts inside 
the keyboard unil with only 4 necessary connections lor the switch option (switch not 
included) and is easily removed il the computer ever needs service The SK-2 comes 
fully assembled with socketed iC's and illustrated instructions 
Model I only. SK-2. ....$24.95 



INSTANT ASSEMBLER 

The INSTANT ASSEMBLER is a new powertui tape -based assembler and delxiqqer 
for the TRS-80 Now you can assemble directly to memory and immediately debug your 
program with the built in single stepping debugger Umckly switch Irom assembler to 
debugger and back again without losing the source code This leature makes INSTANT 
ASSEMBLER an excellent learning tool for assembly language programming 
INSTANT ASSEMBLER is absolutely unique among tape based assemblers m thai it 
produces relocatable code modules that can lie linked with the separate LINKING 
LOADER which is supplied in two versions lor loading programs into either high or low 
RAM This lets you build long programs with small modules INSTANT ASSEMBLER also 
leatures immediate detection of errors as the source code is entered a compactly 
coded source format that uses t 3 as much memory as standard source and many 
operational features including single stroke entry ot DEFB and DEF W pinpoint control ol 
listings alphabetic listing ol symbol table separale commands for listing error lines or 
the symbol table block move function and verification ol source tapes 
INSTANT ASStMBLLR s debugger provides single stepping with lull register rt.spi.iy>. 
decimal or hex entry ol addresses forward or tiackward memory displays disassembly 
ol ot)|ect code .n memory memory display in ASCII formal and •«• to decimal or 
decimai-to-hex conversion T he single stepper win step one instruction .« a Inneu" .il.i 
last rale lo any defined address 

INSTANT ASSEMBLER occupies less than 8400 bytes ol memory in a I6K machine 
Irws wilt leave you enough memory lo write assembly .an. mage programs ot around 
2000 byles Th.s and its module link mg leature make INSTANT ASSEMBLER ideal lor 
users with only 16K machines The instruction manual may be purchased separately lor 
$5 which w.ii appty towards the purchase of the INSTANT ASStMBl LH 
Specify Model I or Model III. INTASM $29.95 

RAM SPOOLER AND PRINT FORMATTER 

This program is a lull feature print lormalt.ng package featuring user delineabieiinc and 
page length (w.th nne leeds inserted between words oi atlei punctuation) screen 
dump printer pause control and baud rale selection In addition printing is done Irom. t 
4K expandable butler area so thai the LPRiNT or LLIST command returns control lo Iho 
user while printing is being done ideal lor Select nc or other slow [winters Allows 
printing and processing lo run concurrently Output may in; directed lo wlhei the 
parallel port serial port or the video screen 
Specify Model I or Model III. SPOOLER $16.95 

MACHINE CODE FAST FOURIER TRANSFORM 

This complete package .nciudes 3 versions ol the machine language FFTASM routine 
assembled tor 16 32 and 48K machines a short sample Basrc program lo access 
them a I0K Basic program which includes sophisticated interactive graphing and data 
manipulation and a manual ol .nstiuctions and examples Ttie machine language 
subroutines use variables defined by a supporting Basic prajiam to make data entry 
and retrieval extremely last and easy lor custom implementation Tlvey perform 20 lo 40 
limes faster than their Base equivalent (256 points m 12 5 seconds) and require less 
than 1550 bytes of memory The FFT is useful .n analyzing slock market and comodily 
trends as wen as lor soeniilic inlormahon 
Specify Model I or Model III. FFTASM $49.95 

DUPLICATE SYSTEM TAPES WITH CLONE 

Make duplicate copies ol any tape written lor Level II They may be SYSTEM tapes or 
data lists The ine name load address entry poml and every byte (in ASCII lormat) are 
displayed on the video screen Model III version allows changing tape speed 
Specify Model I or Model III. CLONE $16.95 

RAMTEST FOR LEVEL II 

This machine language program is a very thorough test tor several types of RAM errors 
A complete test ol each individual bit m a 48K machine takes pjsl 14 seconds includes a 
separate test for power line glitches 
Model I only. RAMTEST $9 95 

EDIT BASIC PROGRAMS WITH ELECTRIC PENCIL 

Load Basic programs or any other ASCII data tile into the disk version of Electric Pencil 
lor editlmg One command Irom DOS quickly modilies existing liles lo Pencil formal 
One disk and 32K required 
Model I only. PENPATCH. ....$9.95 
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UTILITY 



Can you say "data?" 



Datafix 



A. J. Barnard, Jr. 

J. T. Baker Chemical Company 

Phillipsburg, NJ 08865 

A. D. Barnard 
Rensselaer Polytechnic 
Institute 
Troy, NY 12181 



The TRS-80 keypad can help 
you whenever you're enter- 
ing programs with long data 
statements— for example, 
music and graphics programs, 
science programs or long data 
lines to be POKEd into ma- 
chine-code routines. 

The keypad, you say, only 
allows you to use ten digits, a 
period (decimal point) and the 
enter key. You'll still have to 
enter the word data, any 
necessary commas and minus 
signs from the keyboard. 

Not necessarily. With the 
following routine, you can 



translate two or more con- 
secutive periods into the word 
data, a comma, or a minus sign. 
Datafix is a Basic routine for a 
Model I Level II TRS-80 that 
gives you the proper syntax 
from the keypad, using only 
four variables. 

Changing Code 

If you enter two consecutive 
periods after a line number, 
Datafix recognizes that the line 
is a data statement and, by 
POKEs, changes the first 
period to the word data (inter- 
nal code 136) and the second to 
a space (32). 

At any further point in the 
statement, if you enter two con- 
secutive periods, the routine 
changes them to a comma (44) 
and a space (32). if you enter 
three consecutive commas, the 
third is converted to a minus 
sign (45). The routine ignores 
any periods within quotation 
marks and leaves a space after 



B GOTOIJ 

1 ZX-PEEK(16548)*256«PEEK(16549) 

2 IF; PEEK (ZX) ♦PEEKiZX-»l) -e>7HEN6 
ELSEIFPEEK(ZX+4)<>46THEN5 
ELSEZU-i : ZV-f : ZW-B 

:PORI-ZX*4TOZX+255:IPPEEK(I)-BTBEN5 
ELSEIP { I -ZX+5ANDPEEI ( 1-1) •46AHDPEEK ( I ) -46) 
THENPOKEI-1 , 136 1 POKEI , 32 1 ZU-I s NEXT 

3 IF(ZV-BANDPEEK(I)-34)THENZV-liNEXT 
ELSEIF ( ZV-1ANDPEEK ( I ) <>34 ) THENHEXT 
ELSEIF(ZV»1ANDPEEK(I)-34)THENZV-B:NEXT 

4 IP(ZV-8AHDPEEK(I-l)-46ANDPEEK{I)-46) 
THENPOKEI-1 , 44 : POKEI , 32 ! ZW-I I NEXT 
ELSEIP ( I-X0+1ORI -ZW+1 ) ANDPEEK ( I ) -46 
THENPOKEI , 45 : ZU-B : ZW-B : NEXT 
ELSENEXT 

5 ZX-PEEK(ZX) +256*PEEK(ZX+1) :GOT02 

6 PRINT,*DAT* STATEMENTS CORECTED. ■ i END 
IB REM • MAIN PROGRAM STARTS HERE * 

Program Listing 1. Datafix Routine 



the word data and between 
each item. 

For example, you can enter 
the following lines, except for 
alphabetic and special char- 
acters, using the keypad only: 

100.. 10.1. .40.2 

105. .10.1. -.40.2 

110..JONES..40.2 

115.. "BYE NOW.. "...10.1 

Upon enterning: RUN 1, Data- 
fix converts these statements to: 

100 DATA 10.1,40.2 

105 DATA -10.1. -40.2 

110 DATA JONES, 402 

115 DATA "BYE NOW...", -10.1 

and then advise you that the 
data statements were cor- 
rected. 

As written, you can load 
Datafix before your program. 
You can also renumber the 
routine to, say, 60001-60006 
and append it to a program in 
memory (see, for example, 80 
Microcomputing, January 1981, 
p. 213 for the PEEK/POKE ap- 
proach). 

If you are entering and 
editing statements only once, 
you can delete the routine after 
you use it. 

How it Works 

In Program Listing 1, we use 
line feeds and indents to make 
the logic clearer. Dropping this 
nicety, reduces memory re- 
quirements. Line bridges the 
routine and returns to the main 
program at line 10. 

Line 1 returns the decimal ad- 



dress, ZX, of the first line of a 
Basic program. 

Line 2 first checks the two 
bytes of the line pointer; if they 
equal zero, the routine goes to 
line 6 and ends. Line 2 also 
checks for a period immediate- 
ly following the line number; if 
none exists, the line is not a 
data statement and the routine 
passes to line 5. 

Finally, line 2 can also start a 
character-by-character PEEK 
of a statement to be edited. 
When it meets character zero, 
Datafix has reached the end of 
the line, and passes to line 5. 

If line 2 finds that the first 
two characters of a program 
line are periods, the periods are 
changed to the codes for the 
word data and a space. ZU is 
set to the character position I. 

Line 5 finds the address of 
the next program line and 
returns to line 2. 

Line 3 checks for a quotation 
mark (code 34). If one is found, 
flag ZV is set and Datafix will 
not check for periods until 
either a second quotation is en- 
countered or the line ends. 

If Datafix finds two con- 
secutive periods beyond the 
start of the data statement, but 
not within quotation marks, 
line 4 changes them to a com- 
ma and a space, and ZW is set 
to the character position I. 

Then, if the routine meets a 
third period and confirms it as 
consecutive by I being equal to 
ZU + 1 or ZW + 1 , it is converted 
to a minus sign. ■ 
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Are my TRS-80* business systems really that good? 

Michael Tannenbaum thinks so. 

Here's what he said about my Model II 
systems in the August "80 Microcomputing." 



On the General Ledger's ability to file and report: 

"...the best I have yet 
seen in a microcomputer 
system." 

On the Accounts Receivable system: 

"...clear and simple to 
follow." 

"...the first time I have 
seen this feature in a 
microcomputer system.' 

(referring to its ability to calculate a salesman's commission 



»» 



On our policy of customizing our systems 
to each buyer's needs: 

"...Taranto does his 
customers an enormous 



»! 




service. 



And on our systems in general: 

"...a comprehensive and well-documented 
system, an impressive product at a very 
reasonable price." 



Thank you, Michael. 



^45 



Taranto 

& ASSOCIATES. INC. 

The Total System Store. 

121 Paul Drive, San Rafael CA 94903. 

Outside California, toll free (800) 227-2868 In California. (415) 472-2670. 

Authorized dealers throughout America. 



■See List ol Advertisers on page 386 
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APPLICATION 



Strengthen NEWDOS 80 's chain command. 



Weak Link 



Steven Denholtz, D.M.D. 

Livingston Professional 

Building 

114 West Mt. Pleasant Ave. 

Livingston, NJ 07039 



Unlike its use under New- 
dos80, the Chain function 
usually exits and erases a resi- 
dent Basic program, then in- 
puts another Basic program 
from disk. This program, in 
turn, operates on a still resident 
set of variables and/or files that 
are shared by related pro- 
grams. The rationale is to 
reduce the amount of user 
memory the program con- 
sumes so a larger share of 
memory can be used for data or 
variables. 

In Newdos80, however, the 
Chain function performs an en- 
tirely different operation. A 
short Basic utility is provided 
here so you can use Chain with 
speed and ease not available 
under NewdosSO. 

What Is Chain? 

Chain is a DOS library com- 
mand. After a Chain command, 
anytime a program asks for in- 
put from the keyboard, the key- 
board record will automatically 
be supplied from a disk chain 
file without any operator ac- 
tion. How did the keyboard 
answers get on the disk? How 
does the computer know where 
to look? To answer these ques- 
tions, let's learn a few new 



terms and look at what a chain 
file is: 



Chain File: SectionO 
Sectlonl 

Section? 

. . . >etc. til EOF 



Syntax 

Each section is an indepen- 
dent subfile of keyboard re- 
sponses. Multiple sections can 
share the same file name. This 
avoids wasting a whole granule 
of disk space (1.25k) for each 
group of keyboard responses 
that usually takes a few words 
(100 bytes maybe). Thus the 
chain file was designed to have 
sections that are really in- 
dependent subfiles sharing one 
filespec. This saves valuable 
disk space. You address the 
section when you issue the 
Chain command: 



2a. 'CHAIN filespec <SECTIONn>' If In 
Dos, or, 

2b. CMD "CHAIN filespec 

<SECTIONn>" ' if in Disk Basic. 



SECTIONn is optional on the 
first section (0). If the chain file 
contains more than one sec- 
tion, you must specify which 
one you are addressing, where 
n is a positive integer. If SEC- 
TIONn is deleted when issuing 
the Chain command, the de- 
fault naturally is the first sec- 
tion, SECTIONO. The filespec in 
Fig. 2 has a default extension 
of JCL, (which stands for Job 
Control Language, but that is 



getting beyond the scope of 
this article). 

Section: <speclal character 
<SECTIONn> 
keyboard record 
End Of Line character (OD H or 
Enter) 

The special character is 
always one of the following: 

CHRS028) (80 H) : start of a new Section 

CHRJ(1 29) (61 H) : display message, await 

ENTER before proceeding 

CHR$(1 30) (82 H) : chain file "remark" 

CHH$(131) (83 H) : display message, no 

pause 

The special character 128 (80 
Hex) is mandatory when start- 
ing a new section, except for 
the first section. All other char- 
acters are strictly optional. But, 
after using a CHR$(128) to start 
a new section, you must also 
put SECTIONn immediately 
after it so you can later address 
which subfile (or section) you 
wish to use when you invoke 



Chain, as shown in Fig. 2. 

Uses of Chain 

The keyboard record is the 
answer that will be displayed 
on the screen and used as if it 
were actually input from the 
keyboard (see Fig. 3). This can 
supply a commonly used set of 
parameters to an often used 
utility. More often, it may be a 
series of System and Basic 
commands implementing a 
complex program such as 
shown in Fig. 5. 

My diskettes include a "JCU- 
JCL" file to be used in an Auto 
boot mode— every diskette, 
that is, but my Newdos80 
system diskette. That one has 
the Auto command: AUTO 
CHAIN JCL/JCL, but has no file 
named JCL/JCL. This way, 
whenever I use my computer, I 
simply place either the system 
diskette or my application 



LCDRIVER 

BASIC 

LOAD'LEDGERB" 

CLS 

LIST1 

LIST10030-10040 

EDIT10040 

DOS READY 

CHAIN JCL/JCL1 

DOS READY 

LCDRIVER 

GENERAL PURPOSE LOWER CASE DRIVER 

DOS READY 

BASIC 

DISK BASIC. RADIO SHACK'S ROM ENCHANCED WITH APPARATUS NEWDOS80 

EXTENDED AND DISK FEATURES. 



Fig. 5 A Typical Use of Chain. 



360 • 80 Microcomputing, October 1981 



PROVEN MONEY MAKERS FOR YOUR TRS-80* 

"Tandy Corp. Trademark 



MAIL LIST SYSTEM (diskoniy) $69.95 

Our easy-to-use system will accomodate almost any "custom" 
requirement of even your most demanding clients A glance 
below will show that we are far ahead of any other system in 
speed, variety of features, and sheer volume of names 
handled but don't let that fool you This system can be used 
just as easily on one disk for a small Christmas card list 

• Maintain virtually an infinite number of disks all in con- 
tinuous alph or zip order essential for large lists. 

• Sort 2320 entries (2 full 40 track double density disks) in 
only 32K or an incredible 4640 entires (2 full 80 track 
double density disks) in only 48K' Made possible with 
our unique date compression techniques on the Model III 

• Super fast sort by alph or zip order (8 sec for 1000 
entries), both orders can exist simultaneously on disk. 

• High speed recovery of entries from disk. ..speed of sort is 
meaningless if retreival from disk is slow ours pulls in 
over 11 per sec! 

• In zip order all entries with same zip code are also 
arranged alphabetically 

• Four digit zips have a leading "0" appended on labels 

• Backup data disks are easily updated as entries are 
created, edited, or sorted . extremely useful!! 

• Optional reversal of name about comma for that non- 
computer, personalized look 

• Master printouts of your list in several formats (not just a 
rehash of the labels) Optionally continuous or page 
oriented Your customers will want this! 

• All 0's in address labels are replaced by easier to read 0's 

• All labels optionally support an "Attn." line 

• Many user defined fields with plenty of options for 
simultaneous purging and selecting even allows for 
inequalities powerful and easy to use! ! 

• Continuous screen display of how many addresses 
currently printed 

• Each disk entry automatically "remembers" how many 
mailings have been made for that particular entry Can 
be tied in with purge/select. 

• Primarily written in BASIC for easy modification 
embedded machine code for those speed sensitive areas. 

• Fditing is simple and fast automatic search. 

• Optional 9 digit zip 

• Deleted entries have "holes" on disk filled automatically 

and alph order is still maintained' 

• Test label printing lets you make horizontal and vertical 
adjustments with ease 

• Optional "one time" mailing for some selected entries 

• Extensive use of error traps (both operator and machine 
induced) even recovers from a power failure during a 
printout! 

• Extensive documentations manual available separately 
for $3.95 

• Hardware requirements: 32K. printer, and 1 or 2 disk drives 



Provide your customers with a £* ALENDAR $19 95 

printed calendar (along with 

standard banker's holidays) of any month of any year Tape only 

for Model I or III 



Same features as Calendar SUPER CALE N DAR 

Additionally prints out large C1Q QC 

"graphics" type wall calendars (tape only) *Z?. ^3 

with memos under each day. Use as a planning calendar with 
optional disk storage requires 16K and printer 



Precision 
Prototypes 



410 E. Roca 

Refugio, Tx. 78377 

(512-526-4758) 



Football Scouting Report ( D £) $89.95 

How many high schools and colleges are there within a 75 mile 
radius of you' Did you know that each is a potential customer at 
the rate of from $500-51000 per season' Many already subscribe 
to more expensive (but inferior) computer analysis services of 
their scouting reports Using such a service a coach will typically 
have an opponent scouted several times prior to actually playing 
them This series of programs was written to the specifications of 
a coach with two state championships to his credit As a result, 
the emphasis is on producing statistics that will help in predict- 
ing what the opponent will do in a given situation This is a 
sophisticated set of programs fully equivalent to that used by 
professional football teams 

• Separate and detailed analysis ot running, passing, and 
kicking 

• Passing and running tendancies by field position 

• Point of attack tendancies and statistics for runs 

• Tendancies and statistics for wide/short side, weak strong 
side, and left/right run 

• Each analysis can be broken down according to forma 
tion, down, and yards to go 

• Allows for up to 5 games to be analyzed simultaneously 

• Convenient disk storage of plays and games 

• Extensive error traps ..won't let you make an error 

• Two actual games (almost 100 plays) on disk to facilitate 
your learning and evaluation 

• Extensive documentation available separately for $3 95 

even includes some advertising and price samples to 
help plan your promotion Also inc luded are some sample 
printouts 

• Hardware requirements i'2K, 1 disk driver and printer 



Interfaces to your own 
basic programs sort with 
the speed of machine code 
but with the convenience 
of basic You don't have to 



FAST SORT 

(with multiple dim. arrays) 
and 

ALPHABETIZER 

(disk only) $19.95 



know assembly language programming to use these two 
programs. )ust use your disk to merge our short basic programs 
(with embedded machine code) with your own basic program 
Eollow our simple instructions to poke only 2 values before 
making the user call from basic The pokes will set up a sort tor 
string, integer, single, or double precision arrays Also ascending 
or descending order is controlled by a single poke Use one of 
two programs to sort arrays of the form A(1) or A(Q(1)) The disk 
includes six simple basic programs that are ready to merge with 
the main sort programs Use them for learning and evaluation 
Also included is a ready to use basic program (already merged 
with the ORDER program) Use it to obtain a printout of 
alphabetized names 

Sample Sort Times 
8 sec for 1000 dbl prec numbers 50 sec for 5000 integers 
Time for alphabetizing (string sorting) is comparable but 
dependent on the length of the strings 



Loan amortization sche LOAN AMORTIZATION 

dules are a must for banks. ..... 

S & L institutions, and ac- >1V.9D 

counting firms You will be (Tape only for Model I & III) 

able to charge $5 plus per schedule Multiply that times the 
number of all loans your clients make per day easiest money we 
know of!, runs in about 2 minutes and achieves pin point 
accuracy with a built in calendar 



• Specify Model I or III when ordering 

• Add $1.50 tor postage and handlmR 



Mastercharge 



■ See List of Advertisers on page 386 



80 Microcomputing, October 1981 • 361 



diskette in drive zero and hit 
reset. The chain file issues all 
commands necessary to place 
my computer in a state where I 
can sit down and set to work. 
This may include listing any 
particular program lines that I 
feel need further development, 
or placing chain file messages 



to remind me where I left off, 
and even entering the Edit 
mode already pointing to a 
troublesome line. 

Last Minute Hints 

The operator may terminate 
the Chain command any time 
by pressing the up-arrow; the 



operator may force a Chain 
pause by holding the right- 
arrow, and continue by press- 
ing (enter). 

An Original Utility to Create 
Chain Files 

Program Listing 1, Make- 
jcl/bas, creates and appends 



chain files with every feature 
described so far fully im- 
plemented. Study the program 
with its remarks. Type it into 
your system and save it on your 
Newdos80 system diskette. 
You will undoubtedly use it 
often and perhaps come up 
with your own applications. ■ 



•MAKEJCL/BAS* - BY STEVEN DENHOLTX, B.S., D.M.D. 
COPYRIGHT 1988 ALL RIGHTS RESERVED 



5 CLS:CLEAR400:PRINT "MAKEJCL/BAS - Will create a j.c.l. 

file to be used by CHAIN 

by Steven Denholtz, D.M.D. (201) 347-1277" 

10 DS-*xxxxxxxxxxxxxxxxxxxxxxxxxxx*:Dl$-"xxxxxxiixxxxxx>ixxxxxx' 
30 PRINT* 

":LINEINPUT"Fll#sp«c (NO error checking I MUST have Vjcl' exten 
sion) 

:?"»FILES 
40 INPDT'Opening (0) a new file , Appending last record (A) or 
new SECTIONid (N) "jDS 
45 IF D$-*M*OR D$-*n" THEN 300 
47 IF DS-*0* OR DS-"o" THEN 400 

50 0PEN*E*,1, FILES :' open to append to existing record. 
100 PRINTM40,CHR$(255)+CHR$(25S) : PRINT?640, ** 

105 GOSUB 500:PRINTM40,"">:LINEINPUT"DOS or DISK BASIC Coaaand 
? ";D$ 

110 GOSUB600 :' Interpret first character for special aeaning 
120 PRINTtl.DS :' Put it into disk Chain fil«. 

150 PRINT«704,""i:LINEINPUT"Enter another conmand (Y/N) ")D1S 
160 IF DIS-'y" OR D1$-"Y" THEN 100 ELSE 200 
200 CLOSE 



210 PRINT" •*• END *••" 

220 END 

300 'MOST LOOK UP LAST SECTIONID, ADD ONE TO IT THEN GOTO350 

310 0PEN"I",1, PILES 

315 INPUTIl.DS 

320 IFASC(D$)-128 THEN SECTINID -SECTINID-tl 

325 IF NOT EOF (1) THEN 315 

330 SECTINID-SECTINID*1:PRINT8170, "******• Sect ionID-" I SECTINID 

340 CLOSE 

350 OPEN'E" ,1 ,FILES :' open for the purposes of appending a new 

Section to an existing file 

360 D1S-CHRS(128)+"SECTI0N"+RIGHTS(STRS(SECTINID) ,1)+CHRS(13) 

370 PRINTS640,CHRS(255)+CHRS(255) : PRINT0640 , " 

375 GOSUB500:PRINTf640,";:LINEINPUT*DOS or DISK BASIC Coaaand 7 

"jDS 

377 GOSUB600 :* interpret first character for special aeaning 

380 PRINT#1,D1S+DS : "Put it into the disk Chain file. 

395 GOTO150 

3 99 END 

400 OPEN'O',1, FILES :' open a new file (this will erase an exist 

ing file with the sane filespec I) 

420 GOTO100 :' pretty up the screen 

500 PORX%-736T0992STEP64:PRINTM%,"."j:NEXT:PRINT«739,"(,) user 

coaaent with pause") : PRINT«803,* ( .) user consent"; :PRINT9867," (/ 

) file coaaent"; 

550 RETURN 

608 ' "Interpret first character of Command 

610 IP LEFTS(DSrl)-"," THEN DS»CHRS(129) +DS 

620 IF LEFTS(DS,1)-"." THEN DS-CHRS(131) +DS 

630 IF LEPTS(DS,1)-*/" THEN DS-CHR$(130) +DS 

640 RETURN 



Program Listing 1 
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VORKIO 

BASF-DPS 

WORLD STANDARD TAPE 



SA? 



0O& 



<4S«S£ 



• PROFESSIONAL 5-SCREW SHELL 

• UNIVERSAL INDUSTRY ACCEPTANCE 

DATA TRAC - C-10, C-20 
MUSI TRAC - C-45, C-90 



, 8 I«W 



r-c e 



■ties 



-si 






9 >^>' 



, tne 



n0 ug h r, s a "^'m'of* °" nQ e^' 



■n>g 



hi 1 



,ua 



P s 



nd 



www* 

*e P' op 



rig p 









"YOU'VE TRIED THE REST, NOW B UY THE BEST" F 



Call: 213/710-1430 lor IMMEDIATE SHIPMENT on Credit Card Orders 



I order now... Mail to: VORK lO Computer wore 

24573 Krttndge St #80A.Canoga Park. CA 91307 

n Chert Of M enclosed n Charge lo my CrerJt Cart 
□ VISA n MASTERCARD Expxesoare 



Pa— sand iiinn tf«u 
1B0HN lOOffil lOOZBI 


dbatoar 
TDTAl 


C-tO Q 8 00 □ M40 


C-20 □ WOO G , »00 
C-«5~ n'l3 00 QZ3X 





C-90 QZin D3900 


SUBTOTAl 




Cat) reader* add 6% sates Is 




Shopng 1 Ox S?. 2 dot S3 50 

add! i dot SI 




TOTAL 





write for quantity discounts 

SniopM nun pick B, UPS lo strtrt aDWess m Cora 
j S 4 f.^v wp cannot sh* 10 P Boes 



My 
sgnatjre 



Stts/zt> 





Programming drive 
you wild? 

We have the high quality programs you demand 

at a price that will please. Send for FREE catalog. 

,, THE BERG WORKS ^ . 

>X^ Box 742C lanesville, Wl 53547 // 
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Your best 

Model l/lll 

peripheral buy 

is a modem. 



Considering expanding your TRS-80 
Model I or III? Then you should know 
that only one kind of peripheral can 
give you all these extra capabilities 
... in a single unit: 

• Computer-to-computer data 
communications, for better 
personal or business manage- 
ment. 

• Access to free "bulletin board" 
resources. 

• Access to Source, Compu- 
Serve and other time-sharing 
systems. 

• Services like electronic mail, 
instant news and financial re- 
ports. 

• An almost limitless supply of 
new games and other enthusi- 
ast activities. 

Of course, we're talking about a 
modem. A far more sensible first 
step in expanding than, say, joy- 
sticks, or a voice box, or a printer. 
And, therefore, your best peripheral 
buy. 

A modem opens up a whole new 
world to you. A world of thousands 
of computers and computer people 
just like you, in homes and busi- 
nesses around the block and across 
the country. A world you tap through 
your telephone. 

But don't simply settle for any mo- 
dem. For the most modem satisfac- 
tion, you need to make the best mo- 
dem buy. 

And that's LYNX. 




The new LYNX for TRS-80 Model I and Model 
III. It's the latest innovation from the people who 
are making data communications affordable. It's 
the best first step you can take in expanding. It 
makes your microcomputer a whole new animal. 




OLYrvnc© 



123 LOCUST STREET LANCASTER. PENNSYLVANIA 17602 
Phone 717/291-1116 

TRS 80 is a trademark ot the Radio Shack Division of Tandy Corporation. 
FCC Registration Number A909KE-68171 OM-N 



Your best 

Model l/lll 

modem buy 

is LYNX. 



The new LYNX is the ideal modem 
for your Model I or III. That's because 
it's the key element of a total direct- 
connect telephone communica- 
tions package. 

This package includes all serial 
and computer bus interfaces, cables 
and terminal software . . . and comes 
to you with these remarkable fea- 
tures: 

• SINGLE PRICE: $299.95! 

• Compatible with both Model I 
and III. 

• No separate purchases 
quired. 

• One-year warranty. 

• Auto dial/auto answer. 

• Works with any software, 
eluding ST-80 by Micklus. 

• Active clear, break, and "con- 
trol" keys. 

• Half or full duplex, variable word 
length, parity and stop bits. 

• Dial from phone, keyboard, or 
memory. 

• Works with or without Model I 
expansion interface. 

• Works with or without Model III 
RS-232 card. 

• Can be placed on either side of 
Model III. 

• No tools needed to Install. 

No other modem gives you so much 
in a single package. And when you 
compare the LYNX price with the to- 
tal cost of bringing any other modem 
on line, it could save you OVER $100! 



re- 



in- 



•278 



Consult your local microcomputer retailer, or call one of these LYNX handlers today— TOLL FREE: 



ADVENTURE INTERNATIONAL 
Longwood, FL 
800/327-7172 

THE PROGRAM STORE 
Washington, DC 
800/424-2738 



ADVANCED COMPUTER PRODUCTS TSE HARDSIDE 

Irvine, CA Milford, NH 

800/854-8241 800/258-1790 

STEVENS RADIO SHACK SIMUTEK 

Phoenixville, PA Tucson, AZ 

800/345-6279 800/528-1149 



COMPUTER PLUS 
Littleton, MA 
800/343-8124 

PROGRAMS UNLIMITED 
Jericho, NY 
800/645-6038 



■ See List o! Aavertisers on cage 366 
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UTILITY 



A machine-code subroutine to dump memory on your display. 



Memory Window 



Warren Merkey 
824 S.E. 1st Avenue 
Gainesville, FL 32601 

Now you can view any 1024- 
byte block of memory in 
your Model I Level II keyboard- 
all 32 K. Memory window dumps 
memory onto the screen using 
a machine-code subroutine 
(a USR). 

Here is how the program 
works. Line 1010 tells the com- 
puter where the USR is located 
and also makes all variables 
into integers. Line 1020 is the 
USR in the form of decimal 
data. Line 1030 loads the USR 
into place in high memory. Line 
1040 asks the user for a place to 
start. Line 1050 calls the sub- 
routine that moves memory 
onto the screen. Lines 1060-1080 
are a loop that looks for control 
key input (arrow keys, Enter, and 
space bar). Line 2000 prints the 
current value of M in the upper 
left corner of the screen, with an 
arrow pointing to M. Line 9000 
keeps the value of M within the 
first 32K of memory. Line 9010 
calculates decimal POKE values. 
(This will be explained below.) 
Line 9020 POKEs the address 
of the memory block to be 
displayed into the USR and 
then calls the USR. 

The USR consists of 12 bytes 
of code, in which the BC, DE 
and HL register pairs are 
loaded with the block-move 
parameters, which is done by 
the LDIR instruction. As the 
display scrolls the HL pair is 



the only one changed but the 
BC and DE pairs can also be 
easily changed. With these 12 
bytes of code and some skillful 
POKEing, you can move any 
part of memory to any other 
location. By POKEing a 184 
where there is a 176 (BO hex), 
you change the LDIR to LDDR. 
This is sometimes necessary 
when moving a block of memory 
into an overlapping area, where 
the direction of the move would 
cause memory to be overwritten 
before it is moved. (Refer to 
"Now You See It" in 80 
Microcomputing, February 1981 
for another application of the 
12-byte LDIR subroutine.) 

To use this program, respond 
to the Memory Size question 
with 32512 to protect the USR. 
Key in the program as listed 
and save it on tape before run- 
ning it. The program may bomb 



when it scans through certain 
sensitive areas of memory. The 
four arrow keys give you scroll- 
ing in the four directions. The 
enter key allows you to stop 
and pick another starting place. 
The space bar causes the cur- 
rent memory location (and ASCII 
value) to be printed in the upper 
left corner. 

In line 9010, the POKE values 
must be decimal, although they 
are related to hexadecimal. Take 
the value 32600 which equals 
7F58 hex. The 7F is the Most Sig- 
nificant Byte and the 58 is the 
Least Significant Byte. The LSB 
and MSB converted back to dec- 
imal are POKE values 88 and 
127. These values are POKEd in- 
to memory locations 32519 and 
32520 read by the machine-code 
program as 7F58 hex. 

Note that a hex number is 
translated to decimal by multi- 



lOOO 'MEMORY WINDOW 

IO10 POKE 16526,0 1 POKE 1652 7, 127s DEF INTA-Z 

1020 DATA 1,0,4,17,0,60,33,0,0,237,176,201 

1030 A-32SI2iFORB>OT011iREADCiF-OKEA*B,ClNEXTB 

104l> CI S: ] NI'IJ I "S TORI 1NG POINT (0 - 31743>"|M 

I050 GOSUBVOOO 

106D C«PEEKU4400>i IFC-OTHEN106OELSt IF C-BTHENM-M-64 

1070 IFC« 16THENT1-M+64ELSE IFC-32THENH-M- 1ELSE IFC-64THENM-M* 1 

1080 IFC-1 THENlO4OELSEIFC»l?RTHEN2OOOELS£105O 

2000 PRINT31 , CHR*<93> | " "(H(PE£fc <H> ; :GOTOlO60 

9000 IFM!0THENH=OELSEIFM>31743THENH«31 743 

9O10 I«INT<M/4096> :J«M-1 «4096i*-INT < J/256) :H»K*I6II:1 -.1 H256 

902O POKE32519,L:POkE3232O.MiX=USR<0>:RETURN 



USK AKSEMSIV I I STING 



7FOO 
/FOO 
7F03 
7F06 
7F09 
7F0B 
7FOO 



01 00 04 
11 00 3C 
21 00 00 
ED BO 
C9 



OOIOO 
001 10 
00120 
00130 
00140 
00150 
0O160 



LDIR 

RET 

END 



32512 | USR ADDRESS 

BC.1024 (LENGTH OF BLOCK 
Of , 15360 (START OF SCREEN MEMORY 
HL.O (POKEd FROM BASIC PROGRAM 

I BLOCK -MOVE INSTRUCTION 
(RETURN TO BASIC 
(END ASSEMBLY PROGRAM 



Program Listing 



plying the values of its digits. 
7F58 hex translates as 7 x 4096 
+ Fx 256 + 5x16 + 8x1 equals 
326000. Remember that F equals 
15. To reverse the procedure, 
you begin by dividing by 4096. 
The first two statements of line 
9010 are long division: 



(l = INT(M/4096)) 



4096)32600 
28672 



3928 = J. (JxM-1'4096)) 

The third and fourth statements 
are long division by 256: 

15 = K (K = INT(J/256» 

256)3928 
3840 

88 = L. (L = J-K'256) 

The next divisor would be 16; 
however, as you can see, 88 is 
the decimal POKE value we 
need for the LSB. This leaves us 
with a seven and a 15, which we 
know is 7F hex, a one-byte 
number. If we multiply seven by 
16 and add 15, we get 127, the 
decimal equivalent of 7F hex. 
This last step is expressed as 
H = K + 16*I. Lines 9000-9020 
are executed every time you 
press an arrow key. The USR 
reloads the entire screen with 
memory in the blink of an eye, 
giving the illusion of scrolling. 

I have used the algorithms in 
this program to build a memory 
editor which works reasonably 
well as a word processor. At the 
very least, Memory Window 
may impart some knowledge to 
those of you who can grasp its 
principles. ■ 
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************************ ***** * * * * ****** **** * .* * * * * * * * 

4MHZ, DOUBLE DENSITY,COLOR&B/W 
GRAPHICS . .THE LNW80 COMPUTER 




«*ien you've compared the feature* of an LNW60 Computer, you'll quickly 
jnderstand why the LNW80 is the ultimate TRS80 software compatible system. 
LNW RESEARCH offers the most complete microcomputer system »t »n outstand- 
ing low price. 

We back up our product with an unconventional 6 month warranty and a 10 
days full refund policy, less shipping charge*. 

LNW80 Computer $1,450.00 

LNW80 Computer w/BIW Monitor » one 5" Drive SI. 914.00 

All orders must be prepaid, C* residents please include 6t sales tax. 
Contact us for shipping charges 

* 'RS80 Product of Tandy Corporation. 

** PMC Product of Pergonal Microcomputer, Inc. 



COMPARE THE 
FEATURES 


FEATURES AND PERFORMANCE 

LNW80 PHC-SO" 


TRS-80* 
MODEL III 


PROCESSOR 




*.0 MHZ 


: .S mh? 


2.0 MM 


LEVEL 11 BASIC 1NTERP. 




YES 


VES 


LEVEL MI 
BASIC 


TRS80 MODEL 1 LEVEL 11 COMPATIBLE 


YES 


VES 


MO 


48K BYTES RAM 




YES 


YLS 


VES 


CASSETTE BAUO PjUE 




500/1000 


?M 


500/ 1500 


aOPPT DISK CONTROLLER 




SINGLE/ 

DOUBLE 


SINGLE 


SINGLE/ 
DOUBIE 


SERIAL RS232 PORT 




VES 


VIS 


VES 


PRINTER PORT 




VES 


VES 


'IS 


REAL TIME CLOCK 




res 


YES 


>ES 


24 X 80 CHARACTERS 




its 


NO 


MO 


VIDEO MONITOR 




YES 


VES 


VES 


UPPER AND LOWER CASE 




YES 


OPTIONAL 


VES 


REVERSE VIDEO 




YES 


NO 


NO 


KEYBOARD 




63 KEY 


S3 KEY 


S! KEY 


NUMERIC KEY PAD 




VES 


NO 


TES 


B/w GRAPHICS. 128 X 48 




YES 


YES 


YES 


H! -RESOLUTION 8/W GRAPHICS. 


«80 X 192 


YES 


NO 


NO 


HI-RESOLt/TION COLOR GRAPHICS 
178 X 192 IN 8 COLORS 


(NTSC). 


YES 


■to 


HO 


HI -RESOLUTION COLOR GRAPHICS 
384 X 192 IN B COLORS 


(RGB). 


OPTIONAL 


NO 


« 


WARRANTY 




6 MONTHS 


90 DAYS 


90 OAlS 


TOTAL SYSTEM PHICE 




$1,414.00 


SI. 840. 00 


J2.187.0O 


LESS MONITOR AND DISK DRIVE 




$1 .'.SO. 00 


H.37S.00 


— 



LNW80 

BARE PRINTED CIRCUIT BOARD t MANUAL SOT. 95 

The LNW80 • A high-speed color computer totally compatible with 
the TRS-80*. The LNH80 gives you the edge in Satisfying your 
computation needs in business, scientific and personal computa- 
tion. With performance of 4 MHz, Z80A CPU, you' 11 achieve per- 
formance of over twice the processing speed of a TRS-80*. This 
means you'll get the performance that is comparable to the most 
expensive microcomputer with the compatibility to the world's 
most popular computer (TRS-80*) resulting in the widest soft- 
ware base. 

FEATURES: 

. TRS-80 Model 1 Level li Software Compatible 
High Resolution Graphics 

. RGB Output - 384 x 192 in 8 Colors 
. NTSC Video or RF MOD - 128 x 192 in 8 Colors 
. Biack and White - 480 x 192 
. 4 MH2 CPU 

. SOO/1000 Baud Cassette 
Upper and Lower Case 
16K Bytes RAM, 12K Bytes ROM 
. Solder Masked and Silkscreened 



LNW SYSTEM EXPANSION 

. BARE PRINTED CIRCUIT BOARD 

AND MANUAL $69.95 

.WITH GOLD CONNECTORS S84.95 

The System Expansion will allow you to expand your LNU80. TRS-80* 
or PMC-80** to a complete computer system that is Still totally 
software compatible with the TRS-eO* Model 1 Level M. 



LNDoubler&DOS PLUS 3.3D 



- Assembled and Tested M/DOS PLUS 3.30 $175.00 



Double- density disk storage for the LNW Research's "System Exp 
the Tandy's "Expansion Interface". The LNOoubler™ i 



pan- 



si on" 

totally software compatible with any double density software 
generated for the Percom's Doubler***. The UtOoubler™ provides 
the following ojtstanding features. 

Store up to 350k bytes on a single 5" disk 

Single and double density data separation 

Precision write precompensatfon circuit 

Software switch between single and double density 

Easy plug in installation regulrlng no etch cuts, JuNpers 

or soldering 
35, 40, 77. 80 track 5" disk operation 
120 day parts and labor Warranty 

•** Doubter is • product of Percom Data Cumpany, Inc. 

DOS PLUS 3. 3D 

Micro Systems software's double density disk operating system. 
This operating system contains all the outstanding features of 
a well developed DOS. with ease In useability. 



KEYBOARD 



LNW80 KEYBOARD KIT $84.95 

The Keyboard Kit contains a 63 key plus a 10 key, P.C. board, and 
remaining components. 



CASE 



32K Bytes Memory 

5" Fluppy Controller 

Serial RS737 20>a 1/0 

Parallel Printer 

Reai Time Clock 

Screen Printer 8us 

On Board Power Supply 

Solder Masked and Silkscreened 



LNW RESEARCH 

C OR PORA T ION 
2620 WALNUT 
TUSTIN CA. 92680 .571 



LNW80 CASE $84.95 

The streamline design of this metal case will house the LNW80. 
LWN System Expansion, LNW80 Keyboard, power supply and fan, 
LNDoubler™, or LNW Data Separator. This kit includes all the 
hardware to mount all of the above. Add $'2.00 for shippinq 

PARTS AVAILABLE FROM LNW RESERARCh 
. 4116 - 200ns RAM 

6 chip set $26.00 

8 chip set $33.50 

16 chip set $64.00 

24 chip set $94.00 

32 chip set $124.00 

. INW80 "Start up parts set" LNW80-1 $82.00 

. LNW80 "Video parts set" LNW80-2 $31.00 

. LNW80 Transformer LNMBO-3 $18.00 

. LNW80 Keyboard cable t NW80-4 $16.00 

40 Pm computer to expansion cable $15. 00 

System Expansion Transformer $19.00 

. Floppy Controller (FD1771) and UART (TR1602! . . . $30.00 



ORDERS A I N FO. NO. 71 4 - 544 - 5744 
SERVICE HO 7.4-641-8850 



VISA MASTER CHARGE 
ACCEPTED 



UNLESS NOTtt) 

ADD 1 3 FOR SHIPPING 



»••••••••••« 



• INTRODUCING THE MEM 
ORYBOX MEMORYExPAN 
ION UNIT " • Memory That 

Neve' Needs Protection • 

" 1 024 Bytes Of HAM In An 
Unassig-ed Area ' ' Solves 

Memory Allocation Pro 
Diems ■ Programs Slav In 

The MEMORY BOX Even 
W n e n CPU Is Tu'ned Oit • " 
Fo- Model I Levei ll And An 
Dos Systems 1 4 16 3 2 48Ki 
J43 95 ■ T WO Ut.niy Software 

P'og'ams Written For Tne 
MEMORY BOX Are ' 
1 ■ MICM ON • A Powerful 
Macire Language Monitor 
laccessaDie mttioui disturb- 
I $19 95 
Ut'iitv mc udes 
Cassette Leve Meter Pro- 
gram • Ad] Keyboard De 
bounce " Sceen Punt Driver 
■ Line&Page Length Control" 
Page Numbering ■ Smart 
Lme Term inanon ■ MORE ' 

$12 95 ' INTRODUCTORY 
OFFER COMPLETE PACK 
AGE 164 95 



CERTIFIED DATA CARTRIDGES " 
■ Superior Qua ily CASSETTE 
TAPES ' • GUARANTEED 100% 
Erro' Free ' 'Five Screw Con- 
struction 

• Length 12 PACK 24 PACK ■ 

C 10 68 ea 58 ea 
C 20 88 ea 78 ea 



■ 2K HIDEAWAY ' Eprom Board 
Power Supply inci USES 2716 
Eprom Cfiip (not included) $49 95 
'EPROM PROGRAMER J69 95 
• U V - EPROM ERASER LAMP 
$79 95 2716 (BLANK! EPROM 
CHIP $8 95 



Add $1 50 'or shipping and hand- 
ling TO ORDER SEND CHECKS 
AND MONEY ORDERS TO 



DISPLAYED VIDEO 

7538 JACKSON ROAD 

ANN ARBOR. Ml 48103 

OR CALL (313) 426 5086 OR 

13131 482-4424 



DISPLAYED! 



RELOAD 80 



Many of our readers have 
called with questions 
about Color Computer programs 
and LOAD80. Some wanted to 
know if Color Computer pro- 
grams were on the tapes, others 
wondered if they could load the 
LOAD80 programs into their Col- 
or Computer, alter them and run 
them. This month, we*ll clear the 
air about the Color Computer. 

First, the Color Computer pro- 
grams we publish in the maga- 
zine are not on the LOAD80 
tapes. This is because the Color 
Computer downloads data at 
1500 baud only. LOAD80 tapes 
are recorded at 500 baud so they 
can be used by both Model I and 
Model III users. LOAD80 tapes 
with programs recorded at dif- 
ferent baud rates cannot be du- 
plicated by our high speed 
duplicator. 

You cannot load the LOAD80 
tapes into the Color Computer 



for two reasons: one, the baud 
rates are different, and two, the 
Color Computer uses two separ- 
ate tone pulses to output data- 
one to indicate a binary 1, the 
other to indicate a binary 0. The 
Models I and III use a single tone 
pulse that is either on or off to 
indicate the respective binary 1 
or 0. For these reasons, the Col- 
or Computer and LOAD80 are 
incompatible. 

Of course, you can still modi- 
fy the programs in 80 Microcom- 
puting to comply with Color Ba- 
sic, and then type in the listings. 

At the moment, there are 
plans afoot to put together a col- 
lection of the magazine's Color 
Computer programs in a special 
edition, Color LOAD80. This spe- 
cial edition should be available 
by Christmas. Check this col- 
umn next month for full details. 

Model II owners have been 
asking for a LOAD80 of Model II 



programs, as well. This project 
is also under development and 
an announcement is planned for 
our December issue. The Model 
II LOAD80 will be a bit more ex- 
pensive than either the regular 
LOAD80 or the special Color 
LOAD80, since it will be disk 
based. 

The response to the LOAD80 
project has been almost over- 
whelming. The Editors of the 
magazine are glad to be able to 
make this service available. We 
appreciate your feedback. Send 
your LOAD80 comments to this 
column, care of 80 Microcom- 
puting, 80 Pine Street, Peterbor- 
ough, NH 03458. 

Next month, we'll delve into 
the mysteries of the Editor/As- 
sembler, a subject postponed 
from this month because of the 
great number of Color Computer 
inquiries. ■ 





October LOAD80 Directory 




PGM# 


Filename 


Page 


Comments 


1 


MASTMIND 


122 


None 


2 


SYLLOG 


132 


None 


3 


VOICE 


141 


None 


4 


SPEAK 


141 


None 


5 


TYPE 


141 


None 


6 


TALKER 


146 


None 


7 


BSKTBALL 


184 


None 


8 


HOMEINVT 


220 


None 


9 


BOOKS 


234 


None 


10 


SUNSET 


272 


None 


11 


FREEZER 


274 


None 


12 


TRSCPM 


288 


None 


13 


YAHTZEE 


302 


None 


14 


BRIDGE 


306 


None 


15 


FIREFGHT 


316 


None 


16 


SPACE 


334 


None 


17 


JERICHO 


350 


None 


18 


TPRGEN/SCR 


196 


Needs EDTASM 


19 


AUTOKEY/SRC 


242 


Needs EDTASM 


20 


ASMPTCH/SRC 


326 


Needs EDTASM 


21 


EDASFIX/SRC 


344 


Needs EDTASM 


22 


COPYIT/SRC 


370 


Needs EDTASM 
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Do You Have Disk Errors? 

Over 90% of Disk errors are caused by two things. Bad disks and guarantees all their Disks for a minimum of 2 years, 
not having a data seperator. If you haven't ordered Percom's 

Doublerll then see ouradfordetails and orderone now. You will Percom ran extensive tests during their research and design of 

not believe the improvement in your system. If you are having the doubler and reached the conclusion that Wabash made the 

CRC errors, Data not found, or other errors especially in the best 5 1 A inch double density diskette, 
higher numbered tracks you probably have a bad or worn out 

disk. Order some today if you don't like them for any reason return 

them within 30 days and we will give you a prompt refund. If you 

Every disk sold is certified but there is a big difference between have any problems with them in the next two years return the 

brands. Some brands just barely pass the ANSI certification disk and we will send you a new one. No other company can 

standards, others like WABASH produce disks that are far better match that offer at our LOW prices, 
than the minimum standards. (Wabash sells the disks that aren't 

good enough to put the Wabash Label on to Discount outlets Single Density 35/40 tracks $25.95 

that sell them as off brands and no Label disks.) WABASH Disks Double Density 35/40 tracks $32.99 

are certified over the entire useable disk surface. Despite Double Density 77/80 tracks $32.99 

repeated use and normal wear and calibration drift on your drive Double Density 80 tracks 2 sided 39.00 

system, WABASH disks will continue to work reliably - long after 8 lnch Floppies, Double Density $39.00 

the so called bargain brands have failed. That's why WABASH SAVEMORE.ORDERTWOORMOREBOXESANDTAKEADOLLAR 

A BOX DISCOUNT. 



FREE PRINT BUFFER! 

What's a print bufffer you ask? It is hard to describe 
physically it's a 8x1 0x4 box that has 1 6k memory and 
plugs in between the computer and the printer. The 
printer can only accept data a line at a time with the 
Epson mx-80 thats around 100 baud. The computer 
can send print data through the printer port at over 
1000 baud. The print buffer takes the data from the 
computer and stores it until the printer is ready for it. 

If you are using your computer for business or if your 
time is valuable and you hate to sit doing nothing while 
the printer is printing YOU NEED THIS. With the time, 
the buffer saves you, it will pay for itself within a few 
days. We are so sure that you will like it that you can use 
it for 30 days free. If you don't think it will pay for itself 
send it back for a prompt refund. 

RHCROCOMPATIBLE with 16K of Memory $290.00 

Cable $ 35.00 



TWO NEW ARCADE GAMES 

DUNGEON ESCAPE 

It's been on the market for two months and has been getting rave reviews. 
Some of the comments are "I like it better than all of the previous dungeon 
games. It's got the great graphics and it's fast" "I get tired of the Big Five" 
arcade games as they are the same every time. Dungeon Escape gives 
you a different dungeon and a different ghost every game." "My favorite 
game." "I used to fall asleep waiting for the graphics in H el If ire Warrior", 
Dungeon Escape is 1 times as fast". 

SUPER GRAPHICS • INTERACTIVE SOUND 
LATEST PR08MHMINB TECHNIQUES 

SCARFMAN 

A new game by the author of Adventure Internationals Missle Attack. This 

is very similar to the PAC-MAN arcade game. 

It has excellent graphics, with sound, and you can even use the joy sticks 

with this one. 

TOO MUST SPECIFY MODEL I OR MODEL III. 

Available on: 

1 6K Tape $1 5.95 

Diskette, 32K $1 9.50 



PERCOM'S DOUBLER II 

II you haven't got a doubler for your Model I. order 
one now. this is the greatest thing to come along for 
the Model I. Since it actually reduces disk read/write 
errors, your system will run better with a PERCOM 
doubler. And you will also save both time and money 
by having more programs per diskette. 
PERCORTS DOURLER II $159.00 



NEW MODEM GAMES 

Play Checkers. Chess, or Othello over your modem 
with your friends! Each game features full graphics, 
sound, and a chat mode permitting you to send 
messages and sounds (to get the other persons 
attention). Games are for two players, either one or 
two computers. Complete documentation. All three: 

Tape $14.05 Disk $10.05 



SUPERMETER 




The biggest problem in loading tapes has been the volume control. 
Prerecorded tapes are produced at differing volume levels. Now 
finally, a device to let you set the correct volume levels for loading any tape. You will 
now load any tape the FIRST time. SUPERMETER plugs in (no cutting or soldering) 
between your tape recorder and the computer and lets you set the volume to the level 
that your computer wants. 

SUPERMETER $29.00 



Computer Shack 

1691 Eason • Pontiac, Michigan 

Now Games • Utilities • Business Programs 
WANTED 



Dealer Inquires Invitee'. 

COD - certified check MO or cash only. Sorry, no COD. over S 150.00* Most orders 
shipped next day. AM orders must have shipping included. Please add 2% or $2.50. 
whichever is higher, for shipping (unless otherwise stated). Out-of-Country orders, please 
add $10 00 additional shipping and handling, balance returned upon shipment. 



PHONE ORDERS WELCOME: (313)073-2224 073-0700 

Call between 8-2 E.S.T. 



• See List ot Advertisers on page 386 
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£& CALENDAR 



October 



Oct. 2 and 3 A two-day conference 
on "Classroom Applications of Com- 
puters" will be conducted at Indepen- 
dence High School, San Jose, CA, by 
Computer-Using Educators and Santa 
Clara Valley Mathematics Assn. The 
Conference will cover mathematics, 
science, business, music, special edu- 
cation, language arts and administra- 
tive applications of computers at lev- 
els ranging from pre-school through 
college. Information is available from 
Computer-Using Educators, Indepen- 
dence High School, 1776 Educational 
Park Dr., San Jose, CA 95133. 



Oct. 24 and 25 The second annual 
New Jersey Microcomputer Show and 
Fleamarket is scheduled at the Holi- 



day Inn North Convention Center, New- 
ark, NJ. The show will feature 75 com- 
mercial exhibitors and more than 100 
outdoor fleamarket vendors and user- 
group meetings for TRS-80s. Admis- 
sion for the show and fleamarket is $5; 
for the fleamarket only, $3. It is spon- 
sored by Kengore Corp., 3001 Rte. 27, 
Franklin NJ 08823. 



Oct. 26-Nov. 4 Virginia Polytechnic In- 
stitute and State University will con- 
duct three workshops in October and 
November. Digital Electronics for 
Automation and Instrumentation will 
be Oct. 26-28; Microcomputer Design 
Interfacing and Programming using 
Z80/8085/8080 will be Oct. 29-31; and 
Scientific Instrument Automation, In- 
terfacing and Programming using the 
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TP.S-80 microcomputer will be Nov. 
2-4. Information is available from Dr. 
Lindy Leffel, CEC, Virginia Tech, 
Blacksburg, VA 24061. 



Technical Education Research Cen- 
ters, 8 Eliot St., Cambridge, MA 02138, 
will sponsor a series of workshops on 
Microcomputers in Education" in Col- 
lege Park, MD, Oct 2-4; Toronto, Cana- 
da, October 22-24; and Cambridge, 
MA, Nov. 22-24. They will include a dis- 
cussion of educational issues, three 
microcomputer languages and labora- 
tory and science applications of micro- 
computers. 



The commission on Software Issues 
in the '80s, 1301 20th St., N.W., Suite 
116, Washington, DC 20036, will spon- 
sor the National Conference on Soft- 
ware: Critical Decisions, at the Shore- 
ham Hotel, Washington, DC, Oct. 5-6. 
Subject areas will include education, 
software protection, technical issues 
and taxation. 



The University of California, Berke- 
ley, will sponsor a two-day course on 
"Bit-Slice Microprocessor Design" for 
engineers and engineering managers 
at the Marriott Santa Clara Hotel, San- 
ta Clara, CA Oct 26-27. Fee is $350. In- 
terested parties can register through 
the Office of Continuing Education in 
Engineering, University of California 
Extension, 2223 Fulton St., Berkeley, 
CA 94720. 



Ken Orr and Associates, Inc., 715 E. 
8th St., Topeka, KS 66607, will sponsor 
courses and conferences on several is- 
sues in October. Subjects are: Oct. 
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5-7, Data Structured Systems Design 
Users Conference, Topeka; Oct. 8, Sys- 
tems Maintenance Update Confer- 
ence, Topeka; Oct 19-23, Structured 
Systems Design, Kansas City, MO; 
Oct. 20-23, Structured Requirements 
Definition, Atlanta, GA; Oct. 27-29, 
Structured Data Base Design, Topeka; 
Oct. 27-30. Structured Requirements 
Definition, Denver, CO. 



November 

The University of California, Berke- 
ley, will sponsor a two-day course titled 
"Comparison of Recent Microcom- 
puter Architectures" for design en- 
gineers, programmers and technical 
managers at the San Francisco Airport 
Hilton, Nov. 9-10. Fee is $400. Informa- 
tion and registration is available 
through the office of Continuing Edu- 
cation in Engineering, University of 
California Extension, 2223 Fulton St., 
Berkely, CA 94720 



The New Mexico Computer Society 
will host the third annual New Mexico 
Computer Fair Nov. 14 at the Albuquer- 
que Civic Auditorium. Admission is 
free. Information is available from Ron 
Benninghoff, c/o New Mexico Com- 
puter Society, 515 Wyoming NE No. 2, 
Albuquerque, NM 87108 



Ken Orr and Associates, Inc., 715 E. 
8th St., Topeka, KS 66607, will sponsor 
several courses and conferences in 
November. Subjects are: Nov. 3-6 
Structured Requirements Definition, 
San Antonio, TX; Nov. 3-6, Structured 
Program Design, Boston, MA; Nov. 10, 
Management Overview of Data Struc- 
tured Systems Development, Denver, 
CO; Nov. 11, Management Overview of 
Data Structured Systems Develop- 
ment, Portland, OR; Nov. 13, Manage- 
ment Overview of Data Structured Sys- 
tems Development, Seattle, WA; Nov. 
9-13, Structured Systems Design/ 



Structured Program Design Combined 
Course, St. Louis, MO; Nov. 10-13, 
Structured Requirements Definition, 
Los Angeles, CA; Nov. 16-20, Struc- 
tured Systems Design/Structured Pro- 
gram Design Combined Course, Wash- 
ington, DC. 



December 

Ken Orr and Associates. Inc., 715 E. 
8th St., Topeka, KS 66607 will run 
several courses in December. Subjects 
are: Dec. 1-4, Structured Systems De- 
sign, Chicago, IL; Dec. 8-10, Struc- 
tured Program Design for Teleproces- 
sing, Topeka, KS; Dec. 8-11, Struc- 
tured Requirements Definition, Phila- 
delphia, PA; Dec. 8-11, Structured Pro- 
gram Design, Kansas City, MO; Dec. 
14-18, Structured Systems Design/ 
Structured Program Design Combined 
Course, Atlanta, QA. 



GOSCJB 

GOSUB'S MX80/70 FRICTION FEED KIT 
ONLY $49.95 ppd 

The Gosub MX80/70 Friction Feed Kit for the Epson MX80 

printer will give you complete paper control. 

You get easy to follow instructions and all parts necessary 

to give your epson friction feed capabilities. 

No drilling and it installs in about 15 minutes. 

Money back guarantee if not satisfied. 

PLUS: 

• USE SINGLE SHEET PAPER 

' USE INEXPENSIVE ROLL PAPER 

• USE YOUR OWN LETTER HEAD 

• FREE PAPER ROLL RACK INCLUDED WITH KIT 
' DOES NOT AFFECT PIN-FEED USE 

PRINTERS: EPSON MX80 $515 EPSON MX100. $850 



STRATEGY SIMULATIONS 
MERCENARY FORCE 

Command a mercenary 
army. Decide the number of 
men, type of weapons, 
armor, air support, medical 
aid and transports. Battle 
the enemy in jungles, 
underwater, on moons and 
in space. (1-4 players) 

TRS-SO L2 16K $16.95 



FOR THE TRS-80 
SPACE MERCHANT 

Build an Empire in the 
stars. Choose your cargo, 
means of shipping, and 
security. Risk pirates, ion 
storms, engine failure and 
other hazards while you try 
to become a Space 
Merchant. (1-6 players) 
TRS-SO L2/16K $8.95 



KANSAS RES ADO 1H SAU S TAX (IRS*) IS A TRADEMARK Of TANDY CORP I 

aii prices subiict ro chance without notice MM cataioc upon mqckst. 

^i^BW SEND CHECK OR MONET OtOEl TO: ■BaRM 



P.O. BOX 275-C 



GOSUB 

(316) 265-9992 



^284 



WICHITA, KS 67901 




TRS-80 ADVENTURES FOR 16K COLOM0 

Extended color or Level II BASIC 
ESCAPE FROM MARS - You are stranded on Mars and some- 
where in the Martian city are the parts you need to repair your 
ship. Our best adventure for new adventurers. 
TREK ADVENTURE — You will recognize the spaceship this 
takes place on. The crew has left— for good reason— but they 
forgot you— and the "Orbit is Decaying." Almost as good as 
being there. 

PYRAMID — Our most advanced and challenging adventure, this 
takes place in our own special ancient pyramid. The builders 
were as nasty as pyramid builders usually are, and ransacking 
this one is a dangerous job. 

ADVENTURES are all written in BASIC, all come with listings, 
and each sells for $14.95. 

ARCADE AND THINKING GAMES 

16K and extended or level II BASIC 

TIME TREK. REAL TIME REAL GRAPHICS TREK. See the 

torpedoes fly and the Klinsons explode. No more scolling dis- 
plays, no more turn taking. — This one has real time and real 
displays. In BASIC - for 16K level II or extended color BASIC. 
$14.95. 

STARFIGHTER — This one man space war game pits you against 
spacecruisers, battlewagons, and one man fighters. You have 
the view from your cockpit window, a working instrument 
panel, and your wits. Another real time goody. 
BATTLEFLEET — This grown-up version of Battleship is the 
toughest thinking game available on 80 computers. There is no 
luck involved as you seek out the 80's hidden fleet. This is a 
topographical toughie. $9.95. 

SLASHBALL — A two player game of strategy and skill, this is 
like nothing you have ever seen before. This takes fast fingers, 
quick wits and concentration. Playable from age 6 to 65, it is a 
good family game. $9.95. 



1 ^S 



% 



FREE CATALOG 

AARDVARK-80.129 

2352 S. Commerce, Walled Lake, Ml 48088 

(313)669-3110 



■ See List ol Advertisers on page 386 
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UTILITY 



Leave typing to typists. Enter data the easy way. 



Copyit 



Program Listing 1. Copyit 



4020 
0000 
0001 

001A 
40A4 
4020 
0000 
0001 
001A 
40A4 
005F 
42E9 



42E9 3A6443 
42EC B7 
42ED 2060 
42EF CD0000 



42F2 FE1A 
42F4 C0 



42F5 
42F6 
42F9 
42FC 
42FF 
4301 
4304 
4306 
4308 
430A 
430D 
4310 
4311 
4312 



D9 

216F43 

CDA728 

216543 

0608 

CDD905 

FE01 

2845 

3E5F 

322240 

CD5A1E 

7A 

B3 

2839 



00001 
00002 
00003 
00100 
00110 
00120 
00125 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00211 
00212 
00213 
00214 
00215 
00216 
00217 
00218 
00219 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00295 
00296 
00297 
00300 
00301 
00302 
00303 
00304 
00305 
00310 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00461 
00462 
00463 
00464 
00465 



; ***** COPYIT ** 
; BY RON BALEWSKI 
; 12/19/1980 
CSRPOS EQU 
KEYSCN EQU 
BREAK EQU 
; SHDOWN CAN BE 
SHDOWN EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

ORG 



BASBEG 

CSRPOS 

KEYSCN 

BREAK 

SHDOWN 

BASBEG 

CURSOR 



4020H 



CHANGED 

26 

40A4H 

4020H 



1 

26 

40A4H 

95 

42E9H 



TO ANY DESIRED TURN-ON CODE 



; CURSOR CHARACTER 



ENTRY POINT — IF COPY IN PROGRESS, GO TO CONSEN 
CALL RADIO SHACK KEYBOARD DRIVER 
IF CHARACTER RETURNED = SHIFT-DOWN-ARROW 
THEN GO TO START A COPY OTHERWISE GIVE 
THE CHARACTER TO BASIC 



COPYIT 



KEYADD 



LD 
OR 
JR 
CALL 



A,(DUPFLG) 

A 

NZ, CONSEN 

KEYSCN 



;COPY IN PROGRESS? 



;IF SO, 
;CALL R 



CONTINUE SENDING 
S KEYBOARD DRIVER 



THE ADDRESS OF THE ABOVE CALL WILL BE LOADED IN DURING 
THE PROGRAM SETUP TIME. 



CP 
RET 



SHDOWN 
NZ 



; SHIFT-DOWN PRESSED? 
;IF NOT, RETURN 



START COPY AFTER SHIFT-DOWN PRESSED 

ASK FOR AND DECODE DESIRED LINE NUMBER. 
IF 0, LEAVE COPYIT 
IF BREAK PRESSED DURING 
BREAK CHARACTER 
EXX 



INPUT, LEAVE COPYIT WITH A 



LD 


HL,MSGl 


CALL 


28A7H 


LD 


HL,COPBUF 


LD 


B,8 


CALL 


05D9H 


CP 


BREAK 


JR 


Z,EXIT 


LD 


A, CURSOR 


LD 


(4022H) ,A 


CALL 


1E5AH 


LD 


A,D 


OR 


E 


JR 


Z,EXIT 



SWAP REGS 

POINT TO COPY LINE MSG 

PRINT IT 

GET ADD OF MY INPUT BUFF 

MAX OF 8 CHARACTERS 

CALL INPUT RTN 

QUIT W/ BREAK? 

IF SO, LEAVE W/ BREAK 

GET CURSOR 

TURN CURSOR BACK ON 

CONVERT t TO BINARY 

RETURNED? 

;IF SO, LEAVE 



BEGIN SEARCHING BASIC TEXT FOR DESIRED LINE NUMBER 
IF PRESENT, GO TO FOUND ELSE GO TO NOTFND 

Program continues 



Ron Balewski 
412 E. Ridge St. 
Nanticoke, PA 18634 



Even Christmas can be te- 
dious. About a week before 
the last Yule, I typed some 
seasonal music on my TRS-80. 
Because most songs contain 
more than one verse, and 
Christmas tunes are no excep- 
tion, I found myself typing iden- 
tical data statements over and 
over — not something I enjoy. 

Since I had already typed the 
data once, I figured all I had to 
do was find it. 

Copyit 

I wrote a short utility (2K 
plus) that can save you time re- 
typing long, tedious data state- 
ments when they are repeated 
in any Basic program. I call it 
Copyit. 

Copyit lets you duplicate one 
line of Basic code in another. I 
placed it in low memory (below 
Basic) to eliminate the need for 
separate programs for 16, 32 
and 48K machines. I patched 
Copyit into the keyboard's 
device control block (DCB), so 
that each time you strike a 
character, Basic calls Copyit, 
instead of the usual input 
routine. 

Copyit checks a flag that indi- 
cates you need a copy of a previ- 
ous data statement. If the flag 
says no, Copyit calls the key- 
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THE BOOKKEEPERS 



FOR INFO CALL (603)-447-2745 



Full Charge Bookkeeper-48K, 3 DRIVE, w ALPHA $129.95 
Intermediate Bookkeeper— 48K, 2DRIVE & Printer $109.95 
Cheap Bookkeeper-32K, 2DRIVE & Printer $ 89.95 

All Above Are Daily Journal— G L Systems 



Ann Rose, our Accounts Receivable Clerk — 
48K, 2 DRIVE & PRINTER 



$150.00 



STURDIVANT & DUNN, INC. ^82 

BOX 277, 124 WASHINGTON ST.. CONWAY, NH, 03818 



101 US€S FOR fi D€HD MICROCOMPUTCR 
no.92 




SUPER MICRO PRO CESSOR FOOTBALL 



SCO*: "■* KGX'Y &W»J T E« - i 



> II 21 31 

...yous m* »TO6iK Twwa <- 

:st KM md 18 on ™t Miorrv cori*j:EF>s » 



Hill WPT 15 VQUfl OFFENSIVE »J>V lllh 



cma is %**;ng - ;it swiM* u ■■ a 



Animated Graphics - Game Time flock 
(48K 32K) Available for TRS80* Lll M1 or M3 
48K DISC '22 95 - 32K DISC s 19.95 (48K 
has more of everything"' i 

16K DISC OR TAPF »12.95 ' 

Many more super programs Please write for 
free listing and program details 

Attention: Software Authors -We want good 

programs -■ Top royalty plan Dealer inquiries 

welcomed 

* TRS80 is a Reg Trademark of Tandy Corp 

MICRO PRO SYSTEMS 

Route #2 Box 533 
Cumming, Georgia 30130 



MAKE «$$$$ 
«*$ MONEY 

Selling 80 Microcomputing, the only major journal for the users of the 
TRS-80*, is a sure bet for getting the computer enthusiast into your 
store. Once through the door you can sell him anything. 

We know "8o" will make you money . . . it's the only magazine for the 
TRS-80 ' users and you know how many of those there are. So call today 
and join the dealers who make money with "80". 

For information on selling 80 Microcomputing, call 603-924-7296 and 
speak with Ginnie Boudrieau, our Bulk Sales Manager. Or write to her 
at 80 Microcomputing, Pine Street, Peterborough, NH 03458. 



'TRS-80 is a trademark of the Tandy Corp. 



•See List o! Advertisers on page 386 
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board driver. 

If you pressed any character 
other than a shift down-arrow 
Basic records the character in 
the A register as usual. 

If the keyboard driver returns 
the shift down-arrow, you'll ac- 
tivate Copyit and it will ask you 
for a line number. The routine 
converts this number to binary 
and searches for it. If Copyit 
can't find the line, it prints a 
message to that effect and ter- 
minates itself, until you ac- 
tivate it again. 

If the routine finds the line 
number, it sets a "next-byte-to- 
copy" pointer to the first 
character of that line, turns on 
the copy flag, sets the A 
register to zero and returns 
control to Basic. Setting the A 
register to zero fools the com- 
puter into thinkirg that nothing 
has happened. 

From this point on, whenever 
the keyboard is scanned and 
the copy flag is on, Copyit reads 
the "next-byte-to-copy" pointer. 
It loads this byte into the A reg- 
ister, and the pointer is bumped 
up one. Control is then returned 
to Basic with the character in 
the A register, just as if you had 
typed it. 

Siree the copy flag remains 
on, thi entire line will be sent to 
Basic, character by character, 
until the "next-byte-to-copy" is 
zero. If so, Copyit has found the 
end of the line; it turns off the 
flag, and Basic resumes. 

Operating Instructions 

Let's take an example. To 
copy line 10 into line 20, type: 20 
shift down-arrow. Copyit will re- 
spond with: Line Number? 

You then type 10 and hit 
Enter. Hit Enter once again, and 
you have rejoined Basic. 

If your machine has a new 
ROM, you will have to type: shift 
down-arrow Z to activate Copyit. 
You can tell if you have a new 
ROM, because your computer 
will ask you for the Memory Size 
while, if your computer has an 
old ROM, it will ask you for the 
Memory Size. You can change 
this by replacing the 26 in line 
130 with the ASCII code you 
want to use. 

You can activate Copyit at 
any time, not just at the begin- 
ning of a line. You can type a 



Program Listing 1 Continued 










4314 DD2AA440 


00470 




LD 


IX, (BASBEG) 


; POINT TO BEGIN OF BASIC 


4318 DD6E02 


00480 PROLIN 


LD 


L, (IX+2) 


;GET CURRENT LINE # 


431B DD6603 


00490 




LD 


H,(IX+3) 




431E DF 


00500 




RST 


18H 


; COMPARE WITH # WANTED 


431F 280D 


00510 




JR 


Z, FOUND 


;JUMP IF FOUND 


4321 3020 


00520 
00530 




JR 


NC, NOTFND 


;IF CURRENT >WANTED 
; THEN NOT IN TEXT. 


4323 DD6601 


00540 




LD 


H,(IX+1) 


;GET ADD OF NEXT LINE 


4326 DD6E00 


00550 




LD 


L,(IX+0) 




4329 E5 


00560 




PUSH 


HL 


.•TRANSFER TO 


432A DDE1 


00570 




POP 


IX 


» POINTER 


432C 18EA 


00580 

00581 , 

00582 ; 

00583 ; 




JR 


PROLIN 


;G0 PROCESS THIS LINE 




00584 ; 


FOUND- 


SET DUPLICATION FLAG (DUPFLG) AND SET POINTER FOR 




00585 ; 




THE NEXT CALLS TO FETCH 


THE TEXT THEN LEAVE. 


432E 3E01 


00590 FOUND 


LD 


A,l 


;SET COPY IN PROGRESS FLG 


4330 326443 


00600 




LD 


(DUPFLG) ,A 




4333 DD23 


00610 




INC 


IX 


;BUMP PAST 


4335 DD23 


00620 




INC 


IX 


NEXT LINE PTR 


4337 DD23 


00630 




INC 


IX 


;BUMP PAST 


4339 DD23 


00640 




INC 


IX 


; LINE t 


433B DD226243 


00650 
00660 




LD 


(CURBYT) ,IX 


; POINT TO WHERE TO START 
{ COPYING FROM 


433F 3E00 


00670 




LD 


A,0 


;SAY NOTHING HAPPENED 


4341 180A 


00680 
00681 
00682 
00683 




JR 


EXIT 


;GO BACK TO BASICS 




00684 


NO TFND 


- PRINT 


NOT FOUND MESSAGE AND LEAVE 


4343 217C43 


006 90 NOTFND 


LD 


HL,MSG2 


; POINT TO NOT FOUND MSG 


4346 CDA728 


00700 




CALL 


28A7H 


; PRINT IT 


4349 3E00 


00710 




LD 


A,0 




434B 1800 


00720 




JR 


EXIT 


; LEAVE 


434D D9 


00840 EXIT 


EXX 




; RE-SWAP REGS 


434E C9 


00850 
00860 
00870 




RET 








00880 


CONSEN- CONTINUE SENDING THE CURRENT LINE BEING COPIED 




00890 




BYTE 


BY BYTE 'TILL IT 


S DONE 




00900 










434F D9 


00910 ( 


;onsen 


EXX 




;SWAP REGS 


4350 2A6243 


00920 




LD 


HL, (CURBYT) 


; POINT TO BYTE TO BE SENT 


4353 7E 


00930 




LD 


A,(HL) 




4354 B7 


00940 




OR 


A 


;BYTE TO BE SENT 0? 


4355 2806 


00950 




JR 


Z,QUIT 


;IF SO, LINE ENDED, QUIT 


4357 23 


00960 




INC 


HL 


;BUMP TO NEXT CHR 


4358 226243 


00970 




LD 


(CURBYT) ,HL 


j & PUT FOR NEXT TIME 


435B D9 


00980 




EXX 




;RESWAP REGS 


435C C9 


00990 




RET 




/BACK TO BASIC 


435D 326443 


01000 


3UIT 


LD 


(DUPFLG) ,A 


;TURN OFF COPY FLAG 


4360 D9 


01010 




EXX 




; RE-SWAP REGS 


4361 C9 


01020 




RET 




;BACK TO BASIC 


4362 0000 


01030 


ZURBYT 


DEFW 





/NEXT-TO-SEND POINTER 


4364 00 


01040 


DUPFLG 


DEFB 





/DUPLICATION FLAG 


000A 


01050 


:opbuf 


DEFS 


10 




436F 20 


01060 


4SG1 


DEFM 


1 COPY LINE? ' 




437B 00 


01070 




DEFB 







437C 20 


01080 


1SG2 


DEFM 


' LINE NOT FOUND ' 


438C 00 


01090 
01091 
01092 
01093 


1 
1 
> 


DEFB 









01094 


/SETUP- 


THIS SECTION IS OVERWRITTEN BY YOUR BASIC. 




01095 


» 


IT SETS START-BASIC POINTER TO ITS BEGINNING, 




01096 


J 


PATCHES COPYIT INTO THE 


KEYBOARD DCB, AND 




01097 


> 


RETURNS TO BASIC WITH A 


"NEW" COMMAND. 


438D 218D43 


01100 


SETUP 


LD 


HL, SETUP 


/WHERE BASIC WILL START 


4390 3600 


01110 




LD 


(HL),0 


/INITIALIZE TO 


4392 23 


01120 




INC 


HL 




4393 22A440 


01130 




LD 


(40A4H) ,HL 


/PUT IN BASIC PGM PTR 


4396 21191A 


01140 




LD 


HL,1A19H 


/GET READY ADD 


4399 E5 


01150 




PUSH 


HL 


/PUT READY ON STACK 


439A 2A1640 


01160 




LD 


HL, (4016H) 


/GET KBD DRIVER ADD 


439D 22F042 


01170 




LD 


(KEYADD+1) ,HL 


/SAVE IT FOR USE 


43A0 21E942 


01180 




LD 


HL, COPYIT 


/GET MY ADDRESS 


43A3 221640 


01190 




LD 


(4016H) ,HL 


/MAKE ME NEW DRIVER 


43A6 C34D1B 


01200 




JP 


1B4DH 


/GO NEW AND READY 


43 8D 


01210 




END 


SETUP 





statement or two before copy- 
ing line 10; you can also copy 
something after copying line 
10, but before entering the line; 



or you can copy line 10 into line 
20 more than one time. 

Once you see how much typ- 
ing Copyit can save you, you'll 



start loading it habitually before 
typing long data statements. 
Remember, you may have to 
move those statements. ■ 
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THE BIGGEST NAME IN UTTLE COMPUTERS" 

TRS-80 Model II— Your Best Buy 
In a Business Microcomputer 



wrmrntmrr^mm 




UP 
TO 

15% 



i 



on 

TRS-80 computers, 
software and peripherals 

Similar values on all merchandise 
CALL COLLECT: 

915-283-2920 

Van Horn Office Supply *» 

701 W. Broadway - P O Box 1060 
Van Horn, Texas 79855 

M DEALER G055 

'<^8^ r) Form F48 Provided 

Standard Warranty in Effect 
THE NATIONWIDE SUPERMARKET OF SOUND* 



ELECTRIC SPREADSHEET 



NEW - For Personal or Business Use 

ELECTRIC SPREADSHEET does everything you can do 
with a pencil, paper and calculator. Start with a blank 
screen. Move the fast cursor to desired location. Enter line 
or column labels or data. Select preprogrammed operators 
for line, column, or cell calculations. Run, Results appear 
on the screen, formatted for your printer. Revise. Run 
again. 

PREPROGRAMMED OPERATORS for mathematics, 
finance, and statistics. Save data on tape or disk. The 
screen is your window to a larger spreadsheet. Output 
features scrolling and split-screen Variable formats for 
labels and data. 

UNLIMITED APPLICATIONS. P L forecast Personal 
budget. Real estate investment. Net worth forecast. 
Invoice. Cash flow estimate. Sales analysis. Check record. 
Business forms. 

16K version has 50 operators. 32/48K version has 70 
operators plus histogram plot, remote storage of data, 
global revise spreadsheet layout, alpha entries, and more. 

16K Model I or III Tape $34.95 

32/48K Model I or III Tape $64 95 

48K Model I or III Disk (Specify Model) $67.95 

YOU CAN'T LOSE! Calif orders add 6'.% tax 



Dan G. Haney & Associates. Inc. ^464 
P.O. Box 687, San Mateo, CA 94401 
(415) 493-4094 



TlielXIXY-mANSlOOO 



A completely refurbished 
IBM Selectric Terminal with 
built-in ASCII Interface. 

*FOR YOUR TRS-80 WITH OR WITHOUT 
EXPANSION INTERFACE. AVAILABLE WITH 
CENTRONICS TYPE PARALLEL PORT. 



Features: 

• 300 Baud Serial 

• 14.9 characters per second 
printout 

• Reliable heavy duty Selectric 
mechanism 

• RS-232C Interface 

• Documentation included 

• 60 day warranty— parts and 
labor 

• High quality Selectric print- 
ing Off-line use as typewriter 

• Optional tractor feed 
available 

• 15 inch carriage width 



Also works with Exa- 
tron's Stringy floppy, 
for fast loading of pro- 
grams. (Has RS232 
built in stringy) 

HOW TO ORDER 
DATA-TRANS lOOO 

1 . We accept Visa , Master 
Charge- Make cashiers checks or 
personal check payable to: 

DATA-TRANS 

2 . All orders are shipped 
F.O.B. San Jose, CA 

3. Deliveries are immediate 




I 



Desk and table top models also available. 



For orders and information 

DATA-TRANS 

45277 Fremont Blvd., #7 ^274 
Fremont CA 94538 

Phone: (408) 263-9246 



'See List ol Advertisers on page 386 
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APPLICATION 



Take pride in your listing's appearance. 



Listprog 



Doug Riffel 

1836 Metzerott Road #906 

Ad el phi, MD 20783 



I have always been a stickler 
for neat and legible program 
documentation. Consequently, 
I quwkly became frustrated at 
the total lack of form control in- 
corporated in the Basic LLIST 
command. Even NEWDOS/80 
with all its extensions to Disk 
Basic offers no help. 

There were two basic features 
I wanted. I quickly found that 
automatically feeding the page 



over the perforation was not as 
easy as I thought it would be. I 
also wanted to indent the lines 
to provide room for three-hole 
punching so the program list- 
ings could be stored in binders. 

I also wanted some other 
neat little goodies. First, the 
name of the program should ap- 
pear prominently in the header. 
Second, I wanted to print the 
date the program is listed. 
Third, I needed page numbering 
and finally, double-spacing be- 
tween statements to provide 
for pencil corrections. 

All these features have been 



ii CLSi CLEAR 500:PN-1 

21 POKE 16425, l:PT-100i IN-15 

1000 IP LEFTS(TIMES,2)- - 00' THEN INPUT'Entec todays date (KM/DD 

/YY)')A$:IF L£N(A$)-8 THEN AS-"DATE •+A$iCMD"A$' 

1810 CLS:INPUT'FILE NAME";FL$ 

1020 OPEN *I",1, FL$ 

1030 SL-INSTR(FL$,"/")-l:IF SL<1 THEN SL-LEN(FLS) 

1040 LPRINTCHRS! 27) )CHR$(19) ;CHRS(27) , CHRS ( 14 ) ) TAB( 19) ;LEFTS(FLS 

,SL);CHR$(27) iCHRS(15) ;TAB(42) ; "DATE: ", LEFTS (TIMES , 8) :LPRINTCHR 

5(138) 

1050 LPRINTCHRS(138) :LPRINTCHRS ( 27) ;CHRS(20) ;TAB(60) ;"• PAGE ";P 

N;* ••:LPRINTCHRS(138) :LPRINTCHRS(138) 

1060 IP EOF(l) LPRINTCHR$(27) ;CHRS(19) ;CHRS(11) : CLOSE : PRINT: PRIN 

T"« PROGRAM TERMINATED *":END 

1070 LINE INPUTI1,AS 

1080 SP-INSTR(AS," ") !TS»SP*1:TL-LEN(AS)-SP:NL»INT(TL/PT) : EC-TL- 

NL«PT 

1090 FOR N-TS TO LEN(AS) 

1100 IF MIDS(AS,N,1)«CHRS(10) THEN BIDS (AS, N, 1 ) -CHRS ( 94) 

1110 NEXT 

1120 LPRINTTAB(IN) ; LEFTS (AS ,SP) ; 

1130 IF NL-0 AND EC-0 THEN LPRINTCHRS ( 138) :GOTO 1170 

1140 IF NL-0 LPRINTTAB(IN+8) ;MIDS (AS ,TS ,EC) : LPRINTCHRS ( 138) :GOTO 

1170 
1150 LPRINTTAB(IN+8) (MIDS ( AS ,TS ,PT) 
1160 TS-TS+p-l:NL-NL-l!GOTO 1130 

1170 IF PEEK(16425)>55 THEN LPRINTCHRS ( 11) : PN-PN+1 :GOTO 1050 
1180 GOTO 1060 



Program Listing 



incorporated in Program List- 
ing 1, which I call Listprog. It re- 
quires Disk Basic and 
NEWDOS/80 to operate, and will 
work equally well with TRSDOS 
with the deletion of line 1000. 

Although Listprog was writ- 
ten to capitalize on some of the 
features of Radio Shack's Line 
Printer IV (Centronics 737), with 
some minor modifications it 
will work just as well with other 
printers. The necessary modifi- 
cations will be covered later. 

Listprog 

Whenever a printed line ex- 
ceeds the line length of the 
printer, the printer logic auto- 
matically prints across a full 
line and then prints the re- 
mainder on the following line. 
When this happens, location 
16425 (Basic's line counter) 
does not get updated. This, in 
essence, means total loss of 
form control. 

A similar situation occurs if 
the down arrow is encountered 
within a statement. I use the 
down arrow quite frequently to 
print multiple lines on the 
screen with one statement. If 
the printer logic detects this 
character, the line up to that 
point is printed and the re- 
mainder is printed on the 
following line. Again, the Basic 
line counter is not updated. 



When a program is stored on 
disk in ASCII format, the first 
space encountered in a state- 
ment is always the separator be- 
tween the statement number 
and the statement text. 

Lines 10 and 20 of Listprog 
merely clear string space and 
set certain variables. Line 1000 
(NEWDOS/80 only) examines 
TIMES to see if a date has been 
entered. If not, it requests the 
date and executes a DOS com- 
mand to set it. 

Lines 1010 and 1020 request 
the filespec and open that file. 

Line 1030 examines the 
filespec for the presence of a 
slash. If a slash is present, it 
and everything to the right of it 
(the file extension) is dis- 
carded. I personally prefer to 
keep ASCII-formatted program 
files separate from the Basic 
program files by using the 
filespec extension "'/TXT"; 
therefore, the extension on the 
filespec actually being printed 
is irrelevent. 

Line 1040 prints the header 
which consists of the program 
name, printed at five char- 
acters per inch, and the date, 
printed at 10 characters per 
inch. For any printer other than 
the LP IV, this line should be 
modified accordingly. 

Line 1050 turns on the 16.7 
characters per inch mode (132 
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UTILITY 
FORCE 



THE VIDEO MANAGER £.«* FIRST IN A SERIES 

Our Video Manager will enhance your computer's per- 
formance with these features: vertical printing on 
screen; forms design direct from screen to printer; send 
entire screen or any part to your printer, save screen to 
disk as a file and more. Written so you can utilize it from 
DOS or BASIC. Available on disk for: TRS-80.* Mod I TRS 
DOS 2.3, Mod II TRS DOS 1.2 & 2.0, CP/M 2.0 or later, 
soon available for* Mod III. For your convenience with 
Visa or M/C phone in your order. Please add $2 for hand- 
ling and postage. ""Tandy Corp. 

SOFTWAREHOUSE INTERNATIONAL 

5070 N. Sixth St. Suite 103B 
Fresno, CA 93710 (209) 221-7877 

TO RECEIVE A FREE CATALOG PLEASE ^13 




RS205 



AP101 Apple II with Single Disk Drive $109 

AP102 Apple II with Double Disk Drives 119 

AP103 Apple II, 9 inch Monitor & Double Drives 129 

AP104 Apple ///, two additional Drives & Silentype 139 

AP105 12 inch monitor plus accessories 99 

RS201 TRS-80 Model I, Expansion Unit & Drives 109 

RS202 TRS-80 Monitor or TV set 84 

RS204 TRS-80 Model III 1 29 

RS205 Radio Shack Color Computer 89 

P401 Paper Tiger 440 445 460 99 

P402 Centronics 730 737 - Line Printer II IV 89 

i P403 Epson MX70 or MX80 89 

i CC90 Matching Attache Case 75 

- <«> compUTH case company £•$«_ 

5650 INDIAN MOUND CT COLUMBUS OHIO 43213 (614] 868 9464 



CONVERT YOUR TRS-80 MODEL- 1 INTO A 

DEVELOPMENT SYSTEM 

Now you can develop I 80 Cased, stand-alone devices sucn as games robots 
instruments and peripheral controller'., by using your THS-80 as a development system 
The DEVELOPMATE plugs into the expansion connector ot you- TRS-80 and adds 
PROM PROGRAMMING and IN-CIRCUIT EMULATION capabilities to your 
system (with or without expansion interfacei 

Complete instructions and sample schematics are included to nelp you design your 
own simple stand a'one microcomputer systems THESE SYSTEMS CAN BE AS 
SIMPLE AS FOUR ICs oneTTL circuit tor clock and reset a Z 80 an EPROM and 
"ne peripheral interlace chip 

When the In Circuit-Emulation cable is plugged 
into the Z 80 socket ot your stand alone system 
the system becomes a pan ot your TRS 80 You 
can use the tun power ot your editor /assembler s 
debug and trace programs to check out both the 
hardware and me software Simple test loops 
can be used to check out the hardware then the 
system program can be run io debug the logic ot 
your stand alone device 

Since the orogram is kept m TRS-80 RAM 
changes can be made quickly and easily When 
your stand alone device works as desired you 
use the Developmate s PROM PROGRAMMER 
to copy the program mio a PROM With this 
PROM and a Z 80 m place ot tne emulation 
:able your stand alone device will work by itseit 

The DEVELOPMATE is extremely compact Both the PROM programmer and the 
In -Circuit Emulator are m one small plastic box only 3 2-54 A line plug mounted 
power supply >s retailed The PROM programme' has a personality module which 
defines the voltages and connections o< the PROM so that future devices can be 
accommodated However the system comes with a universal personality module 
which handles 2758 2508l8Ki 2716 25i6i 16K) 2532(32K| as well as the new eiec 
tncally alterable 28 '6 and 480l6i 16K EEPROMsi 

The COMPLETE DEVELOPMATE 81 with software powei supply emulation 
cable TRS-80 cable and universal personality module isONL>S329' 
The PROM PROGRAMMER is available separately tor ONLY S239 



ORION INSTRUMENTS " 

1 72 Otis Avenue Dept M Woodside CA 94062 
,415)851 1172 

Master Charge and Visa pnone orders accepted 
California residents please add 6 C o sales tax 




CO 
PIGGYBACK! 




CEnTRDRIC5 

ADD lowercase with our 
PLUC-IN piggyback board! 

9WX7H Dot Matrix $135 
5WX7H Dot Matrix $ 95 

TWO complete character sets on board: 
96 character ASCII PLUS choice of 
128 character APL, TRS-80/H-19 Graphics or 
Scientific. (Customer defined: add $50/set). 

Most printers convertible: specify logic board # 



SYDNEY SEZ: 

Shop Comparatively! 




Digital Systems Engineering 



12503 King's Lake Drive. Reston VA 22091 (703) 620-2994 



ALSO AVAILABLE: New Centronics and Integral Data Systems printers at 
15-20% betow list also, used Dnnters of several makes Cal for information! 

MasterCard VISA Creek WO PO A' products waranleed 90 days 



■ See List ol Advertisers on page 386 
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NEW! 

CHECKBOOK CHECKV'HITER 

PROGRAM FOR: 

TRS 80CC » APPLE II ■ 

TRS 80 MODI LEVEL II- 

TRS 80 MODEL III 
CASSETTE TAPE (9 95 
or LISTING »4 




NOW. . .Continuous Checks 

That Can be Used With or Without Your Computer!! 
The Best in A Home Checking System 



That's right Continuous Checks lan-lolded in 
a 3-io-a-page desk set design And thev can be 
computer printed, handwritten or typewritten 
- whichever suits the quantity or situation 
SPECIAL DESIGN 
Our checks are not a high-volume business 
form adaptation They re specially designed 
Computer/ Manual Checks tor the home 
user And they re easy to use. too No need to 
change printer form width when loading Our 
checks are the same 9V>" width as standard 
tractor feed printer paper Check tear down 
size is the same as the classic personal-sized 
check issued by all banks 

COMPLETE HOME SYSTEM 
With this system you can print the bulk of your 
monthly checks on your computer using our 
program. Your checks and stubs can then be 
stored m our attractive Data Ring Binder 
Checkbook. Later, il you have a few checks to 
write there's no need to load them into a 
printer - just write a check at your desk as 
shown above And you can mail your checks in 
our dual windowed envelope™ to eliminate 
addressing chores 

UNIQUE 
You won't find continuous checks like these 
anywhere And. our special small quantity 
printing process will give you excellent quality 
and appearance Standard color-coordinated 
impnnling and encodmg is as shown above 



(logo can be omitted) on blue. grey, green, or 
buff checks pH1CED H|OHT 

Two Hundred checks are >ust 129.96 [enve- 
lopes $14.96) Five Hundred checks are 
•49.96 (envelopes 827 95) Data Ring Check- 
books are only $4.96. 

Special "ORDER NOW" Offer 
So that you can start using your computer 
immediately to pay your monthly bills we'll 
make you a special package offer If you order 
directly from this ad. we can send you 

200 Checks. 100 Envelopes, A Binder. 

and Program for $49.95 

-OR- 

500 Checks. 300 Envelopes. A Binder. 

and Program for $74 95 

You II save as much as $9.85 over the 
separate purchase price And with the special 
package you can begin your monthly check- 
book balancing and bill paying as soon as you 
receive your checks Just enclose a voided 
check Ifor encoding information) with your 
payment (VISA • MasterCard orders must 
show signature, expiration date, and account 
number) Or. send today for samples 

SYNERGETIC 471 5 shepherd rd 

SOLUTIONS DEPARTMENT M91 

?HONE*1 3^646*557 MULBERRY FL 33860 



characters per line for the LP 
IV) and prints the page number. 
This line should also be mod- 
ified for printers other than the 
LP IV. 

Line 1060 returns the printer 
to 10 characte per inch, 
ejects the last je and ter- 
minates Listproi, .ine 1070 is 
the required form for inputting 
ASCII-formatted program files. 

Line 1080 provides the neces- 
sary set-up information for the 
remainder of the program. 
There are really two left 
margins, one for the statement 
number and one for the state- 
ment text. The length of the 
printed statement text line is 
predetermined by the value as 
signed to variable PT in line 20 
The left margin for the state 
ment number is also predeter 
mined in line 20 by variable IN 
For printers with line lengths 
different than the LP IV, these 
variables may be changed; 
however, IN + 8 + PT cannot ex- 
ceed the line length of the 
printer. 

Other variables and their use 



are as follows: 

•SP = Location of the space 
separator between line 
number and text 
•TS = Beginning of state- 
ment text 

•TL= Length of statement 
text 

•NL = Number of full PT- 
character lines to be printed 
•EC = Number of characters 
in last line if less than PT 

Lines 1090-1110 search the 
statement text for the down ar- 
row (CHR$(10)) and replace it 
with the ASCII carat (CHR$ 
(94)). If the printer you are using 
cannot print this character, you 
will want to change these lines. 

Lines 1130-1170 perform the 
actual printing, feeding prop- 
erly over the paper perfora- 
tions. 

Listprog has become an ex- 
tremely popular program on my 
TRS-80 and I use it to document 
all my Basic programs. The pro- 
gram logic is quite simple and 
lends itself to easy tailoring for 
individual preferences. ■ 




COMPUTER INTERFACES 
& PERIPHERALS 



• POS 100 NRZ1 TAPE DRIVE CONTROLLER/FORMATTER - Now your 
micro can read and write IBM/ANSI compatible NR21 format 9-track magnetic 

tapes. The POS- 1 00 consists of S-100 bus card, 6' ribbon cable, tape drive controller 
card, cable to Pertec-Standard NR21 Tape drive, plus documentation and Z-80 or 
8080 software (specifiy). Power is derived from tape drive and S-100 bus. Ship Wt.: 
10 lbs. Suggested Retail Price {995.00 

• POS 103/202 "MIX or MATCH" MODEM - Unique POS control design permits 
use in one housing of both Bell-compatible 103 (0-300 baud) and 202 (0-1200 

baud) modem modules originally made by VADIC Corp. for a telephone company 
subsidiary. FEATURES: RS-232 serial Interface, autoanswer, auto-dial, LED 
display, telephone line interface via acoustic coupler, manual DAA, or auto-answer 
DAA (sold separately). FULLY ADIUSTED; no special tools required. 3,000 mile 
range over standard dial-up telephone lines. Ship wt.: IS lbs. 

PRICES POS 103 Modem 1199.95; POS 202 Modem $299.95; 

POS 202 Modem w/Auto-Answer $349.95; POS 103/202 Modem $499.95; 
FCC-Approved Auto-Answer DAA $ 1 25.00; Acoustic Coupler - $29.95. 

• POS DAISY-WHEEL PRINTER INTERFACE for TRS-80 - Will drive Diablo 
HyType I, HyType II, and Qume Q and Sprint 3 printers. Includes IK user- 
available memory for custom print routines (such as graphics, bidirectional print- 



ing, etc.1 Programmed to respond to print commands from BASIC ELECTRIC 

PENCIL™, and ! 

5 lbs. Price .... $250.00 



SCRIPSIT' M software. Draws its power from printer. Ship 



Cables, each (Specify HyType I, HyType II, or Qume) $ 25.00 

• POS ASCII INTERFACE for IBM I/O SELECTRIC - This Centronics stvle 
parallel printer interface will drive an IBM Model 731 or 735 I/O typewriter 

(EBCD and Correspondence codes). No software needed. Features onboard EPROM 
which holds up to 8 ASCII-lo-IBM code tables lor different type spheres. Closed- 
loop operation runs at maximum printer speed; stops and starts on a single character 
without loss Of data. Requires +I2VDC and tSVDC power source Ship wl : 

I lbs - Pri " $249.95 

Power Supply (ISVOC, + 12VDC. +24VDC tor Solenoids on Printer) ... $ 49.95 

• CONVERT OFFICE SELECTRIC TO I/O TYPEWRITER - Kit includes 
assembled solenoids, switches, wire harness, magnet driver PCB plus instructions 

lor installation and mCPu interface. Price $150.00 

• "FORMALINER" Variable Width Forms Tractor for 15 " Selectrics . . . $95.00 

• GTE Model 560 ASCII SELECTRIC I/O Terminal -With RS-232 Serial Interface 
and digital cassette deck lor use as memory typewriter. Ship wt.: 100 lbs. 

Price, tested and adiusted $1,195.00 

• POS ASCII IBM SELECTRIC PRINTER - 15 Selectr.c from GTE terminal 
cleaned and adiusted with POS Centronics-style ASCII printer interlace. UC/LC, 

carbon and fabric ribbons. Compatible with TRS-8IJ, Apple, SOL and other CPU 
parallel printer ports. Ship wt.: 75 lbs. Price . $895.00 

PACIFIC OFFICE SYSTEMS ^153 
2265 Old Middlefield Way Mountain View. Calif 94043 (415)493-7455 



MedComp, Inc. 

ANNOUNCES! 

USCD PASCAL VERSION IV.O 

FOR 

THE TRS-80 MODEL II 

•MINIMUM CONFIGURATION: 64K WITH 

1 DISK DRIVE 
'KEYBOARD TYPE AHEAD 
♦SUPPORTS BOTH SERIAL AND PARALLEL 

PRINTERS 
*CLOCK SUPPORT 

*"DUMMY" USER DEVICE FOR OUTPUT 
•FORTRAN AND BASIC COMPILER 

AVAILABLE 
•BACKUP UTILITY— BYTE FOR BYTE 
•UNIVERSAL FORMATTING UTILITY 
•CONFIGURATION UTILITY 
•ADDITIONAL HARDWARE SUPPORT: 

TOTAL OF FOUR 8" FLOPPY DISKS-SINGLE OR 

DOUBLE SIDED 
SERIAL AND OR PARALLEL TRUSTERS 
MODEM OR OTHER SERIAL 1 O DEVICE 
TERMINAL OR KSR PRINTER *"HEN PARALLEL PRINTER 

IS USED 
PARALLEL OLTTUT WHEN SERIAL PRINTER IS 

USED 

f-OR MORE INFORMATION WRITE 



MedComp Inc. 

392 Pleasant Street 
Brockton, Ma 02401 



OR CALL: (617) 965-0529 
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SPEAK-EAZY 



the 
IHUMAN QUALITY: 

"VOICE" 

for your TRS-80*that is 
so good you wont believe it 
Phone for demo. 3#\q q qq 
6 programs on £ v 3 

tape or disk. + user manual 



NEW 
DOUBLE OENSITY 
DISK CONTROLER WITH 
16 K ONBOARD RAM 
FOR YOUR MODEL I. 
NO EXPANSION INTER- 
FACE NEEDED. RUNS 
SINGLE OR DOUBLE DEN. 
$299.°-° 



-NEW- 
29.- SUPER 
SENSITIVE 
LIGHT PEN 



SIMPLIFY 
YOUR TAPE LOADING 

WITH reload: 

THE 
LED -VU METER 

$ 29. "-• 



♦TRS-80 IS A TRADEMARK OF RADIO SHACK* 
PROGRESSIVE ELECTRONICS „ 277 
643 E. CHESTNUT ST. 
LANCASTER OH. 43130 
PHONE - 614-687-1019 



' LOW PRICES ON TRS-80* x 
From Radio Ranch, Inc. 




In business 27 years at the same location pro- 
viding electronic equipment and service. 

We Are Better Equipped To Provide 



TRS-80 

COMPUTERS & 



Accessories 
Software 



TRS-80 Mod II - 64K 3440.00 

TRS-80 Mod III - *2K. 1 Dr 2195.00 

TRS-80 Line Printer 6 1020.00 

CORYl S • 5-10-20 M Hard Disks . . . Call For Prices 
"CORDOS" and "OASIS" operating systems 
Full Factory Warranty • Complete Service Department 

JZacko foajnch.Snc. 



Cert Check 
Cashiers Ck. 

Call Toll Free 800-435-8310 

V •JtadWIMlfc tancK Corp 



>^ 133 

Route 3, Radio Ranch Airport 
Polo, Illinois 61064 

In III. Call 815-946-2371 

Kipmafk touu* System !"• 




FREE PREMIUM! 
1982 subscribers will 
receive the special 
MATH1 package of 
PC programs. You 
qualify to receive 
this valuable free 
gift if you check 
either box 2 or 3 
below! Don't delay! 
Get started learning 
how to enjoy your 
pocket computer to- 
day. Use this handy 
subscription card! 



SUBSCRIPTION FORI 



□ 1981 Charter Subscriber (Issues 1 - 10). $20.00 for U.S. 
delivery. (U.S. S24.00 to Canada. U.S. $30.00 elsewhere.) 

□ 1981/82 Charter Subscriber (Issues 1 - 20). $40.00 in 
U.S. (U.S. $48.00 to Canada. U.S. S60.00 elsewhere.) 

D 1982 Regular Subscriber (Issues 11 - 20). $30.00 in U.S. 
(U.S. $36.00 to Canada. U.S. $45.00 elsewhere.) 

□ Sample issue. $3.00 in U.S. (U.S. $4.00 elsewhere.) 

Orders must be accompanied by payment in full. We do not 

issue invoices for the POCKET COMPUTER NEWSLETTER. 

Thank you for your remittance. 

Name: 

Addr: 



City: 

MC/V\SA 

Signature: 



State: Zip: 

Expires: 



MODELS 



I --III 



ALL PROGRAMS USE TESTED 

MICRO- TYPIT A text editing program that uses the keyboard 
"as is" like a typewriter. All edit and prompt functions are 
"built in" so instruction or learning is minimum. Text can be 
generated three pages at a tine and printed either numbered, or 
unnumbered single or double spaced. Also, right justification 
is optional. Does not require substitution of © for commas or 
any other character revision. Slowest function is transferring 
text to and from tape. Neat error free text with large print 
titles. Excellent for specifications, agreements, instructions, 
form letters or announcements. Complete with sound for TRS-80 
Model I or III and Microteck printer easily adaptable to most 
other printers. PRICr. $25.00 

CLIENT FILES Allows keeping several contracts for up to 20 
clients. Enter contracts including either payment amounts or 
percentages. As bills are sent out and payments received, the 
program is a record by rontract of amounts outstanding and not 
billed including a summary of receivables and work in progress. 
Works well with one to "5 projects for a dozen or so clients. 

PRICE $25.00 

ENGINEERING PROGRAMS 

LIGHTING CALCULATIONS Calculates the required number of 
fixtures for a room given the dimensions and reflectances by 
the zone cavity method. Three standard fixtures are "built in" 
so that fl room calculations are made to compare results such as 
watts, footcandles and number of fixtures. PRICE $30. OC 

HVAC PROGRAM This program calculates sensible and latent 
cooling and heating load by zone each two hours of the typical 
hottest and coldest days. Equations per 1977 ASHRAE Fundamental 
Guidfi page 25.2. Three programs are: Calculations, Geographic 
and Variable Data and Data Generator. PRICE $35.00 

All tapes furnished with full documentation and instructions. 
Documentation, Instructions and Source List alone $15. OC 

All programs on tape require Level II and 16K. Frinter is 
reauired for YICRO-TYPIT and optional on all others. Do not 
forget to include the Model Number (I or III) with your order. 



Send Check or Money Order 



COD's please^ to: 



^52 



Coolidge & Associates 



1317 S CONGRESS #10 AUSTIN, TEXAS 78704 



(512) 443-5329 



• See L>st of Advertisers on page 386 
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Education = Microcomputers. 




MC 



*to the power of 
Instant Software 

Einstein's equation helped explain the properties 
of relativity, but didn't do much to speed the learn- 
ing process. Instant Software's equation means in- 
dividual attention and greater comprehension. 
Everyone knows the best student-teacher ratio is 
1:1. That was a problem in years past, but now it's 
as easy as C.A.I. (Computer-Aided Instruction). 
These Instant Software programs will guide and 
teach each lesson with the infinite patience only a 
computer can provide, thus allowing students to 
progress at their own pace. 

Einstein had the right idea, but if he'd only known 
then what we know now 



^f 



Typing Teacher 



(for the TRS-80™)' 



^*. •;>---.:■, ■•' 



■ %9*-;^ J | ■. ■ 

■ -> s: '-%> &* : ft • 
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A complete seven-part package that guides you from famil- 
iarization of the keyboard through typing words and phrases to 
mastery of touch-typing. Your video monitor becomes a bot- 
tomless page for typing practice, and your own private TYPING 
TEACHER, ready to teach when you're ready to learn. Model I. 
Level II, 16K; Model III, 16K. Order No. 0099RA1 4 $12.95 plus sh ipp .ng 

Teacher's Aide (forweTRs-so™)- 

Now you can have the benefit of Computer Assisted Instruc- 
tion (CAI) in your own home. The Teacher's Aide program allows 
you to create tailor-made lessons for your child. The features of 
this program include the ability to review material before taking 
the lesson, a provision for hints to help answer questions and 
graphic displays as a reward for answering all questions correct- 
ly. Once you've created a lesson, you can save it and create an 
entire sequence of lessons. 

The Teacher's Aide package is perfect for parents, teachers, 
and students who need the unlimited patience only a computer 
can provide. Level II 32K. Order No. 0214RD-A13 (disk-based) 

$39.95 plus shipping. 

Geography Explorer: 

U.S.A. (for the TRS-80™)* 

This program allows your child to travel the country and learn 
vital facts about each of our 50 states. Geography Explorer offers 
the most fascinating way of learning yet. Learn each state's 
name, capitol, largest city, nickname, etc. As a bonus, this 
package offers the capability of light pen use. Model I. Level II 
16K, expansion interface with 16K, one minidisk drive. Order No. 
0071RD-A16 $49.95 plus shipping 



Capitalization (fortheAppi e ™) mm 

Here's the most patient grammar teacher a 
student will ever have. . .CAPITALIZATION. It's 
one module among several in the English Lan- 
guage Series of CAI (Computer Aided Instruc- 
tion) programs from Instant Software. This pro- 
gram introduces and exercises the twelve rules 
for capitalization in English. The student may 
study the rules in order from 1 to 12, or may sin- 
gle out one particular rule for study and practice. 
Start with CAPITALIZATION and graduate to 
proper grammar and a better understanding of 
the English language. Applesoft Basic 32K, 1 
disk drive. Order No. 0339 AD- A1 5 (disk-based) 

$24.95 plus shipping. 



"Why didn't KM&\ 
I think ' ' M 

of that?" 



Instant Software 



TO ORDER: 

See your local 

Instant Software dealer 

or call toll-free 

1-800-258-5473 

orders only 

In New Hampshire 
1-603-924-7296 

Mon.-Fn. 8:00 am-4:30 pm EST 




fO^J 



Peterborough. New Hampshire 03452 



A division of Wayne Green Inc. 



•TRS-80 is a trademark of Radio Shack division of 

Tandy Corp 

' "Apple is a trademark ol Apple Computer Company 
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• INTRODUCTION TO TRSBO LEVEL II BASIC AND 
COMPUTER PROGRAMMING BK1219-by Michae' 
P.Zabinski Written by an experienced educator this s 
the book tor those beginners why want to lear-i about 
computers without having to bci'orre an expert it has 
practical programs, useful line ty line comments. ex 
cellenl flowcharts accompanied bv me numbe'S am) 
over 200 exercises which heip the readc assess prcg 
ress. reinforce comprehension and provide ratuBbie 
practical experience $10 95 ' 

• 50BASICEXERCISES-BK1192 - by J P Lamoitier 
~n.s bT>« s st'-.t-'ec anund tie dea that the Pes' 
way tc earr a language s through actua practice it 
contains 5C completely explained exercises state 
ment aid analysis o' the problem l.owcharts P'o 
grams and actua' runs Program sub|ects include 
mathematics business games and operations re 
search and are presented m varying levels ol d'tt' 
culty I 'i s Icmat enables anyone 10 learn BASIC 'ap 
idly chpckmg the.r progress al each step $12.95" 

• THE BASIC HANDBOOK-BKl 174 NEW. SECOND 
EDITION by David Lien. This boon :s unique It is a vir 
tual ENCYCLOPEDIA of BASIC Whne not favoring one 
compute' over another, it explains over 250 BASIC 
words, how to use them and alternate strategies if a 
compute' does not possess the capabilities of a need 
ed or specified word there are often ways to ac 
complish the same function by using anothe' word . ■ 
combination of words That s where the HANDBOOK 
comes in It helps you get the most from your com 
puter. be it a "bottom-of-the-iine micro or an oversized 
monstc $19 95 " 

• LEARNING LEVEL It — BKU75- Dy David Lien. Writ- 
ten especially for the TRS-8C, this book concenrates 
on Level II BASIC, exploring eve'y important BASIC 
language capability. Updates are included for those 
who have studied the Level I User s Manual. Sections 
include, how to use the Editor, dual cassette opera 
lion, printers and peripheral devices, and the conver- 
sion of Level I programs to Level II. $15.95.' 

• BASIC BASIC '2ND EDITION) BKl026-by James 
S Coan This is a textbook wh.th ncorpo-ates the 
learning o! computer prog'amm ng usirg the BAS'C 
language win the teaching o' matheniat cs Over 100 
sample programs itust'iie Ihe techniques ol the ba 
StC 'anquage ano every section is foi.owed by pract 
ca 1 proS ems Tit s second edition covers cha'ae'e' 
sf ~g "a-c i-g a-d l"e use of data Mes $10 50 ' 

• ADVANCED BASIC— B* iOOO- Applications mciud 
"g st' -gs a"d *.ies coordinate geometry area se 

cJe"ce« a-d se«es simulation g'apnmg an.; games 
$'C '5- 

• SIXTY CHALLENGING PROBLEMS WITH BASIC 
SOLUTIONS (2nd Edition) BK'C.73 by Dona'd 
Spencer p'o. des tie serious sijdert o' BASIC p'o 
grammmg with interesting problems and solutions No 
knowledge of math above aigehra required includes a 
number of game programs as well as programs fo - 
financial interest, conversions and numeric mampuls 
tions $6.95 ' 



'PASCAL— BK1l88-by Paul M. Chiriian Professor 
Chirlian's textbook combines a simple approach to the 
PASCAL language with comprehensive coverage on 
how a computer works, how to use a flowchart, work- 
ing from a terminal as well as batch operation and 
oebugging. Special attention is paid to idiosyncrasies 
of the language and syntax flowcharts abound for the 
convenience of Ihe experienced programmer. Well in- 
dexed $12.95" 

• INTRODUCTION TO PASCAL-BK1 189-Dy Rodnay 
Zaks A stec-by Stop mt'oduct.on lor anyone wanting 
to 'earn tne language quickly and completely Eacn 
concept is explained simply and in a logical order All 
features of the language are presented m a ciea' eas^ 
to understand formal with exercises to test the reader 
at the end of each chapter it describes both standard 
PASCAL and UCS0 PASCAL the most widely used 

dialect for sma- computers No computer or program- 
ming experience is necessary $14 95 

• PROGRAMMING IN PASCAL--BK1140 by Peter 

Grogono The computer programming language 
PASCAL was the ' ir si language to embody in a coher- 
ent way the concepts of Structured programming, 
which has been defined by Edsger Di|kstra and CAR. 
Hoare. As such, it is a landmark in the development of 
programming languages. PASCAL was developed by 
Nikiaus Wirth in Zurich; it is derived from the language 
ALGOL 60 but is more powerful and easier to use 
PASCAL is now widely accepted as a useful language 
thai can be efficiently implemented, ana as an ex- 
cellent teach ng tool it Joes no! assume knowledge o' 
any other programming language, it is therefore su-t- 
arjie <c an mfoduct v, course $12 95 * 

—GAMES— 



• 40 COMPUTER GAMES - 3K7361 Forty games in an 
in nme d'f'erer-t categc.es Games *o' ! aige and small 
systems. and even a Section o~ ca'Culator games Many 
versions o ! BASIC used and a wide variety of systems 
'^presented A must for the serious computer games- 
man $7.95' 

• BASIC COMPUTER GAMES — BK1074 Okay, so 
once you get your computer and are running in BASIC. 
then what'' Then you need some programs in BASIC, 
that's what. This book has 101 games for you from very 
simple to real buggers You get the games, a descrip- 
tion of the games, the listing to put in your computer 
and a sample run to show you how they work Fun Any 
one game w.ii be /vorth more than the price of the book 
fo> the *un ,ou and your 'amily will have with it $7.50." 

• MORE BASIC COMPUTER GAMES- BK1182 — 
edited by David H Am More tun m BASIC 84 new 
games from the people who brought you BASIC Con 
outer Games Includes such 'avoctes as M'notaur ibat- 
tie the mytnicai beast) and Eliza (unload your roubles 
on the OoctO' at bargain ia'esi Complete with game 
description, listing and sample run $7 50 * 

• WHAT TO DO AFTER YOU HIT RETURN BK1071- 
PCC's ' i r s t book of computet games. 48 different 
computer games you can play in BASIC programs 
descriptions, many illustrations. Lunar Landing. Ham- 
murabi. King. Civel 2. Oubic 5. Taxman. Star Trek. 
Crash. Market, eti. $10 95." 



— BUSINESS— 

• THEORY Z -BK'226— How Amencar Business Can 
Meet the Japanese Chauenge — by William Ouchi. Why 
a'e the Japanese catching up and surpassing 
American industrial productivity 1 What allows 
Japanese industrialists to olfer guaranteed lifetime 
employment to their workforce' llns book will help 
you understand the Theory Z managerial philosophy 
and its implications for the American corporate luture. 
Examples are given of the American industrial giants 
already operating under Z-sty'e management, and the 
impact of this style on the quality ol their executives 
and workers is explored. A must lor the a'e't business- 
man large or small S'2.95 ' 

• SO YOU ARE THINKING ABOUT A SMALL 
BUSINESS COMPUTER-BK1222 - by Richard G Can 

nngandNanCyC Lc-epe' For a well organized manual 
on the process ol selecting the right computer system 
tor you' small business this text can t be excelled De 
signed to introduce the novice in data and word Pro- 
cessing to the 'eai benefits of computerization., the 
book is filled with money and time saving tips, photos 
o' equipment lists o' suppliers, prices, explanations 
of compute' terminology 8nd heip'u references to 
additional sources of information Everyone con- 
templating a first computer installation should have 
this book $14.00 ■ 

• PAYROLL WITH COST ACCOUNTING-IN BAS 

BK1001--by L Poole & M. Borchers, includes pr« 
listings with remarks, descriptions, discussion " 
principle behind each program, file layouts, ant. 
plete users manual with step-by step instrocttOns. 
flowcharts, and simple reports and CRT displays. Pay- 
roll and cost accounting features include separate 
payrolls tor up to 10 companies, lime-tested interac- 
tive data entry, easy correction of data entry errors, job 
costing ilabo' c' distribution!, check printing with 'ull 
deduction ano pay detail, and 16 different printed re- 
pets nciudi-g W 2 and 941 (in CBASIC) $20.00 ' 

• SOME COMMON BASIC PROGRAMS-BK1053- 
pub' sned bv Adam Osbo-ne & Associates, inc Perfect 
for non techmca- computensts 'ec.ui'i"g 'eady-to-use 
cog'ams Business p'ograms p'us misce'ianeous 
p-og-ams invaluab.e fo' the L-se- who s .not an ex 
penenced p'ogrammer A : wi ope-ate n the stand- 
alone mode $14 99 oape'bac 

• PIMS: PERSONAL INFORMATION MANAGEMENT 
SYSTEM — BK1009— Learn how to unleash the power 
of a persona" computer fo' your own benefit in this 
ready touse data base management program 
$11 95 • 

— MONEYMAKING— 

• HOW TO MAKE MONEY WITH COMPUTERS- 

BK1003-In 10 information-packed chapters, Jerry 
Felsen describes more than 30 computer-related, 
money making, fvgh profit. iow capital investment op- 
portunities $15 00." 

• HOW TO SELL ANYTHING TO ANYBODY- BK7306- 

Acco'dmg to The Guinness Book ol World Records, the 
author Joe Guard, -s "the wot'd s greatest salesman " 
This book reveals how he made a tort une— and how you 
can too $2 25 ' 

• THE INCREDIBLE SECRET MONEY MACHINE- 
BK1 1 78- by Don Lancaster A different kind of "cook- 
book from Don Lancaster Want to slash taxes? Get 
free vacations? Win at investments'' Make money from 
something that you like tj do 9 You'll find this book 
essential to give you the key insider details of what is 
really involved in starting up your own money machine. 
$5.95 * 



• Use the order card in the back of this magazine oi itemize your order on a Separate 
piece Of paper and mail to 80 Microcomputing Bookshe » • Peterborough NH 03458 
Be sure to include check or detailed credit card information 



No C O D orders accepted. All above add $1 50 handling. Please allow 4-6 weeks 
tor delivery Questions regarding your order' Please write Customer Service at the 
above address 



FOR TOLL FREE ORDERING CALL 1 -800-258-5473 
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• TRS-80 ASSEMBLY LANGUAGE-BK 121 7 by 

Hubert S Howe. Ji This book incorporates into a 
single volume all the pertinent tacts and information 
you need to know to program and enjoy the TRS-80 In 
eluded are clear presentations of all introductory ccn 
cepts. completely tested practical proqrams and sub 
routines, details of ROM and RAM and disk operating 
systems, plus comprehensive tables, charts and ap 
pendices Suitable tor the first !ime user 01 mo- ex 
perienced users $9.95 * 

• INSIDE LEVEL II- BKU83-For machine language 
programmers' This is a comprehensive reference 
guide to the Levei II ROMs, allowing easy utilization of 
the sophisticated routines they contain it concisely 
explains set-ups. calling sequences variable passage 

and I/O routines Part II presents an entirely new com 
posite program structure which unloads under the 
SYSTEM command and executes in both BASIC and 
machine code with the speed and efficiency of a com 
piier Special consideration is given to disk systems 
$1595 • 

• PROGRAMMING THE Z-80-BK112?- by Rodnay 
Zaks Here is assembly language programming 'or Ihe 
Z-80 presented as a progressive, step-by step course 
This book s botri an educational text and a self 
contained reference book, useful to both the beginn.ng 
and the experienced programmer who wish to learn 
about the Z 80 Exercises to test the reader are mclua 
e<k$i495 • 



• Z-80 SOFTWARE GOURMET GUIDE AND COOK- 
BOOK— BK1045— by Nat Wadsworth. Scelbi's newest 
cookbook! This book contains a complete description 
of the powerful Z-80 instruction set and a wide variety 
of programming information. Use the author's ingre- 
dients including routines, subroutines and short pro- 
grams, choose a time-tested recipe and start cooking! 
$16.99 - 



6809 



• Z-80 ASSEMBLY LANGUAGE PROGRAMMING - 
BK1177— by Lance A. Leventhal. This book thoroughly 
covers the Z-80 instruction set, abounding in simple 
programming examples which Illustrate software de- 
velopment concepts and actual assembly language 
usage. Features include Z-80 I/O devices and interfac- 
ing methods, assembler conventions, and compari- 
sons with 8080A/8085 instruction sets and interrupt 
structure $16.99 ,* 

A NEW PROGRAMMING SERIES 



• 6809 MICROCOMPUTER PROGRAMMING AND 
INTERFACING- BK1215-by Andrew Staugaard 
Jr Getting involved with Tandy's new Color Computer'' 
If so. this new book from the Blacksburg Group will 
allow you to exploit the awesome power of the 
machine's 6809 microprocessor Detailed information 
on processor architecture, addressing modes, register 
operation, data movement arithmetic logic opera 
lions, I/O and inteifacing is provided, as well as a 
review section at the end of each chapter Four appen 
dices are included covering the 6809 instruction set 
specification sheets of the 6809 family of processors, 
othe' 6800 series equipment and the 6809/6821 
Peripheral Interface Adapter This book is a must 'or 
the serious Color Computer owner $13.95 " 



The Microprocessor Software Engineering Series by 
John Zarrella provides common sense descriptions of 
advanced computer system topics for engineers, pro- 
grammers and development managers. Each volume is 
a self-contained review of a software engineering 
topic, explaining fundamental concepts in easy-to un- 
derstand language and describing sophisticated soft- 
ware tools and techniques. Detailed glossary of 
technical jargon is included In each volume. This 
series will help you find the solutions to your software 
problems. 



• SYSTEM ARCHITECTURE-BK1195 -Presents a 
detailed overview o' advanced computer system 
design including object architecture and capability 
based addressing $9.95 * 

• WORD PROCESSING AND TEXT EDITING BK"94 
— Provides a firm basis for understanding word pro 

cessing terminology and for comparing, systems 

$7 95- 

• OPERATING SYSTEMS: CONCEPTS AND PRINCI 
PLES BK1 193 — Presents an overview of the basic op 
e'ating system types their components and capabu 

ties $7 95 • 



ALL NEW— FOR 80 OWNERS 



ENCYCLOPEDIA FOR THE TRS-80* * is 

the newest peripheral tor your micro- 
computer. This ten-volume reference 
series contains programs and articles 
especially selected to extend the docu- 
mentation that comes with the TRS-80. 
Volumes of the Encyclopedia are being 
issued one-at-a-time, approximately six 
weeks apart. This means that each new 
volume will reflect the latest develop- 
ments in TRS-80 microcomputing. 
Encyclopedia for the TRS-80 is avail- 
able in two editions. The deluxe 
COLLECTOR'S EDITION has a hand- 
some green and black hard cover with a 
dust jacket. A soft cover edition is also 
available. 

To order single hard cover volumes of 
the Encyclopedia please specify: 
Volume 1 EN8101 $19.95* 

Volume 2 EN8102 $19.95* 

Volume 3 (avail. Nov.) EN8103 $19.95* 
Volume 4 (avail. Jan.) EN8104 $19.95* 
Volume 5 (avail Feb.) EN8105 $19.95* 

To order single softcover volumes of the 
Encyclopedia please specify: 

Volume 1 EN8081 $10.95* 

Volume 2 EN8082 $10.95* 

Volume 3 (avail. Nov.) EN8083 $10.95* 

Volume 4 (avail. Jan.) EN8084 $10.95* 

Volume 5 (avail. Feb.) EN8085 $10.95* 



ENCYCLOPEDIA FOR THE TRS-80* 







. 



SPECIAL INTRODUCTORY OFFER 

Order the entire set (the first ten 
volumes) of the Encyclopedia for the 
TRS-80 and receive the tenth volume 
FREE! 

10 Volume deluxe hard cover 
COLLECTOR'S EDITION-a $199.50 
value. 

EN8100 $164.00 postpaid 

10 Volume soft cover edition, a $109.50 
value. 

EN8080 S83.00 postpaid 



ENCYCLOPEDIA LOADER is the soft- 
ware companion to the Encyclopedia 
for the TRS-80. This special series of 
cassettes will allow you to load select- 
ed programs from the Encyclopedia in- 
stantly. Hours of keyboarding time and 
the aggravating search for typos is 
eliminated by using the Encyclopedia 
Loader. 

Encyclopedia Loader for Volume 1 of the 
Encyclopedia for the TRS-80 is avail- 
able at a Special Introductory Price of 
$12.95 (a $14.95 value). To take advan- 
tage of this offer specify: 

EL800110 $12.95* 

Additional Encyclopedia Loaders will 
be available as each volume of the 
Encyclopedia for the TRS-80 is issued. 
To order specify Encyclopedia Loader 
for Volume 2 EL8002 $14.95* 

for Volume 3 EL.8003 $14.95* 

for Volume 4 EL. 8004 $14.95* 

for Volume 5 EL8005 $14.95* 



• "TRS-80 is a trademark of Radio Shack 
division of Tandy Corp. 
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FOR TOLL FREE ORDERING CALL 1 -800-258-5473 
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• UNDERSTANDING AND PROGRAMMING MICRO- 
COMPUTERS— BK7382— A valuable addition to your 
computing library This two-pan text includes the best 
articles that have appeared in 73 and Kilobaud 
Microcomputing magazines on the hardware and soft- 
ware aspects ot microcomputing Well-known authors 
and well-structured text helps the reader get involved 
$1095" 

• SOME OF THE BEST FROM KILOBAUD MICROCOM- 
PUTING— BK731 1 —A collection of the best articles that 
have appeared in Kilobaud MICROCOMPUTING. Includ 
ed is material on the TRS-80 and PET systems, CP/M. the 
8O8078O85/Z-80 chips, the ASR-33 terminal. Da'a base 
management, word processing, text editors and file 
structures are covered too. Programming techniques 
and hard-core hardware construction projects for 
modems, high speed cassette interlaces and TVTs are 
also included in this large format. 200 plus page edition 
$1095- 
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• YOUR FIRST COMPUTER-BK1191-by Rodnay 
Zaks Whether you are using a computer, thinking 
about using one or considering purchasing one. this 
book is indispensable It explains what a computer 
system is. what it can do. how it works and how to 
select various components and peripheral units. It is 
written in everyday language and contains invaluable 
information for the novice and the experienced pro 
grammer (The first edition ol this book was published 
under the title "An Introduction to Personal and 
Business Computing" ) $7 95* 

• MICROPROCESSOR INTERFACING TECHNIQUES 

— BK1037— by Austin Lesea & Rodnay Zaks— will 
teach you how to interconnect a complete system and 
interface it to all the usual peripherals It covers hard- 
ware and software skills and techniques, including the 
use and design of model buses such as the IEEE 488 or 
S-100. $15.95 * 



• HOBBY COMPUTERS ARE HERE^-BK/322-lf you 
want to come up to speed on how computers work . . 
hardware and software this is an excellent book It 
starts with fundamentals and explains the circuits, and 
the basics ol programming, along with a couple of TVT 
construction projects. ASCII-Baudot. etc This book has 
the highest recommendations as a leacning aid $4.95." 

• THE NEW HOBBY COMPUTERS-BK7340-This 

book takes it from where HOBBY COMPUTERS ARE 
HERE 1 ' leaves oft. with chapters on Large Scale Integra 
lion, how to choose a microprocessor chip.'an introduc 
lion to programming, low cost I/O lor a computer, com- 
puter arithmetic, checking memory boards and 
much, much more 1 Don't miss this tremendous value 1 
Only $4 95 " 

• AN INTRODUCTION TO MICROCOMPUTERS, VOL. 

— BK1 130 — The Beginner's Book— Written for readers 
who know nothing about computers — lor those who 
have an interest in how to use computers — and tor 
everyone else who must live with computers and 
should know a little about them The first in a series of 
4 volumes, this book will explain how computers work 
and what they can do Computers have become an in 
legral part of life and society During any given day you 
are affected by computers, so start learning more 
about them with Volume $7 95 " 

• VOL. I— BK1030-2nd Edition completely revised 

Dedicated to the basic concepts ol microcomputers 
and hardware theory The purpose of Volume I is to 
give you a thorough understanding of what microcom 
puters are From basic concepts (which are covered in 
detail). Volume I builds the necessary components ol a 
microcomputer system This book highlights the dil 
ference between minicomputers and microcomputers 
$1299 " 

• VOL. II-BK1040 (with binder) — Contains descnp 
tions ot individual microprocessors and support 
devices used only with the parent microprocessor 
Volume II describes all available chips $31 99" 

• VOL. Ill — BK1 133 (with binder)-Contams descrip- 
tions ol all support devices that can be used with a^v 
microprocessor $21 99" 




• TRS-80 DISK AND OTHER MYSTERIES-BK1181- 

by Harvard C. Pennington. This is the definitive work 
on the TRS-80 disk system. It is full of detailed "How 
to" information with examples, samples and in-depth 
explanations suitable for beginners and professionals 
alike. The recovery of one lost file is worth the price 
alone. $22.50 " 

• MICROSOFT BASIC DECODED AND OTHER 

MYSTERIES— BK1 186— by James Farvour. From the 
company that brought you TRS-80 DISK AND OTHER 
MYSTERIES'. Contains more than 6500 lines of com- 
ments for the disassembled Level II ROMs, six addi- 
tional chapters describing every BASIC subroutine, 
with assembly language routines showing how to use 
them. Flowcharts for all major routines give the reader 
a real insight into how the interpreter works. $29.50. 



—SPECIAL INTERESTS— 



• THE CUSTOM TRS-80 AND OTHER MYSTERIES- 

BK1218— by Dennis Kitsz. More than 300 pages of 
TRS-80 customizing information. With this book you' 
be able to explore your computer like never before 
Want to turn an 8 track into a mass storage unit? In- 
dividual reverse characters? Replace the BASIC 
ROMs? Make Music? High speed, reverse video, Level I 
and Level II? Fix it if it breaks down? All this and much, 
much more. Even if you have never used a soldering 
iron or read a circuit diagram, this book will teach you 
how! This is the definitive guide to customizing your 
80! $29.95 ' 

• BASIC FASTER AND BETTER AND OTHER MYS- 
TERIES— BK1221 —by Lewis Rosenfelder. You don't 
have to learn assembly language to make your pro- 
grams run fast With the dozens of programming tricks 
and techniques in this book you can sort at high speed, 
swap screens in the twinkling of an eye, write INKEY 
routines that people think are in assembly language 
and add your own commands to BASIC. Find out how 
to write elegant code that makes your BASIC really 
hum, and explore the power of USR calls. $29.95." 

• THE CP/M HANDBOOK (with MP/M)-BK1187-by 
Rodnay Zaks A complete guide and relerence hand 
book for CP/M — the industry standard in operating 
systems Step-by-step instruction for everything from 
turning on the system and inserting the diskette to cor 
rect user discipline and remedial action for problem 
situations This also includes a complete discussion 
of all versions ol CP/M up to and including 2.2. MP/M 
and CDOS. $14.95". 

• INTRODUCTION TO TRS-80 GRAPHICS- BK1 180- 
by Don Inman Dissatisfied with your Level I or Level II 
manual's coverage of graphics capabilities 9 This well 
structured book (suitable for classroom use) is ideal 
lor those who want to use all the graphics capabilities 
built into the TRS-80. A tutorial method is used with 
many demonstrations It is based on the Level I. but all 
material is suitable for Level II use $8.95." 



"St**- 




• TOOLS & TECHNIQUES FOR ELECTRONICS- 

BK7348— by A A. Wicks is an easyto-understand book 
written for the beginning kit builder as well as the ex- 
perienced hobbyist It has numerous pictures and 
descriptions of the safe and correct ways to use basic 
and specialized tools for electronic projects as well as 
specialized metal working tools and the chemical aids 
which are used in repair shops $4 95 " 

• HOW TO BUILD A MICROCOMPUTER— AND REALLY 
UNDERSTAND IT— BK7325— by Sam Creason The elec 
Ironies hobbyist who wants to build his own microcom- 
puter system now has a practical "How-To" guidebook 
This book is a combination technical manual and pro- 
gramming guide that takes the hobbyist step-by-step 
through the design, construction, testing and debugging 
of a complete microcomputer system. Must reading (or 
anyone desiring a true understanding of small computer 
systems $9.95 " 



' Use the order card in the back of this magazine or itemize your order on a separate 
piece of paper and mail to 80 Microcomputing Bookshelf • Peterborough NH 03458 
Be sure to include check or detailed credit card information. 



No CO D orders accepted All above add $1 .50 handling Please allow 4-6 weeks 
for delivery. Ques'ions regarding your order" 5 Please write Customer Service at the 
above address 
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FOR TOLL FREE ORDERING CALL 1 -800-258-5473 

PRICES SUBJECT TO CHANGE WITHOUT NOTICE 





Still have storage problems? 

Fully TRS-80® Compatible 

(Model I or III) 

Disk Drives 

Model B/51 250K, 1 Side. 40 Tracks $321 .00 

B/52 500K. 2 Sides, 40 Tracks per side $439.00 

B/91 500K, 1 side, 80 Tracks $439.00 

B/92 1 Meg, 2 Sides. 80 Tracks per side $590.00 

Includes: Case and Power Supply — Fully Tested 

10 Day Money Back Guarantee 

90 Days Parts and Labor Warranty . E « ».«. 

Here's just a few of the 
features of our Disk Drives 



OthqrfMoney Savings Opportunities Order by Phone or Mail 



CABLES 



TRS-80 



2 Drive Cable 
4 Drive Cable 



$29.00 
$39.00 



$899.00 



Diskettes 



Verbatim . 10 for $31.00 

Syncom 10 for $35.00 

Plastic File Box $3.95 

Operating 8ystems 



TRSDOS 2.3 
40 Track Patch 
NEWDOS + 
40 Track 

NewdosSO 

TRSDOS Manual 

Super Utility 



$14.95 
$9.95 

$99.00 

$139.00 

$5.95 

$49.00 



Make 80 $14.00 



16K Model III 
48K Model III 

w/2 Disks $1900.00 

Expansion Interface 

OK $274.00 

Printers 

Centronics 737-1 $815.00 

IDS460 $1219.00 

Epson MX80 $550 00 
Okidata M80 $499.00 
Microline82 $650.00 
Microline83 . $950.00 
Okidata prices include tractors 
NEC Spinwriter 5530 
(freight collect) $2579.00 
16K Memory K its 

Prime NEC 200ns dynamic 
RAM Comes with complete 
instr ucti ons $39.00 

MPI Service 

Manual $3.00 

MPI Engineering 

Manual $30.00 



• 40/80 Tracks • Speed constant <1 54% 

• Auto-eject • Single/double density 

• Hi-Temp stability • Optical sensors- no switches 

ADDS MORE POWER TO YOUR SYSTEM 

Save time . . . Order by phone 

Orders only: 1-800-621-3229 

Information: 312-987-1024 

Tech. assistance: 312-987-1032 



3 



MIDWEST 

COMPUTER 

PERIPHERALS 



^8 



1467 S MICHIGAN 
CHICAGO. ILLINOIS 60605 



TRSeO?A*DVCO«P 



FREE! UPS GROUND SHIPPING ON ALL ORDERS OVER $100.00 



Quantity 


Description 


J each 


Tola 






















































(Minimum order $50 00) TOTAL 





D Check enclosed 
Bill my n Visa 3 Am Ex 
n Master Charge 
Acct No 



Qg>j B ffl~> 



Exp. 



Name _ 
Address . 
City 



State- 



Zip. 
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WE ARE MOVING TO 
LARGER QUARTERS! 

Thank you . . . 

... for making our expansion possible and 
helping make us the leading distributor 
of microprocessor systems, terminals 
and printers. 

We are showing our appreciation by 
producing a special catalog with thousands 
of items at greatly reduced prices. 
Call or write today. 

Help us move our inventory before we have 
to move it. 



MiniMiooMart, Inc. 

943 W.Genesee St. 

Syracuse, New York 13204 

(315)422-4467 



OCTOBER 
SPECIALS 

FOR THE 

TRS-80 



iT.M. 



Percom 

The Doubler II 

Plug into your expansion interface 
and double the data storage capa- 
city of your diskettes. Reads, writes 
and formats either single or double 
density diskettes. Runs TRSDOS, 
NEWDOS+ or Percom OS-80. In- 
cludes operating software. 
Cat no. 2971 $159.95 



Disk 

Protector Cases 



* H^lds up to 50 diskettes 

* Durable hi-impact plastic, 
w/lndex tabs 

•Attractively styled smoke grey 
polor 

* Perfect for home or office 
Cat No. 2956 for 5 1 /4" diskettes 

$24.95 

Cat No. 2957 for 8" diskettes $29.95 




16K Memory 
up-grade $29 *a. 

Everything you need to up-grade 

your Model I, Model III or Color 

Computer. Complete with RAM's, 

jumpers and instructions. 

Cat. No. 1156 Mod. I keyboard & 

Mod III unit 

Cat No. 1156B For Expansion unit 

Cat No. 3133 4K to 16K Color 

Computer up-grade. __ 



Percom 

Data Separator 

Virtually eliminates data read errors 
with your cassette recorder. In- 
stalls in your expansion interface 
without modifications. 
Cat No. 2972 $27.95 



HOW TO ORDER 

Write or phone. Mention this ad and WE PAY UPS GROUND shipping & handl- 
ing (USA only). Pay by check, M/C, Visa or COD. (COD $1.40 addl). Offer 
expires Nov. 1, 1981. 




i 



ELECTRONICS 



19511 Business Center Dr., Dept. V-10 Northridge, CA 91324 
(800) 423-5387 (Outside Calif.) (213) 886-9200 (In Calif.) 
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Why use their flexible discs: 

Ampex, Athana, BASF, Caelus, Control Data, Dysan, 

IBM, Inmac, K-Line, Maxell, Nashua, Scotch, 

Shugart, Syncom, 3M, Verbatim or Wabash 

when you could be using 

MEMOREX 

for as low as $1.99 each? 

Find the flexible disc you're now using on our cross reference list... 
then write down the equivalent Memorex part number you should be ordering. 
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Memorex Flexible Discs. ..The Ultimate in Memory Excellence 



Quality 

Memorex means quality products that you can depend on 
Quality control at Memorex means starting with the best 
materials available Continual surveillance throughout the 
entire manufacturing process r he benefit of Memorex'syears 
ot expener.ce in magnetic media production, resulting, tor 
instance, in proprietary coating formulations. The most sophis- 
ticated testing procedures you'll find anywhere in the business 

100 Percent Error Free 

Each and every Memorex Flexible Disc is certified to be 100 
percent error free Each track of each flexible disc is tested, 
individually, to Memorex's stringent standards of excellence 
They test signal amplitude, resolution, low-pass modulation, 
overwrite, missing pulse error and extra pulse error They are 
torque-tested, and competitively tested on drives available 
from almost every maior drive manufacturer in the industry 
including drives that Memorex manufacturers. Rigid quality 
audits are built into every step ot the manufacturing process 
and stringent testing result in a standard of excellence that 
assures you, our customer, of a quality product designed for 
•ncreased data reliability and consistent top performance 

Customer-Oriented Packaging 

Memorex s commitment to excellence does not stop with a 
quality product They are proud of the.r flexible discs and they 
pac*age them with pride Both their packaging and their 
:abe : mg have been designed with your ease of identification 
and use in mind. The desk-top box containing ten discs is 
co'iver.ent tor filing and storage Both box labels and iacket 
labels provide full information on compatibility, density, sec- 
toring, and record length Envelopes with multi-language care 
and handling instructions and color-coded removable labels 
are included. A wnte-protect feature is available to provide 
data security 

Full One Yaar Warranty - Your Assurance ot Quality 

Meno'ex Flexible Discs will be replaced tree of charge by 
Memo - ex if they are found to be defective in materials c 
workmanship within one year of the date of purchase Other 
than replacement. Memorex will not be responsible for any 
damages or losses (including consequential damagesl caused 
by the use of Memorex Flexible Discs 



Quantity Discounts Available 

Memorex Flexible Discs are packed 1 discs to a carton and 
10 cartons to a case Please order only in increments of 100 
units for quantity 100 pricing We are also willing to accom- 
modate your smaller orders. Quantities less than 100 units are 
available in increments of 10 units at a 10% surcharge. 
Quantity discounts are also available Order 500 or more 
discs at the same time and deduct 1%, 1,000 or more saves 
you 2%: 2,000 or more saves you 3%; 5,000 or more saves you 
5%, 1 0,000 or more saves you 7%, 25,000 or more saves you 
8%: 50,000 or more saves you 9% and 1 00,000 or more discs 
earns you a 10% discount off our super low quantity 100 price 
Almost all Memorex Flexible Discs are immediately available 
from CE Our warehouse facilities are equipped to help us get 
you the quality product you need, when you need it. If you need 
further assistance to find the flexible disc that's right for you, 
call the Memorex compatibility hotline Dial 800-538-8080 
and ask for the flexible disc hotline extension 0997 In California 
dial 800-672-3525 extension 0997 

Buy with Confidence 

Toget the fastest delivery from CE of your Memorex Flexible Discs, 
send or phone your order directly to ou' Computer Products 
Division Be sure to calculate your price using the CE prices in this 
ad M'Chiyan residents please add 4% sales tax Written purchase 
o'ders are accepted from approved government agencies and 
most well rated firms at a 1 0% surcharge tor net 1 billing. All sales 
are subject to availability All sales are final Prices, terms and 
specifications are subiect to change without notice Out of stock 
ilems will De placed on Dackorder automatically unless CE is 
instructed differently International orders are invited with a S20 00 
surcharge for special handling n addition to shipping charges All 
shipments are FO B Ann Arbor, Michigan No COD's please Non- 
::ertified and foreign checks require Dank clearance 

Mail orders to Communications Electronics, Box 1002. Ann 
Arbor. Michigan 48 106 U S A. Add $8 00 per case or partial-case of 
100 8-inch discs or S6.00 per case of 100 5 '/.-inch mini-discs for 
UPS orojid shipping and handling in the continental U S A If you 
have a Master Charge or Visa card, you may call anytime and olace 
a credit card order Order toll-free in the United States. Call 
anytime 800-52 1-44 14 If you are outside the U.S. or in Michigan. 
dial 31 3-994-4444 Dealer inquiries invited All orde' lines a! 
Communications Electronics are slatted 24 hours 






VISA 



Order Toil-Free! 
(800)521-4414 




For Data Reliability — Memorex Flexible Discs 



G 



COMMUNICATIONS 
ELECTRONICS" *** 



Copyright '1981 Cc 



Electronics" 



Computer Products Division 

854 Phoenix 3 Box 1002 □ Ann Arbor, Michigan 48106 USA. 
Call TOLL-FREE (800) 521 -4414 or outside U.S.A. (313) 994-4444 
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346 Smith System Manufacturing 100 

• Snappware 47.49.51.53 
'86 Sr.appwan:. Inc 95 
327 Snappwa-e. inc ... 9? 

515 So'l Sector Marketing, Inc 226 

434 Soft Sector Marketing. Inc 227 

336 Soft Sector Marketing Inc 95 

356 Software Affair 219 
299 Software Concepts. ... 343 

13 Software House Int'l 375 

454 Sound Center Radio Shack. 217 

i37 Spectral Assoc . 151 

' SpecUonics. Inc 177 

2/5 Speedway Electronics 150 

438 Slocking Source 195. 199 

371 Strategic Simulations. Inc 185 
87 Slurdivant 4 Dunn. Inc 371 

150 Sublogic 64 

403 Superior Software 175 

231 Synergistic Solar Inc 297 

• Synergistic Solution .„ . 376 
'39 Synlex Eleclronic Innovalions 76 
358 Syracuse R&D Center 164 

60 Systemworks 229 

148 Tab Sales Company 160 

44/ Tallgrass Tech Corp 217 

4b Tarantoi Associates 359 

410 Scott Tesso 224 

25 T e ,as Computer Systems 307 

566 Time Management Software. Inc ... 105 

567 Time Management Software. Inc 107 

568 Time Management Software. Inc .109 
414 T-ans'ormation Tech ..222 
444 Trinity Group . . 218 

6 Total Access .69 

18 Iwenty f irst Century Software 356 

43 Universal So'lware Studios 303 

167 University of Oregon 94 

■ V R Data Corporation 353 

137 Van Horn Odce Supply 373 

4it Welmu- of California Inc 238 

366 XY2T Computer Dimensions Inc 77 

482 fork lOComputerware .362 



prefers 10 rie conlacted direc 
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If you can beat these prices, 
you must have a brother-in-law 
the business. 



16 K RAM KITS 

NEC 41 16 200 ns . . 

DIP SHUNTS IFOR KEYBOARD MEM UPGRADE 1 

TRS-80 MOD I HARDWARE 



PERCOM DATA SEPARATOR 


27 


PERCOM DOUBLES 


159 


DOUBLE ZAP II 80 (CONVERTS NO, 80 TO D ) 


45 


MPI 40 TRACK DISK DRIVE 18-511 


299 


SHUGART 40 TRACK DISK DRIVE (400L) 


299 


MP! 80 TRACK DISK DRIVE (B-9'l 


429 


TANDON80 TRACK DISK DRIVE 


429 


TANDON 40 TRACK DISK DRIVE 


299 


LNW DOUBLER WITH DOSPLUS 3 3D 


159 


PERCOM SPEAK-PVE-2 


64 



1795 
4 00 



95 



TRS-80 SOFTWARE 



LAZY WRITER MODI 


125 00 


PROSOFTMODI III 


79 00 


SPECIAL DELIVERY (MAIL LIST PROG) MOD 1. HI 


11900 


X TRA SPECIAL DELIVERY (MAIL LIST PROG) 


199 00 


TRACKCESS MOD 1 


24 95 


OMNITERM SMART TERMINAL PKG MOD 1 III 


89 95 



PRINTERS 

ANADEXDP9000 1195 00 

ANADEXDP9001 1195 00 

ANADEXDP9500 1295 00 

ANA0EXDP9501 ... 1295 00 

CENTRONICS 739 765 00 

C-ITOH 25 CPS PARALLEL 1440 00 

C-ITOH 25 CPS SERIAL 1495 00 

C-ITOH 45 CPS PARALLEL .1770 00 

C-ITOH 40 CPS SERIAL 1870 00 

C-ITOH TRACTOR OPTION 175 00 

EPSON MX-80 ... $CALL 

EPSON MX-80F/T $CALL 

EPSON MX-100F/T $CALL 

tDS-445G PAPER TIGER . .795 00 
IDS-460G PAPER TIGER . .. 1149 00 

IDS-560G PAPER TIGER . 1495 00 
INFOSCRIBE 500 9X9. 150 CPS 

(TI-810 REPLACEMENT) .. , ... 1495 

MALIBU 165 PARALLEL PRINTER 2995 00 

MALtBU 200 DUAL MODE . 2995.00 

NEC SPINWRITER 5510 SERIAL RO .. 2595 00 

NEC SPINWRITER 5530 PARALLEL RO . . 2595 00 
NEC SPINWRITER 5500 D SELLUM OPTION . 2795.00 
NEC SPINWRITER 3500 SELLUM OPTION . . 2195 00 

OKIDATAMICROHNE 80 ... 399 00 

0KIOATAMICR0LINE82 599 00 

OKIDATA MICROLINE 83 . 795 00 



MODEMS 

NOVATION CAT ACOUSTIC MODEM 145 I 

NOVATION D-CAT DIRECT CONNECT MODEM 155 ( 

NOVATION AUTO-CAT AUTO ANSWER MODEM 229 I 

JDS 'OSLP DIRECT CONNECT MODEM 175 i 

LEXICON LX-M MODEM 1151 



DISKETTES 

MD 525-01 10 16 26 50 

MD 550-01.10 16 44 50 

MD 577-01 10 16 34 80 

MD557-0U0 16 45 60 

FD 32 OR 34 -8000 45 60 



DISKETTE STORAGE 

5'4" PLASTIC LIBRARY CASE 2 50 

8" PLASTIC LIBRARY CASE 3 50 

PLASTIC STORAGE BINDER WITH INSERTS 9 95 

PROTECTOR 5V 24 95 

PROTECTOR 8" 29 95 



CP/M SOFTWARE 

MICROSOFT BASIC-80 299 00 

MICROSOFT BASIC COMPILER 31900 

MICROSOFT FORTRAN-80 399 00 

PEACHTREE SYSTEMS CALL 

MAGIC WAND (REQUIRES CP'M) 275 00 

WORD STAR (REQUIHESCP M) 310 00 

MAILMERGE (REQUIRES WORO STAR) 100 00 

SPELLGUARD 239 00 

CP'M PICKLES & TROUT FOR TRS-80 MOD II 175 00 




CORVUS 

TRS-80 MOO I, II 

Controller, Case/PS., Operating System, A&T 

5 Megabytes 

10 Megabytes .... 

20 Megabytes 

MIRROR BACK-UP 



3095 00 

4495 00 

5395 00 

700 00 



SPECIALS 



NO 



NO 



NO 



NO 



1 - TRS-80 DISK & OTHER MYSTERIES/BOX 

OF DtSKS/PLASTlC LIBRARY CASE 44 50 

3 - NEWOOS/80 2 0/60X OF DISKS/PLASTIC 

LIBRARY CASE 149 00 

4 - MlCROSOf T BAStC COMPILER/BOX Of 

DISKS/PLASTIC LIBRARY CASE 190 00 



5 - MICROSOFT BASIC & OTHER MYSTERIES/ 
BOX OF OISKS/PLASTIC LIBRARY CASE 49 95 

NO 6 • DOUBLE OENSITY SPECIAL NEWDOS/ 

80 DOUBLE ZAP II, BOX OF DISKS. PLASTIC 
LIBRARY CASE 309 00 

TANOON 40 TRACK WITH NEWDOS + 320 00 



SUPPLIES 

AVERY TABULABLES 



1.000 3-1/2 x 15/16 
3 000 3-1/2x15/16 
5 000 3-1/2x15/16 



849 
1495 
19 95 



UARCO PAPER (Prices FOB. S.P.] 



9-1/2x11 18 lb white 2900 

14-7/8x11 18 lb while 3900 

We stock a complete line of computer covers, printer 
ribbons, print wheels & NEC thimbles. Call us tor your 
needs. 



.-69 



We built a reputation on our 
prices and your satisfaction. 

We guarantee everything we sell for 30 days If anything 
is wrong. |ust return the item and we'll make it right 
And. of course, well pay Ihe shipping charges 

We accept Visa and Waster Card on all orders COD 
accepted up to $300 00 We also accept school pur- 
chase orders 

Please add $2 00 lor standard UPS shipping and 
handling on orders under 50 pounds, delivered m the 
continental U.S. Call us for shipping charges on items 
that weigh more than 50 pounds. Foreign, FPO and APO 
orders please add 15% for shipping. California res- 
idents add 6% sales tax. 



(213) 883-8594 

31245 La Baya Drive, Westlake Village, California 91362 



CP/M is a trademark ot Digital Research 



The onces quoted are only valid for stock on hand ana all D"ces are subiect (o change without notice 







Frustrating isn't it! No matter how 
much you speed up your program 
it still seems to take forever to save 
data onto a cassette. Wouldn't it 
be great if someone could design a 
mass storage system with the speed 
of a disk, but at half the cost? 
Exatron did, the Exatron Stringy 
Floppy (ESF) 

!ly self-contained, the ESF 
is an extremely fast, reliable, and 
economical alternative to cassette 
or disk storage of programs or 
data. All of the ESF's operations 
are under the computer's control. 
with no buttons, switches, knobs or 
levers to adjust or forget. 

The ESF uses a miniature tape 
cartridge, about the size of a busi- 
ness card, called a wafer. The 
transport mechanism uses a direct 
drive motor with only one moving 
part. Designed to read and write 



digital data only, the ESF suffers 
from none of the drawbacks of 
cassettes - without the expense of 
disks. 

Several versions of the ESF are 
available, for the TRS-80, Apple, 
PET, OSI and an RS 232 unit. 
Even the slowest of the units is 1 5 
times faster than a car sette. and all 
are as reliable as disk drives - in 
fact a lot of users say t!iey are more 
reliable! 




excellence in electronics 

exatron 



To get further information abo'it 
the ESF give Exatron a call on 
their Hot line 800-538 8559 
(inside California 408-737 7111). 

Tf you can't wait any longer then 
take advantage of their 30 day 
money-back guarantee, you've 
nothing to lose but time! 

181 Commercial Sueet 
Sunnyvale, CA 94086 





TKS-80. Appir enJ PET are trademark* of T»ndv. A(ve and Commodo-e respectively. 



